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.
djibysadji
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
Partager