Private Sub UserForm_Initialize()
chemin = "C:\Ronibo\Facture\"
leFichier = Dir(chemin & "*.xlsm") 'si tous les fichiers sont bien des xlsm !?
Do While leFichier <> ""
trouve = True
Me.Liste.AddItem leFichier
leFichier = Dir
Loop
If Not trouve Then MsgBox "Aucun fichier trouvé!"
End Sub
Private Sub TSélectionner_Click()
For i = 0 To Liste.ListCount - 1
If AttestationTVA.Liste.Selected(i) = True Then coché = True
Next i
If Not coché Then MsgBox "Veuillez sélectionner au moins une facture pour faire l'attestation de TVA"
End Sub