Importer le nom d'un fichier sur ListBox

Bonsoir,

J'ai un petit soucis avec une ligne de code. En fait j'aimerai afficher le nom du fichier sélectionner dans mon explorateur sur ma ListBox

Voici mon code:

Private Sub UserForm_Initialize()

Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
fichier = .SelectedItems.Item(1)
On Error GoTo 0
End With
If fichier <> "" Then ListBox1.List = fichier<-- cette syntaxe ne passe pas
End Sub

Merci pour votre aide.

Bonjour

A tester

Private Sub UserForm_Initialize()
Dim LesFichiers

  LesFichiers = Application.GetOpenFilename(Title:="Sélection de vos fichiers", MultiSelect:=True)

  Select Case TypeName(LesFichiers)
    Case Is = "Boolean"
      Exit Sub
    Case Else
      Me.ListBox1.List = LesFichiers
  End Select
End Sub

ça fonctionne.

Merci beaucoup!