Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Comment vider le presse-papier par une macro ou une commande vba

378 views
Skip to first unread message

Purenergy

unread,
May 29, 2010, 4:09:01 PM5/29/10
to
Je me sert du presse-papier dans plusieurs macro et mon bug est que lors de
l'exécution de mes macros on demande toujours si on veut garder l'info sur le
presse-papier.
Je voudrais ajouter une commande VBA qui éliminerait le contenu du
presse-papier après chaque copie.
Merci à l'avance

Daniel.C

unread,
May 29, 2010, 4:18:10 PM5/29/10
to
Bonsoir.
Qu'est ce que tu as dans le presse-papiers, des cellules ou des images
?
Cordialement.
Daniel

> Je me sert du presse-papier dans plusieurs macro et mon bug est que lors de

> l'exï¿œcution de mes macros on demande toujours si on veut garder l'info sur le
> presse-papier.
> Je voudrais ajouter une commande VBA qui ï¿œliminerait le contenu du
> presse-papier aprï¿œs chaque copie.
> Merci ￜ l'avance


michdenis

unread,
May 29, 2010, 5:34:12 PM5/29/10
to
Bonjour,

Dans le haut d'un module standard, déclaration des API

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

'---------------------
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
'---------------------

à chaque fois que tu veux vider le presse-papier, tu appelles
la procédure "Vider_Presse_Papier"

"Purenergy" <Pure...@discussions.microsoft.com> a écrit dans le message de
groupe de discussion : A4E7E3FD-93EC-4074...@microsoft.com...

Fredo P.

unread,
May 30, 2010, 2:22:39 AM5/30/10
to
� br�le pourpoint cette macro vide le presse-papier � condition qu'il y
existe, dans la plage, une cellule vide.
Sub Macro1()
[A1:E1000].CurrentRegion.Find("").Copy
Application.CutCopyMode = False
End Sub

"Daniel.C" <dcolard...@gmail.com> a �crit dans le message de news:
%23AnNPw2$KHA....@TK2MSFTNGP05.phx.gbl...


> Bonsoir.
> Qu'est ce que tu as dans le presse-papiers, des cellules ou des images ?
> Cordialement.
> Daniel
>
>> Je me sert du presse-papier dans plusieurs macro et mon bug est que lors

>> de l'ex�cution de mes macros on demande toujours si on veut garder l'info
>> sur le presse-papier.
>> Je voudrais ajouter une commande VBA qui �liminerait le contenu du
>> presse-papier apr�s chaque copie.
>> Merci � l'avance
>
>


Jean-Claude

unread,
May 30, 2010, 1:56:04 AM5/30/10
to

"Purenergy" <Pure...@discussions.microsoft.com> a �crit dans le message de
news: A4E7E3FD-93EC-4074...@microsoft.com...

> Je me sert du presse-papier dans plusieurs macro et mon bug est que lors
> de
> l'ex�cution de mes macros on demande toujours si on veut garder l'info sur
> le
> presse-papier.

> Je voudrais ajouter une commande VBA qui �liminerait le contenu du
> presse-papier apr�s chaque copie.
> Merci � l'avance

Bonjour,
j'utilise tout les jours une macro avec copie dans le presse-papier, mais
sans avoir besoin de le vider. Cela d�pend peut-etre de la mani�re dont tu
le remplis ? Pour info, j'utilise la m�thode suivante :

Dim DataObj As New MSForms.DataObject
' copier la concatenation des 3 cellules dans le presse-papier
' NB: dans VB, menu Outils/R�f�rences, mettre Microsoft Forms 2.0 object
library
myStr = Cells(r, 2).Value & "-" & Cells(r, 3).Value & "-" & Cells(r,
4).Value
DataObj.SetText myStr
DataObj.PutInClipboard

Cordialement,
JC


0 new messages