Discussion :

[AstroZelda]

Bonjour à toutes et à tous,

Je suis nouveau avec vbscript, donc il se peut que mon erreur soit stupide. Je vous prie de ne pas trop m'en vouloir

J'ai un document excel contenant une macro. Cette dernière effectue 5 opérations :

1. Récupérer le chemin du script de déplacement
2. Récupérer le chemin du classeur excel
3. Récupérer le chemin du dossier de destination
4. Lancer le script de déplacement avec le chemin du classeur et du dossier de destination en arguments
5. Fermer le classeur excel

Je précise alors que le nom de mon dossier principal contient un espace.
Ainsi dans ma macro l'appel du script est le suivant :

Code :

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

1
2
strAppel = "WScript """ & strCheminScript & """ """ & strCheminClasseur & """ """ & strCheminDestination & """"
Shell strRunScript

Après débug et vérification des variables, tout me semble correct, du moins les chemins sont correctement formatés et entre guillemets.

Maintenant, voici le code du script de déplacement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
WScript.Sleep 1000 'Afin de laisser au classeur le temps de se fermer
 
Dim obj
Dim fileIni
Dim foldDesti
 
fileIni = WScript.Arguments(0)
foldDesti = WScript.Arguments(1)
 
If obj.FileExists(fileIni) Then
    obj.MoveFile fileIni, foldDesti
End If

Ceci étant, lancer la macro a pour finalité de lancer le script correctement, de fermer le classeur, mais ensuite il crashe, prétextant un chemin d'accès introuvable, ciblant le caractère 2 de la ligne 11 comme source de l'erreur. Pourtant, les chemins des arguments sont tout ce qu'il y a de plus correct...

J'ai essayé avec des guillemets dans cette ligne mais l'erreur devient "nom ou numéro de fichier incorrect".

Je pense que ce problème serait réglé en retirant l'espace dans le nom de dossier, mais je dois parer à cette éventualité..

Merci de votre aide,

François

[l_autodidacte]

et Bienvenu sur DVP

Une chose que je n'arrive pas à comprendre : comment cette ligne(10) Set obj.FileExists(fileIni) Then n'a pas été mentionnée comme étant source d'erreurs ?

Elle devrait être If obj.FileExists(fileIni) Then.

D'autre part, dans le premier code, il me semble que tu dois essayer avec :

Code :

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

1
2
strAppel = "WScript.exe """ & strCheminScript & """ """ & strCheminClasseur & """ """ & strCheminDestination & """" 
Shell strRunScript

en ajoutant l'extension de Wscript.

Si, après avoir appliquée des modifications répondant à ces remarques, le problème persiste, il faudra utiliser le nom court du chemin des différents fichiers. Voici un exemple :

Code :

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

1
2
3
Set  fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.GetFile("C:\Program Files\Windows NT\Accessoires\wordpad.exe") ' Chemin comportant des espaces et des noms longs
Msgbox F.ShortPath  ' Récupération du nom court du chemin complet

[AstroZelda]

Une chose que je n'arrive pas à comprendre : comment cette ligne(10) Set obj.FileExists(fileIni) Then n'a pas été mentionnée comme étant source d'erreurs ?

Elle devrait être If obj.FileExists(fileIni) Then.

Désolé, c'est en recopiant à la main que j'ai fait cette erreur

De ce que j'observe, rajouter l'extension au bout de wscript ne change rien au schmilblick, car dans mes tests je vérifiais les arguments en les plaçant dans un wscript.echo, et ça fonctionnait très bien sans le .exe.

Le ShortPath me semble être une bonne idée, j'essaye ça à la première heure demain


ProgElect : Je ne pense pas, le but ici est de mettre des guillemets dans la chaîne. "" reviendrait à ne rien ajouter...

[AstroZelda]

il faudra utiliser le nom court du chemin des différents fichiers. Voici un exemple :

Code :

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

1
2
3
Set  fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.GetFile("C:\Program Files\Windows NT\Accessoires\wordpad.exe") ' Chemin comportant des espaces et des noms longs
Msgbox F.ShortPath  ' Récupération du nom court du chemin complet

Au final ça a fonctionné comme un charme ! Merci beaucoup

Je poste tout de même le code final si ça intéresse quelqu'un :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Wscript.Sleep 1000
 
Dim fso
Dim fileIni
Dim foldDesti
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileIni = fso.GetFile(Wscript.Arguments(0))
Set foldDesti = fso.GetFolder(Wscript.Arguments(1))
 
If fso.FileExists(fileIni.ShortPath) then
    fso.MoveFile fileIni.ShortPath, foldDesti.ShortPath & "\"
End If

J'ai rajouté un antislash à la fin car le ShortPath le retirait de la fin du chemin, et il n'était plus considéré comme un dossier !


Merci encore pour l'aide, un pouce en l'air pour toi l_autodidacte

[l_autodidacte]

Merci encore pour l'aide, un pouce en l'air pour toi l_autodidacte

Le pouce en l'air(il est vert) se trouve tout juste au-dessous de mon dernier post;
il suffit de cliquer dessus pour confirmer ce que tu viens de dire

[AstroZelda]

Le pouce en l'air(il est vert) se trouve tout juste au-dessous de mon dernier post;
il suffit de cliquer dessus pour confirmer ce que tu viens de dire

Chose que j'ai faite sitôt après avoir envoyé le post précédent, un peu d'attention !!

[ProgElecT]

Salut, bienvenue sur DVP

Code :

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

obj.MoveFile "" & fileIni & "", "" & foldDesti & ""

me semble t il.