Déplacement classeur excel dans dossier avec un espace dans le nom

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 :roll:

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:

---

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:

---

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

:salut: 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:

---

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:

---

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

---

Salut, bienvenue sur DVP

Code:

---

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

---

me semble t il.

Citation:

---

Envoyé par l_autodidacte

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 :lol:

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 8-)


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

Citation:

---

Envoyé par l_autodidacte

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

Code:

---

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 :D

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

Code:

---

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 :)

Citation:

---

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 :mouarf:

Citation:

---

Envoyé par 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 :mouarf:

---

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