Chemin relatif dans macro

Bonjour,

J'ai besoin de votre aide. J'ai fait un userForm qui appel un fichier en fonction de ce que l'utilisateur indique dans le userForm. Ce petit outil doit servir à plusieurs personnes sur des postes différents, j'ai donc besoin de changer mes chemins absolus en chemins relatif. Voici moi code à la base (avec le chemin absolu) :

mois = TextBox1.Value
année = TextBox2.Value

ChDir "D:\Users\Desktop\ToL\DonnéesMens"
chemin = "D:\Users\Desktop\ToL\DonnéesMens\" & mois & année

Workbooks.Open Filename:=chemin
Worksheets("feuil1").Activate

Cela fonctionne très bien.

Après j'ai voulu faire un chemin relatif, donc j'ai essayé ça :

mois = TextBox1.Value
année = TextBox2.Value

ChDir (ThisWorkbook.Path)
chemin = "ThisWorkbook.Path" & mois & année

Workbooks.Open Filename:=chemin
Worksheets("feuil1").Activate

Mais cela ne fonctionne pas, le programme s’arrête à la ligne "Workbooks.Open Filename:=chemin"

Merci pour votre aide !

Bonjour,

Essaie avec :

mois = TextBox1.Value
année = TextBox2.Value
chemin = ThisWorkbook.Path & "\" & mois & année
Workbooks.Open Filename:=chemin
Worksheets("feuil1").Activate

A+

Bonjour !

Cela ne marche pas :/

Toujours au même niveau : Workbooks.Open Filename:=chemin

Merci =)

Voici mon fichier test.

Enregistre-le dans le répertoire utilisé, renseigne le mois et l'année et lance le test.

Ensuite, vérifie le chemin que va t'indiquer le programme.

A+

bonsoir

Il manque certainement l'extension du fichier donc

chemin = ThisWorkbook.Path & "\" & mois & année & ".xlsx" 'ou autre en fonction...

fred

Oui en effet, j'ai pu trouver une solution qui fonctionne

ChDir ThisWorkbook.Path & "\DonnéesMens"
DonnéesMens = Dir(ThisWorkbook.Path & "\DonnéesMens\" & mois & année & ".xlsx")

Merci pour votre aide !