Récupérer nom de fichier

[rudymagny]

Bonsoir le forum,
Voilà j'utilise le code suivant pour ouvrir un fichier:

Dim vFich, sFiltre$
    sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
    ChDir CurDir
    vFich = Application.GetOpenFilename(sFiltre)
    If VarType(vFich) = vbBoolean Then
        Exit Sub
    Else
        Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
        Range("A:A").TextToColumns semicolon:=True
    End If

qui marche très bien d'ailleurs mais je voudrais récupérer le nom du fichier que j'ouvre.
exemple:
chemin = C:\temp\toto.xls
fichier = toto.xls


merci d'avance à vous

 

[Guest]

Re : Récupérer nom de fichier

Bonjour Rudy,

Une fois le fichier ouvert:

fichier=Activeworkbook.name

A+

 

[tototiti2008]

Re : Récupérer nom de fichier

Bonjour rudymagny,

par exemple :

If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
Range("A:A").TextToColumns semicolon:=True
NomFichier = Right(vFich, len(vFich)-instrRev(vFich, "\"))
End If

 

[rudymagny]

Re : Récupérer nom de fichier

Bonsoir tototiti2008,
et merci pour ta réponse je viens de tester et j'opte pour

NomFichier = Right(vFich, len(vFich)-instrRev(vFich, "\"))

merci encore et bonne soirée

 

[vbacrumble]

Re : Récupérer nom de fichier

Bsr le forum

Sub filename()
Dim sPath$
sPath = "C:\temp\toto.xls"
fn = Split(sPath, "\")(2)
MsgBox fn
End Sub

@+