VBA pour word, commande vider presse papier

Le
cemima
Bonjour

Comment vider le presse papier par un ordre VBA
merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AB
Le #1587964
Bonjour,
Je crois me souvenir qu'aussi étrange que ça puisse paraître, il n'y a pas
de commande VBA pour vider le presse-papiers. La solution consiste à y
mettre une chaîne vide, comme cela :
Sub vidage()
Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard
End Sub

AB

"cemima"
Bonjour

Comment vider le presse papier par un ordre VBA
merci


Garette
Le #1587960
Bonjour,

Une solution utilisant les API Windows, trouvé sur un Forum :

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

Sub test()
OpenClipboard hwnd
EmptyClipboard
CloseClipboard
End Sub
Publicité
Poster une réponse
Anonyme