Discussion :

[PatriceExcel]

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 :

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

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

[Thumb down]

Code :

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

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

[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

Code :

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

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

[Thumb down]

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

[PatriceExcel]

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

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