Bonsoir Batdan,
Utilise l'instruction "ActiveWorkbook.FullName" dans ta macro.
Pour mettre le répertoire dans une cellule (ici A1), tu peux utiliser cette macro :
Sub Action1()
'chemin du fichier en cours
Range("A1").Value = ActiveWorkbook.FullName
end Sub
Bon travail
@+
Dan