VBA Récupérer le nom du fichier

Résolu/Fermé
pampiou Messages postés 20 Date d'inscription mercredi 5 mai 2010 Statut Membre Dernière intervention 2 octobre 2013 - 28 avril 2011 à 10:08
 gogodu75 - 3 juin 2021 à 13:56
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.
A voir également:

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
28 avril 2011 à 11:09
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
12
pampiou Messages postés 20 Date d'inscription mercredi 5 mai 2010 Statut Membre Dernière intervention 2 octobre 2013 2
28 avril 2011 à 11:14
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
1
Merci BG des plages !!!
1