Bonjour,
j'ai un probléme pour lancer un exécutable à partir de VB à l'aide de la commande Shell. Je sais que le sujet a déjà été traité ( http://www.developpez.net/forums/m541229-12/ )
Dans mon cas, il n'y a pas d'erreurs mais il ne se passe rien !

Le but est de zipper des fichiers. J'utilise WinZip en command line (WZZIP.exe). Si j'exécute la ligne moi-même la commande dans une fenêtre de commande, cela fonctionne bien. Mais pas via le VB.

Mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ChDrive ("D")
ChDir ("D:\DirA")
cmd = "cmd.exe ""C:\Program Files\WinZip\WZZIP.exe"" ""Mon Fichier.zip"" ""Nouveau Fichier1.xls"" ""Nouveau Fichier2.xls"" "
Shell cmd,vbMinimizedFocus
Je me retrouve avec une fenêtre DOS , et je suis bien dans la directory D:\DirA . Mais aucune trace de zip. A priori WZZIP.EXE n s'est pas exécuté.

Ensuite, dans cette fenêtre je colle la ligne suivante et je l'exécute :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  "C:\Program Files\WinZip\WZZIP.exe" "Mon Fichier.zip" "Nouveau Fichier1.xls" "Nouveau Fichier2.xls"
Et là mon ZIP est bien créé.

Si Quelqu'un a une idée sur le pb , merci.

Sergio.