Discussion :

[Springbank35]

Bonjour à tous,

Dans un formulaire qui sert à renseigner un document Word protégé, je voudrais pouvoir sélectionner à la souris une partie du texte et le copier dans le presse papier.

J'ai créer un bouton, que j'ai appelé copier, et je lui ai mis ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub copier_Click()
TextBox1.SelText
SendKeys "^C"
End Sub

Malheureusement, cela ne fonctionne pas. Cela bloque au niveau de TextBox1.SelText mais je ne trouve pas pourquoi...

Quelqu'un peut-il m'aider?

Merci par avance,

Sincèrement,

[DotNetYo]

Hello !

SelText est une propriété qui renvoie le texte sélectionné.
Le fait d'appeler Textbox1.SelText provoquera une erreur de compilation car VBA s'attend à ce que cette propriiété soit affectée dans une variable.
Il faut utiliser conjointement l'objet DataObjet et la propriété TextBox1.SelText comme suit pour placer ton extrait de texte dans le presse-papiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub copier_Click()
  Dim g As New DataObject
  Call g.SetText(TextBox1.SelText)
  Call g.PutInClipboard
End Sub

Bonne prog !



@+

[Springbank35]

Salut,

Merci pour cette réponse claire, nette et précise.

Ça fonctionne au poil.