Discussion :

[Marc_27]

Bonjour,

Je suis en train de développer un script où j'ai besoin de copier le texte d'un fichier txt (ctrl+a / ctrl+c).

Pour le faire, je suis en train de faire le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wsh = CreateObject("WScript.Shell").Run(tempCsvPath)
WScript.Sleep 500 
SendKeys "^{a}"
SendKeys "^{c}"

Si j'exécute ce code, j'ai une erreur 424 Objet requis à la première ligne (Set wsh = CreateObject("WScript.Shell").Run(tempCsvPath)).

Par contre, si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
On Error Resume Next
Set wsh = CreateObject("WScript.Shell").Run(tempCsvPath)
On Error GoTo 0
WScript.Sleep 500 
SendKeys "^{a}"
SendKeys "^{c}"

J'ai bien mon fichier txt qui s'ouvre (avec notepad.exe), mais j'ai ensuite l'erreur 13 Type incompatible à la ligne SendKeys "^{a}"

J'ai aussi essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
On Error Resume Next
Set wsh = CreateObject("WScript.Shell").Run(tempCsvPath)
On Error GoTo 0
WScript.Sleep 500 
wsh.SendKeys "^{a}"
wsh.SendKeys "^{c}"

Mais là j'ai l'erreur 438 Cet objet ne gère pas cette propriété ou cette méthode à la même ligne wsh.SendKeys "^{a}"


Avez-vous une idée de comment porsuivre mon code ?
Je vous remercie par avance pour votre aide,

Cordialement,
Marc

[ProgElecT]

Salut

Tu tiens vraiment à passer par du SendKeys ? (technique dangereuse, pas sûr du tout), tu pourrais ouvrir le fichier et l'enregistrer dans une variable, et si tu tiens à le passer dans le presse papier, recherches clipboard dans ce forum, les 2 premières discussion trouvées te donneront la solution.

[Cachlab]

Bonjour,

Si tu tiens vraiment au Sendkeys, ça donne quelquechose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim objFSO, Wsh, tempCsvPath
 
tempCsvPath = ".\fichier.txt"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Wsh = CreateObject("wScript.Shell")
 
if(objFSO.FileExists(tempCsvPath)) Then 
	Wsh.Run("notepad "& tempCsvPath)
	WScript.Sleep 500 
	Wsh.SendKeys "^{a}"
	Wsh.SendKeys "^{c}"
End if

++

[Marc_27]

Bonjour,

Merci pour vos retours

En effet je ne suis pas attaché au sendkeys, je travaille actuellement sur un projet SAP et je cherchais à réproduire les actions des utilisateurs de façon automatisé (avec CBTA/ VBS). Nous sommes un peu en retard avec ce projet, et pour le moment j'ai trouvé une autre solution qui serait de passer par l'import direct de mon fichier texte.

Par contre je m'engage à tester vos solutions et à revenir pour dire s'elles marchent ou pas.

Encore une fois merci pour votre aide,

Cordialement,
Marc