PutInClipboard

Question

Depuis l'installation Office 2016, sous EXCEL 2016, la fonction PutInClipboard ne semble plus fonctionner.

Aucun message d'erreur, mais lorsqu'on colle ce qu'il devrait avoir dans le clipboard, Il n'y a que deux caractères inconnu.

QU'arrive-t-il????

Answer 1

J'ai tourné le problème en employant la fonction Range.copy

Sub DansLeClipboard(tt As String)

   Range("H2") = tt

   Range("H2").Copy

End Sub

Merci pour l'aide proposé

Answer 2

Bonjour,

Voici ce que j'obtiens après exécution de la macro :

Si ça fonctionne quelque fois, c'est que ton Excel n'est pas stable. Fais une réparation d'Office :

https://support.office.com/fr-fr/article/R%C3%A9parer-une-application-Office-7821d4b6-7c1d-4205-aa0e-a6b40c5bb88b

Daniel

Answer 3

Bonsoir,

Voici un extrait de mon code.

Dans un menu:

Private Sub Cmd5_Click()

   Dim temp As String

   temp = Cells(lig, 1)

   If Cells(lig, 2) <> "" Then temp = temp & ", " & Cells(lig, 2)

   temp = temp & " - "

   Call DansLeClipboard(temp)

End Sub

Dans le module général:

Sub DansLeClipboard(tt As String)

   Dim DataObj As New MSForms.DataObject

   DataObj.SetText tt

   DataObj.PutInClipboard

End Sub

Cette "string" dans le clipboard me sert à modifier des noms de fichier à l'aide de l'explorateur Window. Ça fait 3-4 ans que ça fonctionne très bien. C'est depuis que je suis passé à Excel 2016 (3 jours) que ça ne fonctionne plus. J,ai un autre ordi avec Excel 2013 et ça fontionne bien.

Quelque fois lorsque je reboote mon ordi, ça fonctionne une fois mais après ce n'est plus possible.

Aidez-moi S.V.P.

Answer 4

Bonsoir,

J'ai testé avec le code de Chip Pearson :

Dim DataObj As New MSForms.DataObject <br><br>    Dim S As String <br><br>    S = "Hello World" <br><br>    DataObj.SetText S <br><br>    DataObj.PutInClipboard

Le collage se fait normalement.

Peux-tu détailler ce que tu fais ?

Daniel