Effacer le Presse-Papiers avec Excel VBA

Effacer le Presse-Papiers avec Excel VBA

Effacer le presse-papiers dans Excel VBA ne nécessite qu’une seule ligne de code :

Application.CutCopyMode = False

Cependant, il est différent du presse-papiers standard de Windows. Pour effacer le presse-papiers de Windows, vous pouvez utiliser la fonction EmptyClipboard. Copiez et collez le code ci-dessous dans un module de code et exécutez la procédure TestEffacerPressePapiers pour vider le presse-papiers de Windows.

Option Explicit

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long

Public Function EffacerPressePapiers()
  OpenClipboard (0&)
  EmptyClipboard
  CloseClipboard
End Function

Sub TestEffacerPressePapiers()
  Call EffacerPressePapiers
End Sub