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 clipboard et vbs

clipboard et vbs

5 réponses
Avatar
gil
bonjour
comment peut on utiliser le clipboard dans vbscript (.vbs) ?
(creation de l'objet, methode et propriete)
merci
Signaler un problème avec ce contenu

5 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
Philippe T [MS]
Bonjour,

http://faq.vb.free.fr/index.php?question=6

Phil.
________________________________________________________
Philippe TROTIN http://blogs.msdn.com/ptrotin
Microsoft Services France http://www.microsoft.com/france

"gil" wrote in message
news:41c41897$0$10237$
bonjour
comment peut on utiliser le clipboard dans vbscript (.vbs) ?
(creation de l'objet, methode et propriete)
merci




Avatar
Jean
Bonjour,

En VB ... mais pas en VBScript.
Pour faire joujou avec le presse papier en automation, sans avoir recours à un ocx tiers, on peut utiliser l'objet clipboardData du
dhtml.
Les seuls formats supportés sont les formats texte et lien :

clipboardData Object :
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/clipboarddata.asp

Pour le faire en VBScript dans un contexte local on peut passer par l'objet Internet.Application pour y accéder via un script
WSH/VBS ou directement dans un fichier HTA.

Exemple de routine utilisant InternetExplorer.Application pour copier du texte :

http://automation.eu.tf/Copier_Texte.vbs
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---
Copier "Texte à copier"

Sub Copier_Texte(quoi)
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
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---

Amicalement,

Jean - JMST
Belgium

"Philippe T [MS]" a écrit dans le message de news:
Bonjour,

http://faq.vb.free.fr/index.php?question=6

Phil.
________________________________________________________
Philippe TROTIN http://blogs.msdn.com/ptrotin
Microsoft Services France http://www.microsoft.com/france

"gil" wrote in message
news:41c41897$0$10237$
bonjour
comment peut on utiliser le clipboard dans vbscript (.vbs) ?
(creation de l'objet, methode et propriete)
merci








Avatar
Jean
Une petite erreur dans la première ligne de test.
Voici le script "corrigé" :

http://automation.eu.tf/Copier_Texte.vbs
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---
Copier_Texte "Texte à copier"

Sub Copier_Texte(quoi)
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
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---

Amicalement,

Jean - JMST
Belgium
Avatar
Jean
Encore une ligne pour que la routine soit complète et portable :-)

'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---
Copier_Texte "Texte à copier"
WScript.Echo "Ouvrir Notepad et faire Edition/Coller."

Sub Copier_Texte(quoi)
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
With .Document
While Not .ReadyState="complete":WScript.Sleep 100:Wend
.ParentWindow.ClipboardData.SetData "Text",quoi
End With
.Quit
End With
End Sub
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---

Amicalement,

Jean - JMST
Belgium

"Jean" <http:// a écrit dans le message de news:
Une petite erreur dans la première ligne de test.
Voici le script "corrigé" :

http://automation.eu.tf/Copier_Texte.vbs
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---
Copier_Texte "Texte à copier"

Sub Copier_Texte(quoi)
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
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---

Amicalement,

Jean - JMST
Belgium



Avatar
gil
merci pour l'info


"Jean" <http:// a écrit dans le message de news:

Encore une ligne pour que la routine soit complète et portable :-)

'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---
Copier_Texte "Texte à copier"
WScript.Echo "Ouvrir Notepad et faire Edition/Coller."

Sub Copier_Texte(quoi)
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
With .Document
While Not .ReadyState="complete":WScript.Sleep 100:Wend
.ParentWindow.ClipboardData.SetData "Text",quoi
End With
.Quit
End With
End Sub
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---

Amicalement,

Jean - JMST
Belgium

"Jean" <http:// a écrit dans le message de news:


Une petite erreur dans la première ligne de test.
Voici le script "corrigé" :

http://automation.eu.tf/Copier_Texte.vbs
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---
Copier_Texte "Texte à copier"

Sub Copier_Texte(quoi)
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
'---8<---Copier_Texte.VBS---Jean-JMST-Belgium---

Amicalement,

Jean - JMST
Belgium