Discussion :

[djibysadji]

Bonsoir le forum!
Avec le code ci-dessous je parviens à ouvrir l'explorateur de fichier pour sélectionner une photo. Les photos sont stockées dans Images et sont classées dans des dossiers par centre d'intérêt. Le problème est que tous ces dossiers sont vides à l'ouverture quand j'ouvre l'explorateur en passant par le bouton cmdChargerPhoto.
Et poutant les fichiers qu'ils contiennent sont bien présents quand j'ouvre l'explorateur sans passer ce bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdChargerPhoto_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Title = "Sélectionner la photo pour utilisateur"
.InitialFileName = CurrentProject.Path
If .Show <> 0 Then
TxtPhoto.Picture = .SelectedItems(1)
Me.TxtAdrPhoto = .SelectedItems(1)
End If
End With
 
End Sub

djibysadji

[EricDgn]

Bonjour,

Sans doute qu'en ligne 3 il faut utiliser la constante msoFileDialogFilePicker.

Cordialement.

[djibysadji]

Bonjour,

Sans doute qu'en ligne 3 il faut utiliser la constante msoFileDialogFilePicker.

Cordialement.

Génial!

Un grand merci!