dans la listbox est il possible de cacher le .xls.pdf des fichiers ca reste un confort visuel
Private Sub FichierChoisi_Change()
Dim nf$, n&
If flag Then Exit Sub
Image3.Visible = False
ChoixFichier.Clear
nf = Dir(Répertoire & "\*" & FichierChoisi & "*.pdf") 'le 1er astérisque est facultatif...
While nf <> ""
ChoixFichier.AddItem Left(nf, InStrRev(nf, ".") - 1)
nf = Dir
n = n + 1
Wend
nbFichiers = n
For n = 0 To ChoixFichier.ListCount - 1
ChoixFichier.Selected(n) = False
If LCase(ChoixFichier.List(n)) = LCase(FichierChoisi) _
Then ChoixFichier = FichierChoisi: Exit For
Next
End Sub