XL 2019 Se prépositionner sur un répertoire défini avant d'exécuter ShowFileOpenDialog FileList pour récupérer les noms des fichiers de ce répertoire

Bonsoir Escouger,
Si j'ai bien compris vous voudriez qu'à chaque ouverture le dossier de base soit "C:\CVS\GUIDES", alors pourquoi ne pas le définir comme variable ( Chemin="C:\CVS\GUIDES" ) et utiliser cette variable dans "ShowFileOpenDialog FileList" ?

Merci pour cette si rapide réponse. Vous avez parfaitement compris ma question.
Voyez ci-dessous la commande "Showfileopendialog" de mon VBA

Je ne sais pas ou parametrer le "chemin" dans tous ces éléments
Le seul que je vois serait .lpstrInitialDir mais si c'était le bon, le programme proposerait toujours C:\CVS, ce qui n'est pas le cas.
Peut-être existe-t-il un autre paramètre ...que je ne connais pas?

Sub ShowFileOpenDialog(ByRef FileList As Collection, sfilter)
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim FileDir As String
Dim FilePos As Long
Dim PrevFilePos As Long
With OpenFile
.lStructSize = Len(OpenFile)
.hwndOwner = 0
.hInstance = 0
.lpstrFilter = sfilter
.nFilterIndex = 1
.lpstrFile = String(4096, 0)
.nMaxFile = Len(.lpstrFile) - 1
.lpstrFileTitle = .lpstrFile
.nMaxFileTitle = .nMaxFile
.lpstrInitialDir = "C:\CVS"
.lpstrTitle = "Multi Select Drawings"
.flags = OFN_HIDEREADONLY + _
OFN_PATHMUSTEXIST + _
OFN_FILEMUSTEXIST + _
OFN_ALLOWMULTISELECT + _
OFN_EXPLORER
lReturn = GetOpenFileName(OpenFile)
If lReturn <> 0 Then
FilePos = InStr(1, .lpstrFile, Chr(0))
If Mid(.lpstrFile, FilePos + 1, 1) = Chr(0) Then
FileList.Add .lpstrFile
Else
FileDir = Mid(.lpstrFile, 1, FilePos - 1)
Do While True
PrevFilePos = FilePos
FilePos = InStr(PrevFilePos + 1, .lpstrFile, Chr(0))
If FilePos - PrevFilePos > 1 Then
FileList.Add FileDir + "\" + _
Mid(.lpstrFile, PrevFilePos + 1, _
FilePos - PrevFilePos - 1)
Else
Exit Do
End If
Loop
End If
End If
End With
End Sub

Bonsoir
je n'ai jamais vu le dialog Getopenfilename codé de cette manière
pour le dossier courant il suffit de faire un chdir dessus non?

Bonsoir,
Je pense qu'il serait plus efficace de vous envoyer mon tableau complet.
J'ai bien mis un chdir....mais sans doute pas ou il faut?

Re, Bonsoir Patrick,
Mais dans votre contexte que vous apporte de plus votre ShowFileOpenDialog par rapport à un classique Application.GetOpenFilename . Comme par ex :
Il ouvre la fenêtre sur le bon dossier et filtre sur le type de fichier demandé.

Bonsoir Sylvanu,
La différence réside dans le fait que je souhaite que tous les fichiers du répertoire (éventuellement filtrés ) soient affichés et permettent ensuite à l'opérateur de faire une selection multiple sur un ou plusieurs fichiers qui seront ensuite mis en pièce(s) jointe(s) dans le mail généré.
Sous réserve de n'avoir pas compris ce que vous proposez, je ne peux choisir qu'un seul fichier avec votre méthode.
Merci

C'était purement démonstratif, GetOpenFilename permet évidemment dans ses options le multi select :

Bonjour,

Effectivement, la solution proposée par Sylvanu est bien plus simple et efficace que la mienne que j'avais dû pomper il y a des années dans un tableau local repris pour l'exercice d'aujourd'hui!!!
Voici mon tableau définitif.
Merci de votre aide