Bonjour,
Je souhaite mettre le contenu de 3 cellules excel sous forme de texte dans le presse-papier.
Ca marche (il faut rajouter microsoftform2.0 object library dans les références)
Dim phrase As String
Dim mydata1 As DataObject
Set mydata1 = New DataObject
phrase = phrase & "Projet : " & Range("A1") & " "Désignation : " & Range("D1") & " Référence : " & Range("E1")
mydata1.SetText phrase
mydata1.PutInClipboard
J'aimerais le faire en mettant en Gras ou en couleur certains mots de la phrase.
Il faudrait que j'utilise par exemple du texte enrichi
Pour cela je trouve sur internet à plusieurs endroits qu'on peut écrire en utilisant la méthode
SetText(String, TextDataFormat)
Mydata1.settext phrase, vbCFRTF
ou bien
Mydata1.settext phrase, RTF
mais ca me met argument invalide
Pourtant, au moment ou j'écris la virgule qui suit phrase, apparait tout seul SetText (text as string,[format]) comme si l'éditeur VBA comprenait qu'un argument [Format] est autorisé.
D'ailleurs, quand j'écris rtf en minuscule, il passe automatiquement en majuscule comme lorsqu'on écrit du code compris par l'éditeur. (Il ne le fait pas avec vbCFRTF).
Quelqu'un sait m'expliquer pourquoi j'ai un message d'erreur ou bien a un exemple ?
Faudrait il une autre library en référence par exemple ?
Merci d'avance de toute aide.
-----