Vider Purger le presse-papiers Excel et Office

Bonjour,

Suite à des tests visant à répondre à

Citation:

---

C'est pourquoi, je me tourne vers vous pour savoir si vous savez comment vider le presse papier

---

dans ce fil :

http://www.developpez.net/forums/d81...n-objet-extra/

Je n'ai pas trouvé de solutions satisfaisantes (ou je n'arrive pas à les mettre correctement en application) complètes...sous excel 2003 et 2007

cette solution-ci :

http://vb.developpez.com/faqvba/?page=2#emptyclipboard

ne semble marcher sous 2003 que si ces conditions sont remplies :
'- Le volet office n'est pas ouvert en presse papiers sous Excel ou autre Appli Office !
'- Le volet office presse papiers est vide à ce moment là !
(copier-coller multiples ou non)

Il en est de même des autres solutions "légères" que j'ai pu trouver..

cette solution-ci :
http://www.archivum.info/microsoft.p..._presse-papier

fonctionne à merveille sous 2003, mais ne remplit pas son rôle sous 2007, des paramètres à changer ?

si quelqu'un voit comment procéder (pour une piste ou l'autre), ça nous permettrait d'avoir une solution 2003-2207 fiable..


cordialement,

Didier

bonjour Didier le forum un code a tester

Code:

---

1 2 3 4

Sub vide() On Error Resume Next Application.CommandBars("clipboard").Controls(4).Execute End Sub

---

Bonjour,

ça fait partie des solutions légères évoquées, sous 2003 chez moi ça ne donne rien si ce n'est un "indice n'appartient pas à la sélection" si on shunte le OnError...

Si OK chez-toi, intéressant de savoir où se situe la différence ?

cordialement,

Didier

re, j'ai trouve cela mais pas tester!!

Code:

---

1 2 3 4 5 6 7

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

---

ou

Code:

---

1 2 3 4 5

Private Sub ClearClipboardText() Dim objData As New DataObject objData.SetText "" objData.PutInClipboard End Sub

---

Bonjour,

Oui, mais je retombe sur ce comportement:

Citation:

---

ne semble marcher sous 2003 que si ces conditions sont remplies :
'- Le volet office n'est pas ouvert en presse papiers sous Excel ou autre Appli Office !
'- Le volet office presse papiers est vide à ce moment là !
(copier-coller multiples ou non)

---

Il semble donc qu'on ai 2 niveaux différents suivant que le presse-papiers Office soit actif (dans ou hors Excel) ou non, voir la 2ème lien :
Michel Pierron

Citation:

---

Petit rappel; depuis xl2000, Excel contient plusieurs presse-papiers privés dont seul le premier est commun avec Windows. Dans ces versions, le presse-papiers n'est pas accessible par programmation VBA.
Cependant, il est possible de contourner le problème en utilisant les fonctions API de Microsoft ActiveAccessibility qui permettent d'explorer les éléments contenus dans une fenêtre. Ce n'est pas simple et cela demande un peu de code.
.../...

---

cordialement,

Didier