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 :
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é.
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
Ensuite, dans cette fenêtre je colle la ligne suivante et je l'exécute :
Et là mon ZIP est bien créé.
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"
Si Quelqu'un a une idée sur le pb , merci.
Sergio.
Partager