Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Presse-Papier

Presse-Papier

3 réponses
Avatar
Mousnynao
Bonjour,

une fois le chemin d'accès récupérer dans l'argument,
comment faire pour envoyer l'information dans le
presse-Papier [ ClipBoard ].

************************************************
' Renvoie le chemin d'accès dans le presse papier

Dim objArguments, objClipBoard, NomFichier

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1
WScript.Echo(objArgs(I))
Next

Wscript.quit

**********************************************

Merci d'avance
mousnynao
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabrice Canel [MSFT]
Bonjour,

En se basant sur un exemple précédemment posté:

Set oArgs = WScript.Arguments
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")


If oArgs.Count = 0 Then
MsgBox "Erreur: Vous devez fournir des arguments", vbCritical +
vbSystemModal, "Chemin d'accès"
Wscript.Quit
End If


sTotal = ""
sPrefix = ""
For i = 0 to oArgs.Count - 1
If sTotal <> "" Then
sPrefix = vbCrLf
End If
sTotal = sTotal & sPrefix & oArgs(i)
Next

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"
Do Until oIE.ReadyState=4: WScript.Sleep 1: Loop
oIE.Document.ParentWindow.ClipboardData.SetData "Text", sTotal
oIE.Quit

Cordialement,
Fabrice Canel



"Mousnynao" wrote in message
news:
Bonjour,

une fois le chemin d'accès récupérer dans l'argument,
comment faire pour envoyer l'information dans le
presse-Papier [ ClipBoard ].

************************************************
' Renvoie le chemin d'accès dans le presse papier

Dim objArguments, objClipBoard, NomFichier

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1
WScript.Echo(objArgs(I))
Next

Wscript.quit

**********************************************

Merci d'avance
mousnynao



Avatar
Mousnynao
Merci beaucoup de votre intérêt.

C'est ce que je cherchais à faire :-).

@+
mousnynao


Bonjour,

En se basant sur un exemple précédemment posté:

Set oArgs = WScript.Arguments
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")


If oArgs.Count = 0 Then
MsgBox "Erreur: Vous devez fournir des arguments", vbCritical +
vbSystemModal, "Chemin d'accès"
Wscript.Quit
End If


sTotal = ""
sPrefix = ""
For i = 0 to oArgs.Count - 1
If sTotal <> "" Then
sPrefix = vbCrLf
End If
sTotal = sTotal & sPrefix & oArgs(i)
Next

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"
Do Until oIE.ReadyState=4: WScript.Sleep 1: Loop
oIE.Document.ParentWindow.ClipboardData.SetData "Text", sTotal
oIE.Quit

Cordialement,
Fabrice Canel



"Mousnynao" wrote in message
news:
Bonjour,

une fois le chemin d'accès récupérer dans l'argument,
comment faire pour envoyer l'information dans le
presse-Papier [ ClipBoard ].

************************************************
' Renvoie le chemin d'accès dans le presse papier

Dim objArguments, objClipBoard, NomFichier

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1
WScript.Echo(objArgs(I))
Next

Wscript.quit

**********************************************

Merci d'avance
mousnynao








Avatar
disleur
Bonjour,

Je suis complètement novice en VBS et je voudrai savoir comment envoyer un
mot dans le presse papier en executant un VBS. J'ai essayé de comprendre
votre script mais en vain.

Merci beaucoup.
--
http://disleur.free.fr



Bonjour,

En se basant sur un exemple précédemment posté:

Set oArgs = WScript.Arguments
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")


If oArgs.Count = 0 Then
MsgBox "Erreur: Vous devez fournir des arguments", vbCritical +
vbSystemModal, "Chemin d'accès"
Wscript.Quit
End If


sTotal = ""
sPrefix = ""
For i = 0 to oArgs.Count - 1
If sTotal <> "" Then
sPrefix = vbCrLf
End If
sTotal = sTotal & sPrefix & oArgs(i)
Next

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"
Do Until oIE.ReadyState=4: WScript.Sleep 1: Loop
oIE.Document.ParentWindow.ClipboardData.SetData "Text", sTotal
oIE.Quit

Cordialement,
Fabrice Canel



"Mousnynao" wrote in message
news:
Bonjour,

une fois le chemin d'accès récupérer dans l'argument,
comment faire pour envoyer l'information dans le
presse-Papier [ ClipBoard ].

************************************************
' Renvoie le chemin d'accès dans le presse papier

Dim objArguments, objClipBoard, NomFichier

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1
WScript.Echo(objArgs(I))
Next

Wscript.quit

**********************************************

Merci d'avance
mousnynao