Comment obtenir le chemin de la feuille de calcul actuelle en VBA ?

Comment obtenir le chemin du classeur actuel en VBA ?

' Chemin du dossier uniquement
Dim chemin As String
chemin = ThisWorkbook.Path

' Chemin complet avec nom de fichier
Dim cheminComplet As String
cheminComplet = ThisWorkbook.FullName

' Nom du fichier uniquement
Dim nom As String
nom = ThisWorkbook.Name

Note : ThisWorkbook.Path retourne une chaîne vide si le classeur n’a pas encore été enregistré.

Pour le classeur actif (qui peut être différent du classeur contenant le code) :

ActiveWorkbook.Path