Copier le contenu d'une cellule dans le presse-papier

[13GIBE59]

Bonjour le forum, et bon dimanche à tous. 🙂

Dans le fichier joint, je voudrais, à l'ouverture du fichier, placer le contenu de la cellule A1 dans le presse-papier, sans mise en forme, pour l'utiliser dans une autre application (internet).
J'ai essayé des tas de trucs avec PutInClipbord, sans succès. 😡

Quelqu'un pourrait-il m'aider ?
Merci d'avance.

 

[Guest]

Re : Copier le contenu d'une cellule dans le presse-papier

Bonjour 13GIBE59

En ayant coché la référence à Microsoft Forms 2 Objects Library

Dim oData As New MSForms.DataObject
oData.SetText Range("A1").Text
oData.PutInClipboard

A+

 

[JNP]

Re : Copier le contenu d'une cellule dans le presse-papier

Bonjour Jean-Bernard, Hasco 🙂,
Jean-Bernard, les lendemains d'anniv' te valent rien, qu'est ce que c'est que ce code que tu nous a bricolé 😛...
Bon, Hasco m'a grillé, mais je te mets quand même le fichier en pièce jointe 🙄...
Bon dimanche 😎

 

[13GIBE59]

Re : Copier le contenu d'une cellule dans le presse-papier

Super, JNP et Hasco, ça marche du tonnerre, merci à vous deux. 🙂

Heu, JNP :

Jean-Bernard, les lendemains d'anniv' te valent rien, qu'est ce que c'est que ce code que tu nous a bricolé 😛

Il va sans dire que j'avais bricolé à partir de PutInClipBoard (déniché sur le site), et non pas PutInClipbord (lapsus calami).
Cela dit, je n'aurais jamais trouvé sans votre aide.
Merci encore.😀