Excel Répertoire

[BatDan]

je souhaiterai récupérer le nom du disque et du répertoire sur lequel mon fichier se trouve ... et ce afin de pouvoir faire un chemin relatif dans VBA.
Merci

 

[Jean-Marie]

Bonsoir BatDan

Voici une formule à placer dans une cellule d'une feuille de calcul
=STXT(CELLULE("nomfichier");1;CHERCHE("[";CELLULE("nomfichier"))-2)

@+Jean-Marie

 

[Dan]

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

 

[BatDan]

merci ........ ca marche
Je viens de fouiller dans le forum et j'avais trouvé aussi

ThisWorkbook.Path

......... merci - pour la rapidité de réponse .... a + BatDan