Discussion :

[ABOAT]

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 ()

[merlenoir]

Bonjour,

J'ai été confronté à ce problème, mais l'ai résolu en utilisant InputBox au lieu de MsgBox, en effet InputBox() permet de proposer une chaîne par défaut 'defaut', soit explicite soit implicite (variable) :
nomquelconque = inputbox("message", "titre", "defaut", placement X, placement Y)

Il suffit d'instancier une variable quelconque pour faire apparaître la chaîne de caractère qui néanmoins demandera un 'copier/coller' manuel mais pouvant rendre service ici si on restitue le contenu (d'une variable qui plus est).

pathCopCol=InputBox("copier/coller du chemin à inscrire dans menu ","Menu: Path",PathCible&NomFichNew.Name)