Ouvrir et copier texte fichier txt

Version imprimable

15/11/2018, 15h13
Marc_27

Ouvrir et copier texte fichier txt
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:

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:

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:

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
15/11/2018, 15h51
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.

Bonjour,

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

Code:

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

16/11/2018, 07h35
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