Copier une valeur dans le presse papier

[ericTA]

Bonjour à tous,
je cherche en VB à copier une chaîne ex "la chaîne à copier" dans le presse papier. La valeur n'est pas une cellule mais un commentaire en fonction d'une rèponse.

Ex
Dim val as string

CopierValDans pressepapier.


Pour ensuite la copier dans un autre soft.
Merci d'avance
Eric

 

[Pierrot93]

Re : Copier une valeur dans le presse papier

Bonjour Eric

regarde le code ci dessous, pour activer la référence => Editeur vba => barre de menu => outils => références :

Sub Test()
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject, machaine As String
machaine = "xxxx"
x.SetText machaine
x.PutInClipboard
End Sub

bon après midi
@+

 

[STephane]

Re : Copier une valeur dans le presse papier

bonjour
voilà commentmettre du texte dans le presse-papiers

Dim strContenupressepapier$
Dim dobPressepapiers As DataObject

strContenupressepapier = "le contenu";

Set dobPressepapiers = New DataObject
dobPressepapiers.SetText strContenupressepapier
dobPressepapiers.PutInClipboard

cette fonction est documentée dans l'aide vba

 

[ericTA]

Re : Copier une valeur dans le presse papier

Merci
Ca marche super bien.
Eric