Erreur sur Application.FileDialog

Bonjour,

J'ai une procédure qui fonctionnait bien mais qui maintenant stop et marque la ligne contenant le 'if' en jaune

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub BtnExplorer_Click()   Dim Repertoire As FileDialog   Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker) Repertoire.Show   If Repertoire.SelectedItems.Count > 0 Then   Chemin = Repertoire.SelectedItems(1)   Me.LabelChemin.Caption = Chemin End If End Sub

---

Si je passe la souris sur Repertoire.SelectedItems.Count j'ai la valeur 1. et c'est sur cette ligne qu'il s'arrête.
De plus ce code à déjà fonctionner. je ne comprends pas, besoin d'un oeil extérieur.

merci



Excel 2013
Quelques libraries cochée dont MOffice 15.0, MExcel 15.0, scripting runtime.

Bonsoir Juanpa, bonsoir le forum,

Essaie comme ça :

Code:

---

1 2 3 4 5 6 7

Private Sub BtnExplorer_Click() Dim Repertoire As FileDialog   Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker) If Repertoire.Show = -1 Then chemin = Repertoire.SelectedItems(1) Me.LabelChemin.Caption = chemin End Sub

---

Merci.

Bizarrement, sans rien touché ça refonctionne ...:weird: fallait que je post ^^

Je vais quand même adapter mon code comme vous le suggérer

Merci bonne nuit ;)