Discussion :

[ProgElecT]

Salut

Mon fichier VBS se trouvera dans le même dossier que mon fichier "zaza.xls".

Code :

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

1
2
3
4
5
6
7
dim objFSO, PathScript
Set objFSO = Createobject("Scripting.FileSystemObject")
PathScript = objFSO.GetParentFolderName(wscript.ScriptFullName) 'Chemin ou se localise le Vbscript
MsgBox PathScript,64,"Chemin du Script"
MsgBox PathScript &  "\LOGICIEL.xls"
'.................dans ton code..............................
xl.workbooks.open(PathScript &  "\LOGICIEL.xls")

FAQ VBScript Comment obtenir le nom et chemin complet d'un script en cours d'exécution ?

[sdispro]

ok, tant pis, je vais continuer mes recherches.

Encore merci pour ton aide

[sdispro]

Re,

On m'as donné la réponse pour le code souhaité ci dessous:

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
dim objFSO, PathScript
Set objFSO = Createobject("Scripting.FileSystemObject")
PathScript = objFSO.GetParentFolderName(wscript.ScriptFullName) 'Chemin ou se localise le Vbscript
MsgBox PathScript,64,"Chemin du Script"
MsgBox PathScript &  "\LOGICIEL.xls"
'.................dans ton code..............................
 
 
 
 
set xl=createobject("Excel.Application") 
xl.visible=true 
xl.workbooks.open(PathScript &  "\LOGICIEL.xL")
set xl=nothing 
wscript.quit

Un grand merci pour votre aide et un grand bravo à progElecT qui a trouvé la solution

[cherni1971]

Bonjour le Forum,

J'ai effectué quelques recherches avant ma question mais n'ai pas trouvé de solution.

J'ai un code VBS qui m'ouvre un fichier Excel.

Code :

Code :

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

1
2
3
4
5
set xl=createobject("Excel.Application") 
xl.visible=true 
xl.workbooks.open("C:\zaza.xls") 
set xl=nothing 
wscript.quit

Mon fichier VBS se trouvera dans le même dossier que mon fichier "zaza.xls".

De ce fait, au lieu d'avoir la racine c:\ mon code VBS me donne la racine.

Ainsi je pourrai déplacer mon dossier dans n'importe quel répertoire sans avoir de problème.


Merci par avance

re
utilé \nom fichier