Vider le presse papier en VBA [FAQ]

[knecmotet]

Bonjour à tous,

J'aimerais savoir comment dans le langage VBA indiquer à une macro de vider le presse papier.

Merci d'avance !

[Olivier Regnier]

Bonjour Knecmotet

Cela peut sans doute t'aider :

La fonction EmptyClipboard permet de vider le presse-papier

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Compare Database
Option Explicit
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 Me.hwnd
    EmptyClipboard
    CloseClipboard
End Sub

Voilà

[ThierryAIM]

Me.hwnd en VBA, ca risque de tousser

[Nightfall]

Oui, on peut mettre 0 à la place, ça marche :

Code :

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

[abelman]

Vient de me sauver la vie ce post :-)

[méphistopheles]

la clipboard.clear ne marche pas en VBA?

[abelman]

Envoyé par méphistopheles

la clipboard.clear ne marche pas en VBA?

no