ThisWorkbook.Name oui, mais sans ext

[Pinock]

Bonjour,

Je veux récupérer le nom de mon dossier en cours pour une procédure de sauvergarde avec incrémentation mais je n'ai pas trouvé comment le faire en VBA sans ext.
Est-ce possible ou dois je passer par une procédure pour couper les 4 derniers caractères et si oui qu'elle est-elle?
Merci pour votre aide

 

[Robert]

Salut Pinock, salut le forum,

essaie ça :

Dim nom As String
nom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

À plus,

Robert

 

[Pinock]

Salut Robert et Merci beaucoup