récuperer nom du fichier choisi

[carlos]

bonjour
comment recuperer le nom d'un fichier selectionné par un utilisateur au travers d'une boite de dialogue navigateur du genre suivant ?

Msg = "Vous devez rechercher un fichier , Souhaitez-vous continuer?"
Style = vbYesNo + vbQuestion
Title = "Rechercher du fichier nommé : BaseEleve.xls"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
Fichier = Application.GetOpenFilename("recherche de : BaseEleve.xls (*.xls), *.xls")

If Fichier <> False Then 'fichier trouvé
ICI -----------------------------------------------------------------------------

msgbox "Nom du fichier "
---------------------------------------------------------------------------------
Exit Sub
Else ' "fichier pas trouvé
End
End If

Else ' L'utilisateur a choisi Non.
End
End If

merci

 

[Catrice]

Re : récuperer nom du fichier choisi

Bonjour,

Ci joint un exemple fourni par tototiti dans un Post récent :

Sub Test()
Dim DialOuvr As FileDialog, Rep, Chemin As String
Set DialOuvr = Application.FileDialog(msoFileDialogOpen)
DialOuvr.Filters.Clear
'DialOuvr.Filters.Add "Fichiers CSV", "*.csv", 1
DialOuvr.AllowMultiSelect = False
'DialOuvr.Title = "Ouverture du fichier CSV"
DialOuvr.InitialView = msoFileDialogViewList
Rep = DialOuvr.Show
If Rep = 0 Then MsgBox "Opération annulée": Exit Sub
Chemin = DialOuvr.SelectedItems(1)
Workbooks.OpenText Filename:=Chemin
End Sub

 

[Pierrot93]

Re : récuperer nom du fichier choisi

Bonjour Carlos, Catrice

si je ne me trompe ,

MsgBox fichier

dans ton exemple, devrait renvoyer nom et chemin du fichier...

bonne journée
@+

 

[carlos]

Re : récuperer nom du fichier choisi

Bonjour Catrice,Pierrot93

en fait, je ne veux pas le chemin mais seulement le nom du fichier choisi

Merci

 

[Pierrot93]

Re : récuperer nom du fichier choisi

Re

pour seulement le nom du fichier :

x = Split(fichier, "\")
MsgBox x(UBound(x))

@+

 

[carlos]

Re : récuperer nom du fichier choisi

Merci beaucoup .

C'est exactement cela.
c'est quoi le split?

Carlos

 

[Pierrot93]

Re : récuperer nom du fichier choisi

Re

"split" est une fonction vba, qui permet de renvoyer dans un tableau, des sous chaines de caractères, suivant le séparateur défini, le "\" dans ce cas. La fonction "Uboud" permet elle, de déterminer le dernier élément, nom du fichier pour se qui nous interresse.

@+

 

[carlos]

Re : récuperer nom du fichier choisi

Pierrot93

Je te remercie infiniment pour tes propositions et tes réponses

carlos