Exécution automatique VBS

Bonjour le forum,

Je me suis créer un fichier VBS afin de lancer mon "logiciel" sur Excel, le code est le suivant :

Set obExcelApp=CreateObject("Excel.Application")
obExcelApp.Visible = False
obExcelApp.Workbooks.Open("C:\Users\Yohan\Desktop\Facturation_Vierge\logiciel.xls")
obExcelApp.quit

J'aimerais graver ces fichiers sur un CD, et comme le lecteur CD est différent chez tout le monde je ne peut pas mettre quelque chose comme :

F:\logiciel.xls

Je voulais donc savoir s'il y avait un moyen de récupérer le chemin du dossier d'où l'on lance l'application (mon .vbs et mon logiciel.xls sont exactement dans le même répertoire) car je ne peux pas faire

obExcelApp.Workbooks.Open("logiciel.xls")

Merci

Bonjour,

Pour récupérer le répertoire dans lequel se trouve ton fichier Excel, essaye en créant une variable à partir de --> Thisworkbook.path

Amicalement

Dan

Bonjour, merci à toi de ta réponse Dan, j'ai essayé ceci :

xlBook = obExcelApp.ActiveWorkbook.Path
obExcelApp.Workbooks.Open(xlBook & "logiciel.xls")

Et pas mal d'autres choses mais cela ne fonctionne pas

Je viens de trouver apparemment, sur technical-archive.net

Dim strSFN
    strSFN = WScript.ScriptFullName
    strSFN = Left(strSFN,InStrRev(strSFN,"\")) 

Set obExcelApp=CreateObject("Excel.Application")
obExcelApp.Visible = False
Set obWorkBook = obExcelApp.Workbooks.Open(strSFN & "\logiciel.xls")
obExcelApp.quit

Ça à l'air de fonctionner donc...

Merci à Dan aussi