Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

[Compte Supprimé 979]

Bonjour à tous,

Je rencontre un problème avec l'instruction EVALUATE()

Dans mon code j'ai :

Vdate = "13/07/2009"
Rep = Application.Evaluate("DATEVALUE(""" & Vdate & """)")

Pourquoi ai-je : Erreur 2015
lorsque j'essaie de tester ce bout de code

Je dois avoir les neurones embrumés

A+

 

[BOISGONTIER]

Re : Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

Bonjour,

Il y a un pb d'inversion jour/mois.

JB

 

[Pierrot93]

Re : Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

Bonjour Bruno

pour la déclaration / initialisation de la variable, je l'aurais peut être codé ainsi :

Dim Vdate As Date
Vdate = #7/13/2009#

bonne soirée

 

[Compte Supprimé 979]

Re : Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

Salut mon cher BOISGONTIER,

Punaise j'ai testé, c'était juste ça
Comment on peut bloquer lorsque on est trop longtemps sur du code

C'est à devenir fouuuuuuu

Merci à toi AU GRAND manitou

A+

 

[Compte Supprimé 979]

Re : Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

Bonjour Bruno

pour la déclaration / initialisation de la variable, je l'aurais peut être codé ainsi :

Dim Vdate As Date
Vdate = #7/13/2009#

bonne soirée

Merci Pierrot93,

Mais en fait j'utilise des valeurs venant de TextBox

A+

En tout cas c'est [RESOLU]

 

[skoobi]

Re : Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

Bonsoir tout le monde,

pourquoi utiliser EVALUATE sur une fonction VBA?
Ceci suffit:

Rep = DATEVALUE(Vdate)

 

[Compte Supprimé 979]

Re : Erreur 2015 avec Evaluate("DATEVALUE(""" & VDate & """)")

Salut Skoobi,

tu penses bien que si je pose une telle question, c'est que derrière ce cache quelque chose d'un peu plus complexe

Voici le code, qui fonctionne maintenant

Function TotalAchat(vID As String, DateDu As String, DateAu As String)
  ' Calcul le MONTANT TOTAL des ACHATS selon UN fournisseur donné
  ' et un ecart entre DATES
  Dim DLig As Long, C1 As String, C2 As String, C3 As String, C4 As String, MyForm As String
  MyForm = "": TotalAchat = 0
  DLig = Sheets("Stock").Range("B" & Rows.Count).End(xlUp).Row
  '=SOMMEPROD((H3:H18)*(L3:L18>=DATEVAL("13/07/2008"))*(L3:L18<=DATEVAL("13/07/2009"))*(P3:P18="KS001f"))
  C1 = "((Stock!$H3:$H" & DLig & ")"
  C2 = "*(Stock!$L3:$L" & DLig & ">=DATEVALUE(""" & Format(DateDu, "mm/dd/yyyy") & """))"
  C3 = "*(Stock!$L3:$L" & DLig & "<=DATEVALUE(""" & Format(DateAu, "mm/dd/yyyy") & """))"
  C4 = "*(Stock!$P3:$P" & DLig & "=""" & vID & """))"
  MyForm = "SUMPRODUCT" & C1 & C2 & C3 & C4
  TotalAchat = Application.Evaluate(MyForm)
End Function

A+