Excel : ouverture fichier par macro sans indiquer le chemin complet

Question

Bonjour, 
je cherche le moyen d'ouvrir un fichier Excel par macro VB &#224; partir d'un fichier Word
 voici le code utilis&#233; :

    Dim oXL As Object
    Set oXL = CreateObject("Excel.Application")
    
' Open the workbook that contains data to be imported.
    oXL.Workbooks.Open FileName:="[file://repertoire/sous_repertoire/nom_fichier.xls \repertoire\sous_repertoire
om_fichier.xls]"

cependant ces fichiers sont utilis&#233;s sur des postes differents sur lesquels les valeurs 'repertoire' et 'sous_repertoire' varient.
Je cherche donc &#224; ouvrir le fichier sans donner de chemin complet, uniquement le nom du fichier.
1/ est ce possible en Excel 97 ?
2/ comment faire ?

D'avance merci pour vote aide
Marc

cs_CanisLupus · Answer

Salut,

D&#233;sol&#233;, ce n'est pas possible. Mais tu peux coder :

Chemin = [file://repertoire/sous_repertoire/nom_fichier.xls ]\repertoire\sous_repertoire\
oXL.Workbooks.Open FileName:=" & Chemin & "[file://repertoire/sous_repertoire/nom_fichier.xls nom_fichier.xls]"

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_tadoussac · Answer

Merci CanisLupus,

effectivement c est la solution que je vais retenir, en r&#233;cup&#233;rant le chemin du fichier lan&#231;ant la macro et le concat&#233;nant avec les noms des fichiers qui vont &#234;tre ouvert par macro.

Excel : ouverture fichier par macro sans indiquer le chemin complet

2 réponses

Discussions similaires