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