Vider en VBA le Clippboard (presse-papier) avant de quitter...

Bonjoir(c) pascal engelmajer

Le 14/06/2005 13:36 vous avez écrit ceci :

Bonjour à tous,
Afin d'automatiser complètement une procédure et éviter le message qui
me demande si je veux conserver le contenu du presse-papier...
J'aimerais vider ce dernier.
Avez-vous une procédure, ou un truc quelconque ?

Les macroteure ne vont pas tarder à se réveiller, mais en attendant, il y
a un truc qui consiste à copier un seul caractère, du coup Word ne demande
plus si l'on veut conserver le contenu du PP

Merci
Cordialement

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Bonjour à tous,
dans le message OsPSZVNcFHA.3280@TK2MSFTNGP09.phx.gbl,

| Bonjour à tous,
| Afin d'automatiser complètement une procédure et éviter le message qui
| me demande si je veux conserver le contenu du presse-papier...
| J'aimerais vider ce dernier.
| Avez-vous une procédure, ou un truc quelconque ?
| Merci
| Cordialement
| Pascal

Plusieurs solutions :

- utiliser les API relative à l'objet Clipboard :
'Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As
Long) As Long
'Private Declare Function CloseClipboard Lib "user32" () As Long
'Private Declare Function SetClipboardData Lib "user32" (ByVal
wFormat As Long, ByVal hMem As Long) As Long
'Private Declare Function EmptyClipboard Lib "user32" () As Long
ou se servir d'un DataObject comme dans :

Private Sub toto()
Set MyData = New DataObject

MyData.SetText "toto"
MyData.PutInClipboard
End Sub


--
A+

G.M. MVP Word