Salut à tous,
Afin d'ouvrir une boite de dialogue pour récupérer un fichier, j'ai pris sur la faq le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim fileName As String
    Dim result As Integer
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Sélectionner le fichier ou se trouvent les données à importer"
        .Filters.Add "Fichiers Mdb", "*.mdb"
        .FilterIndex = 1
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            MsgBox (Mid(fileName, Len(fileName), Len(.SelectedItems.Item(1))))
        End If
    End With
Cela me récupère le chemin+nom du fichier mais pourriez vous me dire quelle ligne rajouter afin d'avoir également le nom du fichier seul ( sans le chemin).

Merci de votre aide
Amicalement
Fred