Code pour vider le presse-papier

Bonjour,

est il possible de vider le press-papier avec un code dans une macro?

merci

Bonjour

Cela dois suffire

Sub Pressepapier()
Application.CutCopyMode = False
End Sub

Salut le forum

A supprimer le code était pour VB6 et non VBA

Mytå

came met:

type défini par l'utilisateur non defini

sur cette phrase:

Dim oDataObject As DataObject

RE

Peut être de cette façon

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 Commande0_Click()

OpenClipboard 0

EmptyClipboard

CloseClipboard

End Sub

comment on l'incorpore au fichier?

re

Tu met la macro dans un module et ensuite tu peux mettre un bouton sur ta feuille pour lancer la macro

Bonsoir à tous,

Je profite de ce fil pour poser une question,

ou trouve t-on l'état du presse-papier ? dans le panneau de config. je ne vois pas !

J'ai parfois le message "mémoire insuffisante",

çà pourrait peut-être venir du presse-papier ?

amicalement

Claude.

édit:Salut Mytå, j'ai le même message d'erreur sur ton code.

Bonjour

Il me semble qu'avec Word 2003, nous pouvons voir ce qui se trouve dans le presse papier ( sur la droite de l'ecran lorsque lon veux coller on à le choix des elements se trouvant dedans). Je n'ai pas fais le test car sur mon portable je n'ai pas Word.

bonjour,

je doit etre nul mais ca marche pas!

Re

regarde si cela te convient?

selectionne quelques cellules et fais une copie de ces cellules, à ce moment tu auras cette zone en surbrillance ( prête à être collé ) et ensuite click sur le bouton tu verras que la zone en surbrillance n'existe plus.

https://www.excel-pratique.com/~files/doc/classement.zip

Bonjour,

personnellement, la seule manière que j'ai trouvé pour vider le presse-papier est manuelle

tu cliques sur Affichage/Volet Office

puis sur la flèche, à droite de Accueil, en haut, tu sélectionnes Presse-Papier, et "Effacer Tout"

Je n'ai pas trouvé de code permettant d'effacer tout ce que contenait le presse-papier

Bonjour à tous,

CB60, Je viens de tester

Sub Commande0_Click() 

çà ne vide pas le presse-papier, désolé !

et dommage !

amicalement

Claude.

Re

Claude peux tu essayer ce code ( PierreJean excel download)

Sub videpressepapier()

Application.CommandBars("Clipboard").Visible = True

On Error Resume Next

Application.CommandBars("Clipboard").Controls(4).Execute

On Error GoTo 0

Application.CommandBars("Clipboard").Visible = False

End Sub

re,

CB60,

Alors là, çà marche !

Je mets ce code de coté.

merci à toi et à Pierre-jean

Claude.

Re-,

pour info, ce code ne fonctionne pas sous Excel2003, ni Excel2007

re

Surpris Felix par ton info, car j'ai fais les tests sous excel 2003 et chez moi cela fonctionne.

A suivre!!!

Re-,

sous 2003, lorsque tu ouvres le volet Office, comme indiqué plus haut, est-ce que ta solution vide le presse-papier?

Chez moi, elle ne fait que supprimer le scintillement, mais le presse-papier reste complet...

Bonjour

chez moi, (excel 2003), pareil que félix, ca n'arette que le scintillement mais le presse-papier reste plein.

Salut tout le monde,

Ce fil m'a interpellé car je trouvais cette question interessante et le code utile pour certaines applications que j'ai créé pour mon entreprise, mais il ne fonctionne pas chez moi non plus... ni sur 2003, ni sur 2007...

Quel dommage, si vous trouvez un code ayant la même fonction, je suis preneur,

A+

Souri84