Ouverture fichier en fonction de l'emplacement

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

Bonsoir
ben, si j'ai bien compris; il suffit de mettre le nom seul du fichier excel.
Le vbs le trouvera dans le répertoire en cours.

Merci pour la réponse Papyxy,

J'ai essayé mais cela ne marche pas :(

pourtant j'ai fais l'essai de mon coté et cela fonctionne8O

Code:

---

1 2 3 4

set xl=createobject("Excel.Application") xl.visible=true xl.workbooks.open("zaza.xls") set xl=nothing

---

il faut bien sur que le fichier existe.

Encore merci pour la réponse.

Je dois vraiment avoir du mal!!!

En pj le message d'erreur que j'ai.

Ci dessous le code que j'utilise:

Code:

---

1 2 3 4

set xl=createobject("Excel.Application") xl.visible=true xl.workbooks.open("LOGICIEL.xls") set xl=nothing

---

Ce code est écrit avec "bloc note" et le fichier enregistré en tant que test.vbs

Le fichier xl "logiciel" existe bien...

Essayez ce qui suit :

Code:

---

1 2 3 4 5 6 7 8

Set oFso = CreateObject("Scripting.FileSystemObject") xls="LOGICIEL.xls" if not ofso.fileexists(xls) then _ msgbox "fichier non trouvé",,xls : wscript.quit set xl=createobject("Excel.Application") xl.visible=true xl.workbooks.open(xls) set xl=nothing

---

Bonjour,

Je n'y arrives toujours pas et ce en respectant tes dires.

En Pj toutes les "preuves"

:cry:

Citation:

---

Envoyé par sdispro

Bonjour,

Je n'y arrives toujours pas et ce en respectant tes dires.

En Pj toutes les "preuves"

:cry:

---

:salut:
l'extension du fichier Excel est .XLS ou bien .XLSX :koi:

Bonjour,

j'ai tout essayé, l'extension du fichier est bien xls.

En pj tout mon problème en image

:cry:

Est-ce que le fichier (excel) s'ouvre normalement, sans passer par le VBS?:roll:

Oui aucun souci pour l'ouverture

Peux-tu réessayer cette version :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set objShell = CreateObject("Wscript.Shell") curdir = objShell.CurrentDirectory xls="LOGICIEL.xls" Set oFso = CreateObject("Scripting.FileSystemObject") if not ofso.fileexists(xls) then _ msgbox xls & " non trouvé dans ce dossier",,curdir : wscript.quit fic = ofso.Getfile(xls).shortpath   set xl=createobject("Excel.Application") xl.visible=true xl.workbooks.open(fic) set xl=nothing

---

Il m'ouvre la msgbox pour me dire qu'il ne trouve pas le fichier.

(Encore merci pour ton aide)

Bon... reste à savoir ou il se trouve, ce fichier:D

;)

Cela fait 3 jours que je recherche sur Internet la solution, mais même mon ami Google ou le Forum ne m’éclair pas trop sur le sujet. lol

Si je reprend mon 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

---

Il faudrait trouver avec un code la racine du dossier à laquelle se trouve le fichier VBS.

Sous Excel il y a le code :

Code:

---

ActiveWorkbook.Path & "\"

---

Est ce qu'il éxiste la même chose pour VBS?

De ce fait, ce serait plus simple...

:D

absolument... voila :

Code:

---

curvbs = WScript.ScriptFullName

---

:ccool:

Merci,

mais comment je place mon code?

ben ... faudrait me donner plus de renseignement car je n'ai toujours pas compris ou se trouvait ton fichier par rapport au vbs.:(

dans le même répertoire

donc, retour à la case départ; je ne vois pas pourquoi le prog. ne trouve pas le fichier.
Le mystère demeure:?

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