Utilisation getobject avec variable

J'aimerais utiliser la fonction getobject() avec l'adresse du fichier ouvert. Pour le moment voilà mon code:

Set fichier= GetObject("C:\Users\Fichier.xlsm")
fichier.Activate
fichier.Worksheets(1).Range("A10").Select

Le problème c'est que je ne peux pas changer l'emplacement de mon fichier, sinon il faut changer l'adresse dans le fichier vba à chaque fois. Donc j'ai essayer d'utiliser la fonction ActiveWorkbook.Path et j'ai donc fais ceci:

Adr= Chr(34) & ActiveWorkbook.Path & ".xlsm" & Chr(34)
Set fichier= GetObject(Adr)
fichier.Activate
fichier.Worksheets(1).Range("A10").Select

Mais évidemment ça ne fonctionne pas... Est ce que quelqu'un saurait comment faire pour utiliser getobject() avec une variable "string"?

Merci d'avance

Bonsoir

sans test

As-tu essayé seulement

[barrer]Adr= ActiveWorkbook.Path & ".xlsm"
Set fichier= GetObject(Adr)
fichier.Activate
fichier.Worksheets(1).Range("A10").Select[/barrer]

Avec test (Fichier sauvegardé)

Adr = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Set fichier = GetObject(Adr)
fichier.Activate
fichier.Worksheets(1).Range("A10").Select

Qu'est ce que j'ai honte... En plus je venais de m'en rendre compte 2 minutes avant...

Merci de ton aide quand même!