Discussion :

[sims92.66]

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sims92.66]

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