Bonjour,
Après plusieurs recherche sur le forum, et sans trouver de réponses, je me lance pour poser ma question.
Donc régulièrement je recupère un fichier "eXport"+la date du jour, au format XLS, j'ai une macro qui me permet d'ouvrir ce fichier, MAIS je n'arrive pas a recupere simplement le nom du fichier (qui est variable à cause de la date).
Voici mon code :
Dim Fichier As String 'nom complet du fichier
Dim Nom As String 'nom du fichier
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Nom = Right(Fichier, InStrRev(Fichier, "\"))
'Test le nom du fichier
If Left(Nom, 6) = "eXport" And Right(Nom, 4) = ".xls" Then
instructions....
endif
Malheureusement la commande InStrRev, me renvoie n'importe quoi :
exemple :
pour Fichier = "V:\Demandes\eXport au 20100903.xls"
le Nom renvoyé est "0100903.xls"
Pour info je travail avec Excel 2003.
Merci pour votre aide
Après plusieurs recherche sur le forum, et sans trouver de réponses, je me lance pour poser ma question.
Donc régulièrement je recupère un fichier "eXport"+la date du jour, au format XLS, j'ai une macro qui me permet d'ouvrir ce fichier, MAIS je n'arrive pas a recupere simplement le nom du fichier (qui est variable à cause de la date).
Voici mon code :
Dim Fichier As String 'nom complet du fichier
Dim Nom As String 'nom du fichier
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Nom = Right(Fichier, InStrRev(Fichier, "\"))
'Test le nom du fichier
If Left(Nom, 6) = "eXport" And Right(Nom, 4) = ".xls" Then
instructions....
endif
Malheureusement la commande InStrRev, me renvoie n'importe quoi :
exemple :
pour Fichier = "V:\Demandes\eXport au 20100903.xls"
le Nom renvoyé est "0100903.xls"
Pour info je travail avec Excel 2003.
Merci pour votre aide