Nom fichier Excel

Bonjour,

Connaissez vous une formule pour récupérer le nom de notre fichier excel ouvert et de copier ce même nom dans une cellule précise de ce même fichier? La fonction Cells(1,1)=ThisWorkbook.Name marche mais ca copie aussi le .XLSM. Savez vous comment ne pas copier le .XLSM?

Merci pour tout,

Cordialement

Bonjour,

une 1ère. réponse :

Cells(1, 1) = Split(ThisWorkbook.Name, ".")(0)

Il faudra l'adapter si le nom des fichiers peuvent comporter plusieurs points.

Cdlt.

Bonjour,

Par exemple :

Cells(1,1)=Replace(ThisWorkbook.Name, ".xlsm", "")

Merci beaucoup les deux solutions marchent!