Fin d'un processus shell avec VBA7 Excel

Bonjour,

J'aimerais savoir comment on peut programmer la fin d'une fonction shell avec VBA7 pour excel (64bits).
J'ai bien trouver pour du 32 bits...
Voici la commande shell :

Code:

---

1 2 3 4 5 6

Sub Transfert_aller()   Dim LANCE As Variant .... LANCE = Shell("C:\test.bat", vbMaximizedFocus) ...

---

https://docs.microsoft.com/fr-fr/off...shell-function
Je ne peux pas identifier si la fonction shell a fini son travail..si qq peut bien m'aider

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Enum ConstantesWScript Hides original minimized maximized End Enum Sub test() With CreateObject("WScript.Shell") .Run "notepad.exe", minimized, True 'True/False Attend la fin du Shell OUI/NON End With End Sub

---

Merci beaucoup pour la réponse cela fonctionne pour le lancement d'une application comme notepad.exe mais pour une commande shell d'un fichier bat comment faire .

A vous lire

Citation:

---

Envoyé par Thumb down

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Enum ConstantesWScript Hides original minimized maximized End Enum Sub test() With CreateObject("WScript.Shell") .Run "notepad.exe", minimized, True 'True/False Attend la fin du Shell OUI/NON End With End Sub

---

---

Bonjour,
Pareil tu replace "notepad.exe" par "C:\test.bat"

Bonjour,

J'ai bien essayé de remplacer notepad.exe par mon fichier .bat mais ça ne lance pas le fichier. La valeur de minimized=2 la ligne de commande est lue mais inactive. Je précise que je travaille avec VB7 pour excel et que j'ai un 64b le langage est un peu différent je pense est-ce que cette ligne de commande est adaptée ?

A vous lire et merci encore de l'aide

Citation:

---

Envoyé par PatriceExcel

Merci beaucoup pour la réponse cela fonctionne pour le lancement d'une application comme notepad.exe mais pour une commande shell d'un fichier bat comment faire .

A vous lire

---