Erreur d’execution ‘5’ dans userform

Version imprimable

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:

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

Bonjour,

Comme cela tu n'auras plus l'erreur (Gestion du retour via bouton Annuler)

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        If .Show = True Then
            UserForm1.TextBox1.Text = .SelectedItems(1)
        End If
    End With
End Sub

09/07/2012, 12h17
sims92.66

Merci encore Jérôme, ca marche nickel :ccool:
Décidement tu m'auras sauver plus d'une fois ;)