Set Mon_TdB = ThisWorkbook
'ouverture de la boite de dialogue et selection du fichier par l'utilisateur
FileToOpen = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls)", , "Analyser le fichier", , True)
'Variable type workbook du classeur à analyser
j = UBound(FileToOpen)
For z = 1 To j
Set MES_DONNEES = Application.Workbooks.Open(FileToOpen(z))
'récuperation du nom du fichier à partir du chemin renvoyé par l'application "GetOpenFilename"
TmpStr = Split(FileToOpen(z), "\")
FileName = TmpStr(UBound(TmpStr))
TmpStr = Split(FileName, ".")
FileName = TmpStr(LBound(TmpStr))
Ma_Date = CDate(Mid(FileName, 7, 2) & "/" & Mid(FileName, 5, 2) & "/" & Mid(FileName, 1, 4))