' RECHERCHE DES DERNIERS FICHIERS ENREGISTRES
' Détermination du nom du dossier d'archive des contraintes tech à récupérer
DOSSIERarchive = "L:\UP78\CONTRAINTES TECHNIQUES\Archives UP78 " & Year(Date) & "\"
[D54] = DOSSIERarchive
' Ouverture de la boîte de dialogue pour sélectionner les bon fichiers d'archive
Application.Dialogs(xlDialogOpen).Show ("L:\UP78\CONTRAINTES TECHNIQUES\Archives UP78 2012")
' Détermination du nom du fichier d'archive des contraintes tech à récupérer
FICHIERarchive = """" & "CONTRAINTES TECHNIQUES UP 7&8 du " & Format(Date + 1, "dd") & Format(Date + 1, "mm") & Year(Date) & """"
[D53] = FICHIERarchive
FICHIERs = Dir(DOSSIERarchive)
' Recherche dans les archives
a = 0
Do Until FICHIERs = ""
If FICHIERs Like "CONTRAINTES TECHNIQUES UP 7&8 du " & Format(Date + 1, "dd") & Format(Date + 1, "mm") & Year(Date) & "*" Then
Workbooks.Open DOSSIERarchive & FICHIERs
a = 1
Exit Do
End If
FICHIERs = Dir()
Loop
' Si l'archive n'est pas trouvée
If a = 0 Then MsgBox ("pas trouvé")