caster une date

**crac_finance** · 31/05/2007, 10h19

j ai un pb avec les dates,

je ne dois lancer une macro que si la date du jour est identique dans la macro
Macro Fonds Paris Last 5.xls et dans un fichier annexe (tjrs excel)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le probleme est sur cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (date_j - date_fic_j <> 0) Or (date_v - date_fic_v <> 0) Then

kan je me mets dessu j'ai ceci
Incompatibilité de type : 29/05/07-"29/05/07" or 25/05/07-25/05/07

le probleme vient donc de cette declaration je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

date_fic_j = Workbooks(dossier1).Sheets("recap").[b11]

cette date sur le fichier que je telecharge du net est prise avec des guillements,donc comme si c t en format texte....

quelqu un saurait il m aider ? comment la castrer pr la forcer a etre une date ?

merci de votre aide