Discussion :

[512banque]

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]

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]

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]

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]

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]

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