PressePapier

Déclaration des API dans le haut d'un module standard :

Private Declare Function OpenClipboard Lib "user32" _

(ByVal hwnd As Long) As Long

Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Sub Vider_Presse_Papier()

OpenClipboard 0

EmptyClipboard

CloseClipboard

End Sub