Intégration d' un menu contextuel Windows Copier/Coller dans un TextBox ou autre

Staple1600 à dit:

Re

Si tu testes ce petit bout de code , il se passe quoi chez toi?
(Dans un classeur vierge, insères un Userform sur lequel tu placeras deux TextBox et un CommandButton)
Puis colles dans le code de l'userform, le code ci-dessous et coche la référence Microsoft Forms 2.0 Object Library dans VBE.

VB:

Dim dObj As DataObject

Private Sub CommandButton1_Click()
With TextBox1: .SelStart = 0: .SelLength = TextBox1.TextLength: .Copy: .Value = vbNullString: End With
dObj.GetFromClipboard: TextBox2.Text = dObj.GetText(1)
End Sub

Private Sub UserForm_Initialize()
Set dObj = New DataObject
Me.Width = 215: Me.Height = 100: CommandButton1.Top = 45: CommandButton1.Width = 75
With TextBox1: .Top = 2: .Left = 2: .Width = 200: .Height = 15: End With
With TextBox2: .Top = 25: .Left = 2: .Width = 200: .Height = 15: End With
TextBox1.Text = "Bonjour, " & Application.UserName & ", on se copie vers le TextBox2?"
End Sub

Le contenu du TextBox1 est bien copié dans le TextBox2 ?
(sur mon PC, test OK, W10-64bits +Excel 2013)

Cliquez pour agrandir...