Recupere le nom de fichier

[anna]

Bonjour à tous.
mon problem et de recuperer le chemin ET le nom d'un fichier excel depuis une boite de dialogue:
je sais comment recuperer le chemin mais pas uniquement le nom du fichiers selectionne.
comment faire?
Merci d'avance à tous.


chemin = Application.GetOpenFilename('Excel File (*.xls),*.xls', , 'Open the export file from ...', , False)
If chemin <> 'Faux' And chemin <> 'False' Then
Workbooks.Open chemin
nom=???

 

[Creepy]

Bonsoir All, Anna,

Alors en admettant que ton chemin complet est dans la variable Chemin :

Dim Repertoire As String, Fichier As String, Chemin As String

Chemin = 'c:\\dede\\dada\\toto.xls'

Repertoire = Mid(Chemin, 1, InStrRev(Chemin, '\\'))
'mid&nbsp; = Fonction qui prend un morceaux de texte
'MID(Chaine de départ, n° de caractère de départ, N° d'arrivée)
'Par exemple Mid('DEDE THE BEST',1,4) renvoi 'DEDE'
'Par exemple Mid('DEDE THE BEST',6,8) renvoi 'THE'
Fichier = Mid(Chemin, InStrRev(Chemin, '\\') + 1, Len(Chemin))
'InstrRev recherche dans une chaine le premier caractére se trouvant entre parenthèse ici le \\
' en partant de la FIN !!! (instr pour partir du debut)
' Len indique le nombre de caractères d'une chaine

End Sub

@+

Creepy