1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| ' declare la date du jour et la date de la veille, idem pr les dates jours et veille du fichier
Dim date_j, date_v As Date
Dim date_fic_j, date_fic_v As Date
'ds la macro les 2 dates sont ds les cellules B10 (date de la veille) et B11 (date du jour) => ceci ds des fichiers excel que je telecharge du net
date_fic_v = Workbooks(dossier1).Sheets("recap").[b10]
date_fic_j = Workbooks(dossier1).Sheets("recap").[b11]
' je defini les dates jour et veille que l on rentre a la main ds notre fichier excel
date_j = Workbooks("Macro Fonds Paris Last 5.xls").Sheets("Feuil1").[b3]
date_v = Workbooks("Macro Fonds Paris Last 5.xls").Sheets("Feuil1").[b5]
' enfin je compare les dates qui doivent etre identique sinon la macro se bloque et cesse de tourner
If (date_j - date_fic_j <> 0) Or (date_v - date_fic_v <> 0) Then
MsgBox ("Les dates de correspondent pas!")
GoTo lastline
End If |
