Ouverture fichier en fonction de l'emplacement

Salut

Citation:

---

Envoyé par sdispro

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

---

Code:

---

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 ?

ok, tant pis, je vais continuer mes recherches.

Encore merci pour ton aide

Re,

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

Code:

---

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

Citation:

---

Envoyé par sdispro

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:

---

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