Argument ou appel de procédure incorrect lors du lancement d'un .bat

**512banque** · 17/10/2007, 18h30

Bonjour à tous,

Voici mon code :

Code :

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

1
2
3
Sub tesat()
ret = Shell("C:\Documents and Settings\All Users\Bureau\toto.bat", 1)
End Sub

Mon problème est que Excel me renvoie automatiquement une erreur de type "argument ou appel de procédure incorrect ".

Le fichier existe bien, etc.

Le truc étonnant c'est qu'il me fait pas cette erreur lorsque je mets le .bat à la racine par exemple.

Merci pour votre aide.

**jfontaine** · 17/10/2007, 19h02

et si tu lances le bat en double cliquant dessus, ca fonctionne? (dans le répertoire qui te pose problème evidemment

**ouskel'n'or** · 17/10/2007, 19h17

Code :

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

1
2
3
Sub tesat()
ret = Shell("cmd /c C:\Documents and Settings\All Users\Bureau\toto.bat", 1)
End Sub

tu peux tester ça pour moi ?

**512banque** · 17/10/2007, 21h18

jfontaine > Tout marche correctement lorsque je lance le .bat depuis le dossier directement.

ouskel'n'or > Ca ne marche pas. Une fenêtre de commande s'ouvre et je n'ai pas le temps de voir ce qu'il y a écrit dessus.

J'ai essayé de faire une photo d'écran et ça a donné ça.

**512banque** · 17/10/2007, 21h41

Je voulais isoler seulement la partie du code où s'arrêtait le débogueur, mais j'ai testé le code dans la forme où je vous l'ai proposé et ça a marché, donc vous ne pouviez pas trouver l'erreur

désolé je croyais bien faire.

Voici le code complet qui pose problème :

Je précise que tout se passe parfaitement sauf lorsqu'il s'agit de lancer le .bat.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub CreerArchive()
 
'Copie du fichier dans le dossier temporaire
SourceFichier = Cells(3, 1).Hyperlinks(1).Address ' Définit le nom et le chemin du fichier source.
If Not (RepertoireExiste("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\")) Then MkDir "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\" Else
DestinationFichier = "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\" & Dir(SourceFichier) ' Définit le nom du fichier et le nouveau chemin (ici E:\new) cible.
FileCopy SourceFichier, DestinationFichier ' Copie le fichier source dans le fichier cible.
 
'Creation du fichier de liste contenant la liste des archives à archiver
Set FSys = CreateObject("Scripting.FileSystemObject")
Set fichier_contenant_la_liste = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\backup.lst")
Set compression = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\compression.bat")
 
'Rentrer la liste des fichiers
With fichier_contenant_la_liste 'Pour écrire dans le fichier texte
.writeLine Dir(SourceFichier) 'Mettre write pour ne pas sauter à la ligne
End With
 
'Créer l'exécutable
With compression 'Pour écrire dans le fichier texte
.writeLine "rar a backup @backup.lst" 'Mettre write pour ne pas sauter à la ligne
End With
 
'Lancer le coco
ret = Shell("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\compression.bat", 1)
 
End Sub

**ouskel'n'or** · 17/10/2007, 22h07

Ce n'est pas le code que je t'ai donné qui ne fonctionne pas, c'est ton . bat !
Ajoute simplement

Code :

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

Pause

en dernière ligne de ton bat et rappelle-nous

**512banque** · 17/10/2007, 23h44

En haut la fenêtre qui correspond au .bat lancé via la macro...
En bas, la fenêtre qui correspond au .bat lancé en double cliquant dessus...

Le bat fonctionne parfaitement quand je le lance de manière classique, mais la question c'est pourquoi il se sent obligé de lancer cette invite de commande dans "mes documents" ?

Je fais appel à rar.exe qui est dans le dossier spécifié dans la macro.. C'est sur qu'il est pas dans mes documents

Merci en tout cas

**jfontaine** · 18/10/2007, 08h26

J'ai peut être une piste.

Lorsque tu lances le bat directement, tu es dans l'environnement du répertoire du bat.
Quand tu le lance avec ton programme, le systeme est dans l'environnement du répertoire du programme et non du bat

Je crois que la commande pour se mettre dans le répertoire c'est chdir.
Ne pas oublier de le replacer dans le repertoire du programme après execution du bat

**ouskel'n'or** · 18/10/2007, 08h49

Comme tu n'en parles pas, je suppose que tu as utilisé ma ligne de commande... si le .bat est lancé. Merci de le confirmer, je pourrai t'aider à continuer.

**512banque** · 18/10/2007, 10h20

ous'keln'or > quand je lance ton code, j'ai une fenêtre d'invite ms-dos qui apparaît subrepticement et qui disparaît. J'ai essayé de la (re)prendre en impr. écr. et ça m'a donné ça :

jfontaine > oui je sentais bien un truc comme ça et c'est effectivement ce qui s'est passé : j'ai mis

Code :

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

ChDir "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\"

juste avant ma ligne de lancement de bat et ça a marché.

Par contre, je n'ai pas compris lorsque tu as écrit

Ne pas oublier de le replacer dans le repertoire du programme après execution du bat

J'attends juste cette réponse avant de pouvoir mettre "résolu"

Merci à vous en tout cas.

PS : ous'keln'or si tu as une autre solution elle est la bienvenue également.

Edit : wouups, il semblerait que ça marche lorsque je mets seulement ces 2 lignes de code dans un Sub à part (càd lorsque je fais une macro exprès pour ça), mais dès que je les mets à la suite de la grosse macro qui copie et qui zippe, ça plante et ça redonne la même erreur que d'habitude : Argument ou appel de procédure incorrect.

Edit 2 : J'ai essayé de décomposer la macro, en ajoutant petit à petit les étapes pour voir à quelle ligne de code ça planterait. Il semble que le message d'erreur apparaît dès que je mets ces 3 lignes de code :

Code :

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

1
2
3
4
'Creation du fichier de liste contenant la liste des archives à archiver
Set FSys = CreateObject("Scripting.FileSystemObject")
Set fichier_contenant_la_liste = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\backup.lst")
Set compression = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\compression.bat")

**jfontaine** · 18/10/2007, 10h34

en gros il faut replacer l'environnement dans le répertoire du classeur

Code :

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

chdir ActiveWorkbook.Path

**512banque** · 18/10/2007, 10h41

Bon, j'ai viré ces 3 lignes de codes qui avaient l'air daubées.

Voici mon code final qui fonctionne très bien. Merci beaucoup pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub tesat()
'Copie du fichier dans le dossier temporaire
SourceFichier = Cells(3, 1).Hyperlinks(1).Address ' Définit le nom et le chemin du fichier source.
If Not (RepertoireExiste("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\")) Then MkDir "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\" Else
DestinationFichier = "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\" & Dir(SourceFichier) ' Définit le nom du fichier et le nouveau chemin (ici E:\new) cible.
FileCopy SourceFichier, DestinationFichier ' Copie le fichier source dans le fichier cible.
 
 
'Rentrer la liste des fichiers
 
'Crée et ouvre le fichier backup.lst
Open "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\backup.lst" For Output As #1
'Ecrit Mon Texte dans le fichier
Print #1, Dir(SourceFichier)
'Ferme le fichier
Close #1
 
'Crée et ouvre le fichier compression.bat
Open "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\compression.bat" For Output As #2
'Ecrit Mon Texte dans le fichier
Print #2, "rar a backup @backup.lst"
'Ferme le fichier
Close #2
 
 
'Lancer le coco
ChDir "C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\" 'se placer dans le répertoire déjà, très important !!
ret = Shell("C:\Documents and Settings\All Users\Bureau\Dossier Temporaire\compression.bat") 'lancer le bat !
ChDir ActiveWorkbook.Path 'replacer l'environnement dans le répertoire du classeur
 
 
End Sub

**thomcat** · 17/03/2008, 17h23

Merci pour ce sujet intéréssant qui m'aura permis de résoudre le problème de l'éxécution des fichiers .BAT.

Solution évoquée : il faut effectivement se placer dans le dossier où se trouve le fichier .BAT à éxécuter avant de le lancer.

Un petit "RESOLU" s'il vous plait ?

Argument ou appel de procédure incorrect lors du lancement d'un .bat

Macros et VBA Excel

Discussions similaires

Partager

Partager