<pre data-code-wrap="vba"><code class="lang-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
</code></pre>
<p>Note : <code>ThisWorkbook.Path</code> retourne une chaîne vide si le classeur n’a pas encore été enregistré.</p>
<p>Pour le classeur actif (qui peut être différent du classeur contenant le code) :</p>
<pre data-code-wrap="vba"><code class="lang-vba">ActiveWorkbook.Path
</code></pre>