VBA Récupérer le nom du fichier [Résolu/Fermé]

Signaler
Messages postés
20
Date d'inscription
mercredi 5 mai 2010
Statut
Membre
Dernière intervention
2 octobre 2013
-
Messages postés
20
Date d'inscription
mercredi 5 mai 2010
Statut
Membre
Dernière intervention
2 octobre 2013
-
Bonjour aux experts de la programmation!

Je fais actuellement une programme sous Visual Basic avec Excel. Je voudrais récupérer le nom du fichier automatiquement et l'enregistrer dans une variable afin d'éviter de changer toutes les lignes de code où on fait appel au nom du fichier.
Pour le moment, j'ai fait ceci :
Dim nom As String
nom = Workbooks.Application.Name

Mais le problème est que la variable "nom" me retourne "Microsoft Excel".

Si l'un de vous a une solution pour récupérer le nom du fichier (sans le chemin d'accès), je suis preneur!!!

Merci d'avance pour votre aide.

1 réponse

Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Bonjour,
Si tu n'as pas besoin de l'extension du fichier :
Dim NomFic As String
NomFic = ThisWorkbook.Name
MsgBox NomFic
Si tu as besoin de l'extension :
Dim NomFic As String
NomFic = ThisWorkbook.Name & ".xls" 'ou ".xlsm" etc...
MsgBox NomFic
6
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62320 internautes nous ont dit merci ce mois-ci

Messages postés
20
Date d'inscription
mercredi 5 mai 2010
Statut
Membre
Dernière intervention
2 octobre 2013
1
Merci beaucoup!!!
Il n'y avait pas grand chose à trouver, mais après une bonne heure de recherche sans trouver, tu m'as souvé :p