Presse-papier

Le
milloche
Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS passer par
la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20011821
bonjour Milloche,

oui, on doit le faire en deux étapes.
la première étape est de mettre le texte dans une variable DataObject
et la deuxième de charger le DataObject dans le presse-papiers de Windows

Dim DataObj As New MSForms.DataObject
Dim S As String
S = "Hello World"
DataObj.SetText S
DataObj.PutInClipboard

isabelle (ps/ merci à CPearson
http://www.cpearson.com/Excel/clipboard.aspx)

milloche a écrit :
Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS passer par
la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.





FS
Le #20011911
Bonjour,

Oui, c'est possible. Pour du texte uniquement (mais on peut passer
n'importe quoi en string et le reconvertir ensuite).
Quelques exemples :

http://frederic.sigonneau.free.fr/code/Excel/UtiliserPressePapiers.txt
http://frederic.sigonneau.free.fr/code/Objets/ExempleDataObject.txt

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

milloche a écrit :
Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS passer par
la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.




milloche
Le #20011991
Bonjour Isabelle
Pas trop compris.
Pas de sub ou end sub
Et ou je les met ces 4 lignes ?
<]:o))

"isabelle" a écrit dans le message de news:

bonjour Milloche,

oui, on doit le faire en deux étapes.
la première étape est de mettre le texte dans une variable DataObject
et la deuxième de charger le DataObject dans le presse-papiers de Windows

Dim DataObj As New MSForms.DataObject
Dim S As String
S = "Hello World"
DataObj.SetText S
DataObj.PutInClipboard

isabelle (ps/ merci à CPearson
http://www.cpearson.com/Excel/clipboard.aspx)

milloche a écrit :
Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS passer
par la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.







isabelle
Le #20011981
ps/

il faut ajouter la référence à Microsoft Forms 2.0 Object Library
(FM20.DLL)

isabelle

isabelle a écrit :
bonjour Milloche,

oui, on doit le faire en deux étapes.
la première étape est de mettre le texte dans une variable DataObject
et la deuxième de charger le DataObject dans le presse-papiers de Windows

Dim DataObj As New MSForms.DataObject
Dim S As String
S = "Hello World"
DataObj.SetText S
DataObj.PutInClipboard

isabelle (ps/ merci à CPearson
http://www.cpearson.com/Excel/clipboard.aspx)

milloche a écrit :
Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS
passer par la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.







isabelle
Le #20011971
bonjour Milloche,

Sub Macro1()
Dim DataObj As New MSForms.DataObject
Dim S As String
S = "Hello World"
DataObj.SetText S
DataObj.PutInClipboard
Range("A1") = DataObj.GetText
End Sub

et il faut ajouter la référence à Microsoft Forms 2.0 Object Library
(FM20.DLL)

isabelle

isabelle

milloche a écrit :
Bonjour Isabelle
Pas trop compris.
Pas de sub ou end sub
Et ou je les met ces 4 lignes ?
<]:o))

"isabelle" a écrit dans le message de news:


bonjour Milloche,

oui, on doit le faire en deux étapes.
la première étape est de mettre le texte dans une variable DataObject
et la deuxième de charger le DataObject dans le presse-papiers de Windows

Dim DataObj As New MSForms.DataObject
Dim S As String
S = "Hello World"
DataObj.SetText S
DataObj.PutInClipboard

isabelle (ps/ merci à CPearson
http://www.cpearson.com/Excel/clipboard.aspx)

milloche a écrit :

Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS passer
par la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.













milloche
Le #20012171
Comme le riz Oncle Bens, incollable.
Merci tous les deux.
Bonne chance à Misange pour EXELABO !
Bye

"FS"
Bonjour,

Oui, c'est possible. Pour du texte uniquement (mais on peut passer
n'importe quoi en string et le reconvertir ensuite).
Quelques exemples :

http://frederic.sigonneau.free.fr/code/Excel/UtiliserPressePapiers.txt
http://frederic.sigonneau.free.fr/code/Objets/ExempleDataObject.txt

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

milloche a écrit :
Bonjour le forum
Peut-on, par macro, entrer une valeur dans le presse-papier SANS passer
par la fonction copier.
Genre presse-papier="toto" ou presse-papier V,40 ou
presse-papier)/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.





Publicité
Poster une réponse
Anonyme