Importer fichier "Nom-MM-AAAA"

Function Open_Fichier(ByVal File_Filter As String, ByVal Phrase As String)
' Permet de choisir le fichier à executer
Dim Temp As Variant
Temp = Application.GetOpenFilename(FileFilter:=File_Filter, Title:=Phrase)   ' Basic GetOpenFileName

If Temp = False Or Temp = '' Then
    Exit Function ' Si rien quitter
Else ' Sinon ajouter dans le label fichier et repertoire source !
   Open_Fichier = Temp
End If

End Function

File_Filter = 'Fichier MCL (*.mcl), *.mcl'
Phrase = 'Choisissez le fichier script .mcl à ouvrir :'
Fichier = Open_Fichier(File_Filter, Phrase)

Dim Fichier As String
If Month(Now) < 10 Then
   Fichier = 'LUXTVA-0' & Month(Now) - 1 & '-' & Year(Now)
Else
   Fichier = 'LUXTVA-' & Month(Now) - 1 & '-' & Year(Now)
End If