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

Messages postés
20
Date d'inscription
mercredi 5 mai 2010
Statut
Membre
Dernière intervention
2 octobre 2013
- - Dernière réponse : pampiou
Messages postés
20
Date d'inscription
mercredi 5 mai 2010
Statut
Membre
Dernière intervention
2 octobre 2013
- 28 avril 2011 à 11:14
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.
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2182
3
Merci
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

Dire « Merci » 3

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

CCM 62611 internautes nous ont dit merci ce mois-ci

pampiou
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