Chemin d'accés pour ouvrir un fichier

Bonjour,

Je voudrais savoir si c'était possible lorsque l'on spécifie le chemin d’accès pour ouvrir un document excel si on est obligé d'écrire tout le chemin. Par exemple dans mon cas, j'ouvre le fichier 1 avec le fichier 2. Ces deux fichiers sont dans le même dossier. Le problème est que quand je spécifie tout le chemin d’accès, lorsque je veux changer de place ce dossier, je suis obligé de changer le chemin d'accès dans mon programme vba. Est ce qu'il y a un moyen d'éviter cela ?

Merci par avance.

Bonjour

ThisWorkbook.Path

peut-être

Bonjour,

Merci pour vos réponses. J'ai essayé de regarder un peu mais je ne comprends pas trop comment l'utiliser. Je vous envoie ci-joint une partie de mon code. J'aimerais bien pouvoir enlever toute la partie de C jusqu'à dossier car mes deux documents se trouvent dans le même dossier

Cdlt

Sub MAJ_OTD()

        Dim wk_fichier1 As Workbook
        Dim ws_fichier1feuil1 As Worksheet

        Dim wk_fichier2 As Workbook
        Dim ws_fichier2feuil1 As Worksheet

        Set wk_fichier1 = ActiveWorkbook
        Set ws_fichier1feuil1 = wk_fichier1.Worksheets(1)

        Set wk_fichier2 = Application.Workbooks.Open("C:\Users\Desktop\dossier\OTD\OTD_01.xlsx")
        Set ws_fichier2feuil1 = wk_fichier2.Worksheets(1)

End Sub

RE

Si Fichier2 est au même endroit que Fichier1

Set wk_fichier2 = Application.Workbooks.Open(Fichier1.path &"\OTD_01.xlsx")

Merci pour ta réponse, ça marche. Le code final ressemble donc à ça :

        Dim wk_fichier12 As Workbook
        Dim ws_fichier12feuil1 As Worksheet

        Set wk_fichier1 = ActiveWorkbook
        Set ws_fichier1feuil1 = wk_fichier1.Worksheets(1)

        Set wk_fichier12 = Application.Workbooks.Open(wk_fichier1.Path & "\OTD\OTD_11.xlsx")
        Set ws_fichier12feuil1 = wk_fichier12.Worksheets(1)