Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Vider le presse-papiers en VBA

  • Initiateur de la discussion Initiateur de la discussion Gregg
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

Gregg

Guest
Bonjour à tous,

Je cherche désespérément à vider le presse-papiers via une macro dans Excel 2007.

J'ai bien essayé le "application.cutcopymode=false" ne fait que stopper le copier ou couper, et ne vide pas le presse-papiers.

De même, les essais suivants (trouvés sur différents forums) se sont également avérés infructueux :
Sub vide_PP()
On Error Resume Next
Application.CommandBars("Clipboard").Controls(4).Execute
End Sub
ou
Sub viderPressPapier()
'necessite d'activer la reference Microsoft 0ffice x.x Objet Library
With New DataObject
.SetText ""
.PutInClipboard
End With
End Sub

Merci d'avance de votre aide.
 
Re : Vider le presse-papiers en VBA

Bonjour,
Essaies ceci
Code:
Sub viderPressPapier()
    'necessite d'activer la reference Microsoft 0ffice x.x Objet Library
    Dim MyData As DataObject
    Set MyData = New DataObject
    With MyData
        .SetText ""
        .PutInClipboard
    End With
End Sub
 
Re : Vider le presse-papiers en VBA

Bonsoir à tous, re Eric


Une autre façon


Code:
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 Clear_Clipboard()
   OpenClipboard (0)
   EmptyClipboard
   CloseClipboard
End Sub
 
Re : Vider le presse-papiers en VBA

Bonsoir,

Eric et JM, vos codes ne fonctionnent plus depuis Excel 2003....

J'ai pour ma part fait énormément de recherche, et je n'ai jamais trouvé la solution....

Il me semble que le presse-papier, depuis 2003 n'est plus le Clipboard de Windows, mais un presse-papier propre à Office.....

Bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
16
Affichages
4 K
Compte Supprimé 979
C
E
Réponses
3
Affichages
2 K
D
L
Réponses
11
Affichages
58 K
Champion1
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…