Méthode pour mettre en presse papier une valeur d'un bouton de formulaire

Private Sub CommandButton1_Click()

  ' Il faut cocher la référence : Microsoft Forms 2.0 Object Library
  Dim DataObj As New MSForms.DataObject

  With DataObj
    .SetText Me.CommandButton1.Caption
    .PutInClipboard
  End With
  DataObj.GetFromClipboard
  Unload Me

End Sub

Bonjour à tous.

J'ai une macro qui est censée faire le job. Je l'ai trouvée un peu partout sur les forums.

Seulement, je n'arrive pas à l'appliquer.

J'ai bien activé la référence "Microsoft Forms 2.0 Object Library"

Malgré tout, ça ne fonctionne pas.

ça me remonte des valeurs bizarres (voir fichier joint, en cellule H6)

pouvez-vous m'aider ?

Bon... Je crois que j'ai trouvé ma coquille...

En fait, je ne peux pas faire de "With - End With"... Je ne sais pas pourquoi...

voici le code qui, au final, fonctionne :

Dim DataObj As New MSForms.DataObject
    DataObj.SetText Me.CommandButton1.Caption
    DataObj.PutInClipboard
    DataObj.GetFromClipboard
Set DataObj = Nothing