Discussion :

[ftcalvados]

Bonjour,

Je suis en Word2003, et je voudrai "effacer-tout" le presse-papier.

En parcourant la FAQ et le forum j'ai trouvé le code suivant (qui à l'air de mettre tout le monde d'accord), mais mon presse papier est toujours plein !!!

Code :

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

1
2
3
4
5
6
7
8
9
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Sub Commande0_Click()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

J'utilise les références suivantes dans VBA :
Visual BAsic for application
Microsoft Word 11.0 Object library
OLE Automation
Normal
Microsoft Office 11.0 Object library
Microsoft Forms 2.0 Object library

Merci d'avance

[SilkyRoad]

bonjour

j'espère que ce lien pourra t'aider

http://www.developpez.net/forums/sho...27&postcount=4


michel

[ftcalvados]

j'espère que ce lien pourra t'aider

J'avais essayé aussi, mais ça ne marche pas plus !!!

[ftcalvados]

Mon problème n'est toujours pas résolu et je me prends vraiment la tête !!!!

J'ai essayer en mettant en référence d'autres librairie, mais j'ai pas trouver la bonne s'il y en a une !!!

J'ai réessayer le code de SilkyRoad
Ca me rajoute des éléments dans le presse-papier, mais ça ne fait "Effacer-tout"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub viderPressePapier()
'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library"
    'Dans l'editeur de macros:
    'Menu Outils
    'Références
    'Coche le ligne "Microsoft Forms 2.0 Object Library"
    'Clique sur OK pour valider
 
Dim Cible As DataObject
 
Set Cible = New DataObject
Cible.SetText "toto"
Cible.PutInClipboard
 
Set Cible = Nothing
End Sub

Si une bonne âme à une idée merci !!

[ThierryAIM]

Question bête, mais on ne sait jamais : ton bouton de commande s'appelle bien Commande0 ?
Parce que je n'ai pas de soucis avec W2003

[ftcalvados]

Question bête

Pour te rassurer il n'y a rarement des questions bêtes !!!

Oui, j'ai bien un bouton et mon code est dans "ThisDocument"...
Ca marche pas si on le met dans un module.


J'ai essayer aussi en mettant un nom de procédure : pas plus de résultats.