Discussion :

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

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

[papyxy]

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.

[sdispro]

Merci pour la réponse Papyxy,

J'ai essayé mais cela ne marche pas

[papyxy]

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

Code :

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

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.

[sdispro]

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 :

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

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...

[papyxy]

Essayez ce qui suit :

Code :

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

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

[sdispro]

Bonjour,

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

En Pj toutes les "preuves"

[hackoofr]

Bonjour,

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

En Pj toutes les "preuves"

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

[sdispro]

Bonjour,

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

En pj tout mon problème en image

[papyxy]

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

[sdispro]

Oui aucun souci pour l'ouverture

[papyxy]

Peux-tu réessayer cette version :

Code :

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

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

[sdispro]

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

(Encore merci pour ton aide)

[papyxy]

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

[sdispro]

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 :

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

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

Sous Excel il y a le code :

Code :

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

ActiveWorkbook.Path & "\"

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

De ce fait, ce serait plus simple...

[papyxy]

absolument... voila :

Code :

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

 curvbs = WScript.ScriptFullName

[sdispro]

Merci,

mais comment je place mon code?

[papyxy]

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

[sdispro]

dans le même répertoire

[papyxy]

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