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 :
Si j'exécute ce code, j'ai une erreur 424 Objet requis à la première ligne (Set wsh = CreateObject("WScript.Shell").Run(tempCsvPath)).
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}"
Par contre, si je fais :
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}"
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 aussi essayé :
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}"
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}"
Avez-vous une idée de comment porsuivre mon code ?
Je vous remercie par avance pour votre aide,
Cordialement,
Marc
Partager