Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Presse-papier

6 réponses
Avatar
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 =56,40 ou
presse-papier=29/08/09
Puis la coller par les moyens habituels.
Encore une drôle de question,non?
Merci.

6 réponses

Avatar
isabelle
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.





Avatar
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.




Avatar
milloche
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.







Avatar
isabelle
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.







Avatar
isabelle
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.













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

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

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.