File Dialog Sélectionner un fichier et obtenir son nom (pas son chemin)

[Charly88]

Bonsoir, j'essaye de réutiliser un bout de code que je ne maîtrise pas suffisamment pour savoir comment obtenir le nom (et rien que le nom, y compris son extension) d'un fichier que je choisis par une file Dialog, quelqu'un a-t-il une idée ?
Je précise que in fine, mon but est de parer au risque de sélection d'un fichier déjà ouvert.


Dim DialOuvr As FileDialog, Rep, Cible As String

Set DialOuvr = Application.FileDialog(msoFileDialogOpen)
With DialOuvr
.InitialFileName = [a8]
.Filters.Clear
.Filters.Add "Fichiers XLS", "*.xls", 1
.AllowMultiSelect = False
.Title = "Ouverture du fichier xls"
.InitialView = msoFileDialogViewList
End With

Rep = DialOuvr.Show
If Rep = 0 Then
MsgBox "Opération annulée"
Exit Sub
End If

Cible = DialOuvr.SelectedItems(1) 'comment trouver le nom du fichier et pas tout son chemin ?




Merci d'avance !

 

[kjin]

Re : File Dialog Sélectionner un fichier et obtenir son nom (pas son chemin)

Bonsoir,
Essaies...

Fichier = Dir(Rep)

...si Rep et le chemin complet du fichier
A+
kjin

 

[Charly88]

Re : File Dialog Sélectionner un fichier et obtenir son nom (pas son chemin)

Dir(DialOuvr.SelectedItems(1))

Merci !