Vider le presse-papier avec vba sous excel 2003

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Vider le presse-papier avec vba sous excel 2003

Thierry_94

Bonjour,
Je recherche une méthode efficace pour vider le presse-papier avec excel 2003
(l'api windows emptyclipboard ne donne pas le resultat attendu ...)
Merci d'avance !

Publicité

kiki29

sous 2002 cela marche ( sous 2003 à tester )
Placer dans un Module

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

et dans un WorkBook

Sub Tst()
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Sub

Thierry_94

Kiki29 merci pour ta réponse, mais j'ai essayé et cela ne fonctionne pas avec Excel 2003

seniorpapou

Bonjour,
trois adresses:

http://www.excelabo.net/xl/applica [...] essepapier

http://dj.joss.free.fr/faq.htm#pressep

http://dj.joss.free.fr/presspap.htm#presse7

Cordialement

Thierry_94

Seniorpapou,
Avant de poster ma question, j'avais déjà fait le tour sur Internet, trouvé et essayé toutes ces solutions. Aucunes d'entre-elles ne fonctionnent efficacement avec Office 2003.
Merci quand même pour votre aide

seniorpapou

Bonjour,
quel presse-papiers utilises tu ?
office ou windows?
si c'est office as-tu essayé d'enregistrer une macro en faisant la séquence effacer tout du presse-papiers?
ceci à tout zazar parce que je n'ai pas office 2003
@+

Thierry_94

Bonjour,
Je ne choisis pas vraiment le presse-papier car je fais uniquement copier et coller. Par contre tout ce qui est copié arrive dans le presse-papier Office (car pour le voir j'utilise le volet office d'Excel). J'ai essayé l'enregistrement de macro mais cela ne genère aucun code !
L'utilisation des astuces "CutCoyMode" et "EmptyClipboard" n'ont aucun effet sur ce presse-papier.

seniorpapou

Bonjour,
Exact, le cutcopymode etc.. ne jouent que sur le presse papier windows, j'ai l'impression que pour vider celui d'office la seule solution est le clic sur effacer tout. Par contre on peut le rendre invisible, c'est tout ce que j'ai pu trouver pour toi.
Cordialement

Veve35

Bonjour!

Après être tombé sur ce sujet puis un autre, voici une solution trouvé sur un autre forum :

Citation :

le "application.cutcopymode=false" arrête le mode cut copy, mais ne vide pas le presse papier, faite plusieur copier coller et excel stock les anciens copier dans le presse papier.
Afin de vider le contenu total du presse papier, utilise le code suivant;

Sub ClearClipboard()
Dim oDataObject As DataObject

Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard

Set oDataObject = Nothing
End Sub

Voilà qui devrait aider

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Vider le presse-papier avec vba sous excel 2003

Sujets relatifs
Excel vers XML	Extraire avec excel un fichier prospect
Extraire avec excel un fichier prospect	Programme pour trie sur Excel...HELP!!!
VBA EXCEL : détecter mise en forme texte (gras, italique)	Formule Excel faisant reference à une feuille pas encore crée ? ? ? ..
EXCEL: Liste on the go ...	[excel vba] mise à jour données
envoie de fichiers Excel par mails	EXCEL VBA - Bug pour affecter valeurs dans tableau
Plus de sujets relatifs à : Vider le presse-papier avec vba sous excel 2003

Page générée en 0.057 secondes