Discussion :

[Didier Gonard]

Bonjour,

Suite à des tests visant à répondre à

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

[laetitia]

bonjour Didier le forum un code a tester

Code :

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

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

[Didier Gonard]

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

[laetitia]

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

Code :

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

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 :

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

1
2
3
4
5
Private Sub ClearClipboardText()
Dim objData As New DataObject
    objData.SetText ""
    objData.PutInClipboard
End Sub

[Didier Gonard]

Bonjour,

Oui, mais je retombe sur ce comportement:

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

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