Bonjour,

Je tourne en rond...

L'utilisation de
Application.Dialogs(xlDialogFileDelete)
fonctionne très bien mais je souhaite à présent uniquement afficher les fichiers (sans pouvoir les effacer).

Dans le code qui suit, le répertoire s'ouvre mais il est vide !

Nota : Public Const Réf_Rép_Svg As String = "F:\Photos"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Accès_Rép_Photos()
    Call Vérif_Existence_Rép_Photo_S
    If Rép_Photo_S_Existe = 0 Then GoTo errorHandler
'    Application.Dialogs(xlDialogFileDelete).Show Réf_Rép_Svg 'Répertoire_S  'Propose Suppression du Ficher !
    Application.Dialogs(xlDialogOpen).Show Réf_Rép_Svg
 
    Exit Sub
errorHandler:
    Call Msg_Rép_Photo_S_inexistant
End Sub
Sub Vérif_Existence_Rép_Photo_S()
 
    Rép_Photo_S_Existe = Réf_Rép_Svg
    Rép_Photo_S_Existe = Dir(Rép_Photo_S_Existe, vbDirectory)
 
    Rép_Photo_S_Existe = IIf(Rép_Photo_S_Existe = "", 0, 1)   'si le répertoire référencé sur S exite, alors 1 (sinon 0)
End Sub
Sub Msg_Rép_Photo_S_inexistant()
    MsgBox "Accès au répertoire des photos impossible !" _
        & vbCrLf & vbCrLf & _
    "Le répertoire sur S/ a été déplacé, renommé ou supprimé !", vbOKOnly + vbExclamation, "Alerte"
End Sub
En vous remerciant par avance pour vos lumières,
Cdt