Option Explicit
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Public Sub ViderPP()
'Ouverture du presse-papier
OpenClipboard 0&
'On vide le presse-papier
EmptyClipboard
'Fermeture du presse-papier
CloseClipboard
End Sub
Remarque :
Pour mieux comprendre l'interet de ce petit snippet voici une remarque issue de :
http://support.microsoft.com/kb/458433/fr
Remarque: Les données dans le Presse-papiers peuvent avoir n'importe quelle taille. La taille mémoire allouée pour le Presse-papiers est déterminée par l'application qui copie vers le Presse-papiers et celle qui reçoit les données du Presse-papiers. Il est possible de recevoir un message d'erreur si une application n'alloue pas suffisamment de mémoire.
Remarque :
Finger in the nose !