Bonjour à tous,

J'ai mis en place un userform, permettant de séléctionner un fichier à partir du boite de dialogue et de le copier dans une sheet de mon workbook.
Cependant, lorsque j'ouvre la boite de dialogue et que je vais y sortir sans séléctionner un fichier, j'ai le message suivant: "Erreur d’execution ‘5’ Argument ou appel de procèdure incorrect"

Aurait-il un code me permettant d'éviter ce message lorsque je fais cette manip?

Ci joint mon code.
Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        UserForm1.TextBox1.Text = .SelectedItems(1)
    End With
End Sub