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

[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