date argument type incompatible

Bonjour à tous,

Voila j'ai un problème avec une date passée en parametre.

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub addD(dateA As String, dateD As String) Dim date1, date2 As Date   date1 = "#" & Format(dateA, "mm/dd/yyyy") & "#" date2 = "#" & Format(dateD, "mm/dd/yyyy") & "#"   fonctionA ( date1, date2) ....

---

Et lorsque j'execute cela j'ai une erreur :

Code:

---

1 2	type d'argument ByRef incompatible

---

Or si j'appel ma fonctionA de cette facon :

Code:

---

1 2	fonctionA(#12/12/2004#, #03/24/2006#)

---

Tout fonctionne tres bien......

Et si j'affiche le contenu de

Code:

---

Format(dateD, "mm/dd/yyyy")

---

dans le premier listing de code, cela affiche correctement la date.

Je ne comprend pas. Merci pour votre aide !

Code:

---

1 2	FonctionA(CDate(DateA),CDate(DateB))

---

devrait résoudre le problème.

Prends bien garde à tester des cas comme 01/02/2007 pour être sur que tu récupère bien le 02 janvier 2007 et pas le 1er février !

J'ai maintenant une simple erreur : 'incompatibilité de type' sur l'appel de ma fonction....

En fait le problème c'est que ma date dateD peut être nulle....

J'ai essayé ceci :

Code:

---

1 2 3

Dim date2 As Date date2 = CDate(Format(Nz(dateD), "mm/dd/yyyy"))

---

Mais il me fait toujours l'incompatibilité de type à la seconde ligne....

Avez vous une idée ?

Citation:

---

Dim date1, date2 As Date

---

Date1 n'est pas déclarer comme type Date...enfin je crois...

Oui excusez moi c'est une erreur de ma part, en recopiant ici, mais cela ne change rien....

J'ai essayé ca :

Code:

---

1 2 3 4 5 6

If IsDate(dateD) Then dateD = CDate(dateD) Else dateD = Null End If

---

Mais cela ne marche pas non plus, à la ligne dateD = null il me fait une erreur : "utilisation incorrecte de null"