Discussion :

[darkpocket]

bonjour

j'utilise Excel 97 sous windows NT
le sendkeys rencontre des problèmes

je fais

Code :

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

1
2
3
4
 
Shell "C:\WINNT\system32\cmd.exe", vbMaximizedFocus
Application.Wait Now + TimeValue("00:00:01")
SendKeys ("c:\sitap.bat") & "{enter}"

souvent il ne saisie pas correctement "c:\sitap.bat"

des essais ont été fait sous windows 2000 et ca marche sans problème
d'ou vient le problème?

[avigeilpro]

Il y a un autre argument de la fonction sendkeys. Peut-être devrait tu le mettre a 1.
Bon courage

[darkpocket]

merci pour vos reponses
mais ca ne marche pas

je resume mon problème
depuis Excel je dois lancer un programme via l'invite de commande dos.
Dans l'invite j'ai plusieurs info a saisir pour lancer le programme
j'ai crée un fichier bat puis j'execute ce fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Open "c:\sitap.bat" For Output As #1
Print #1, Left(ZT_adresse, 2)
Print #1, "cd " & Left(ZT_adresse, Len(ZT_adresse) - 1)
Print #1, "(echo " & NomFichier
Print #1, "echo"
Print #1, "echo) > toto"
Print #1, ZT_Sitap & " < toto"
Close #1
 
returnvalue = Shell("C:\WINNT\system32\cmd.exe", vbMaximizedFocus)
AppActivate returnvalue
SendKeys "c:\sitap.bat" & "{enter}"

ZT_adresse,ZT_Sitap et NomFichier sont des zones de texte dans mon classeur Excel.

mais comme je l'ais dis il ne saisie pas correctement le nom du fichier.
si quelq'un sait comment faire :

[HPJ]

Code :

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

1
2
3
4
5
6
7
8
9
10
Open "c:\sitap.bat" For Output As #1 
Print #1, Left(ZT_adresse, 2) 
Print #1, "cd " & Left(ZT_adresse, Len(ZT_adresse) - 1) 
Print #1, "(echo " & NomFichier 
Print #1, "echo" 
Print #1, "echo) > toto" 
Print #1, ZT_Sitap & " < toto" 
Close #1 
 
returnvalue = Shell("c:\sitap.bat", vbMaximizedFocus)

[darkpocket]

merci