Pb avec la fonction InStrRev

[Legelia]

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

 

[pierrejean]

Re : Pb avec la fonction InStrRev

Bonjour Legelia

Et bienvenue sur XLD

A tester
Remplacer

Nom = Right(Fichier, InStrRev(Fichier, "\"))

par

Nom =Mid(Fichier, InStrRev(Fichier, "\")+1)

 

[Staple1600]

Re : Pb avec la fonction InStrRev

Bonsoir à tous

Une solution alternative avec Split
(que personnellement , je trouve plus simple
edition : mais moins simple que Dir effectivement (lol) )

Sub a()
Dim fichier$, nomfichier
fichier = "V:\Demandes\eXport au 20100903.xls"
nomfichier = Split(fichier, "\")(UBound(Split(fichier, "\")))
MsgBox nomfichier
End Sub

 

[MichelXld]

Re : Pb avec la fonction InStrRev

bonsoir,

Tu peux également utiliser :

Dim Fichier As String
 
'Le fichier doit exister sur le PC ! sinon renvoie une chaine vide
Fichier = "C:\Documents and Settings\mimi\dossier\Fournisseurs.xls"
MsgBox Dir(Fichier)

bonne soirée
michel

 

[Legelia]

Re : Pb avec la fonction InStrRev

A tester
Remplacer

Nom = Right(Fichier, InStrRev(Fichier, "\"))

par

Nom =Mid(Fichier, InStrRev(Fichier, "\")+1)

Merci à tous pour vos réponses.

Ta solution marche très bien pierrejean, merci bcp !