Un problème d'espaces ..

Bonsoir à tous !

Je bloque sur un problème assez simple en soi mais je ne trouve pas la solution :oops:

Le script me renvoie "fichier introuvable", j'ai cherché sur internet j'ai vu qu'il fallait doubler les guillemets mais sans résultat ...

Voici mon bout de code:
Code:

1 2 3 4 5 6 Set oShell = CreateObject("WScript.Shell") strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%") oShell.Run (strHomeFolder & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\reglement.txt")
A savoir que si je modifie le chemin en mettant mon fichier sur le bureau ça fonctionne ... c'est l'espace en "Start" et "Menu" qui pose problème .. ! J'ai doublé, triplé les guillemets et les ai bougé dans tous les sens mais pas moyen.

Merci de votre aide ! :D

:salut:
Avec un MsgBox

Code:

1
2
3
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
MsgBox( chr(34) & strHomeFolder & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\reglement.txt" & chr(34))

Super merci ! :D

Pas mal l'astuce du msgbox pour vérifier ! je prends note