Discussion :

[juanpa]

Bonjour,

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

Code :

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

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.

[Thautheme]

Bonsoir Juanpa, bonsoir le forum,

Essaie comme ça :

Code :

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

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

[juanpa]

Merci.

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

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

Merci bonne nuit