VBA Récupérer le nom du fichier

Résolu
pampiou Messages postés 24 Statut Membre -  
 gogodu75 -
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

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
     
    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
    1. pampiou Messages postés 24 Statut Membre 2
       
      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
    2. gogodu75
       
      Merci BG des plages !!!
      1