Vue qu'on peut pas le faire directement en vbs (il n'existe pas de commande spécial pour cela)

Alors voici différente technique :

Avec le CMD :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
a = "Le texte voulu ici" 'Possible de faire une inputbox ou autre celons vos besoin 
Set objShell = CreateObject("Wscript.Shell")
strCommand = "CMD /C Echo " & a & "|clip" 'et vous pouvez la remplacer par /K au lieu de /C
'wscript.echo strCommand  '<---temporairement (pour tester si la ligne de commande est correcte ou non)
resultat=objShell.Run(strCommand,1,True) '1 pour afficher la console et 0 pour la cacher
J'ai pris la base d'un script de hackoofr (merci a lui)


Avec Internet Explorer :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Copier ()
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
With .Document
While Not .ReadyState="complete":WScript.Sleep 100:Wend
.ParentWindow.ClipboardData.SetData "Text",quoi
End With
End With
End Sub
 
Quoi = "Le texte a mettre dans le presse papier ici" 
Call Copier ()