vider le presse papier avant utilisation en vba

bonjour
suite à mon derniers post, il serait plus propre de vider le presse papier avant d'y mettre qql chose.

mais il semblerait qu'un
clipbord.cleard ne marche pas

j'ai trouve un code sur le net mais y a t'il pas plus simple ,,,,:roll::roll:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ClearClipboard() Dim oDataObject As DataObject   Set oDataObject = New DataObject oDataObject.SetText "" oDataObject.PutInClipboard   Set oDataObject = Nothing End Sub

---

Bonsoir,

Code:

---

Application.CutCopyMode = False

---

aura un effet limité à la seule manoeuvre Edition/coller

Si tu veux réellement vider littéralement le presse-papier, y compris des données multiples qu'il a pu recevoir (notamment par des Edition/copîer succéssifs sans collage), il te faut aller à du plus cher, et :

Code:

---

1 2	Application.CommandBars("Clipboard").Controls("&Vider le Presse-Papiers").Execute

---

devrait faire l'affaire et libérer réellement la mémoire ....

bonjour Ucfoutu

merci de ta reponse
je me suis orienté comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'******declaration pour vider le presse papier********************************* Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function EmptyClipboard Lib "user32" () As Long '*****************************************************************************   '***************procedure presse papier pour le vider************* Private Sub videpressepapier() OpenClipboard 0 EmptyClipboard CloseClipboard   End Sub '****************************************************************

---

puis j'appelle ma procedure dans mon programme videpressepapier