macro qui ne marche pas

[yoruichiy]

bonjour,

j'ai créé la macro suivante pour transformer des champs de date (texte) en date et évidemment ca ne marche pas
pouvez vous me dire ce qui ne va pas
merci d'avance

Function String2Date(dd, mm, yyyy As String) As String
If (dd.Length = 1) Then
dd = "0" + dd
End If
If (mm.Length = 1) Then
dd = "0" + mm
End If
Dim tmp
tmp = dd & "/" & mm & "/" & yyyy
'String2Date = DateValue(tmp)
String2Date = tmp
End Function

 

[Guest]

Re : macro qui ne marche pas

Bonsoir et bienvenue sur le forum

En joignant un fichier exemple avec des données à transformer ce serait plus facile de t'aider. Là j'ai un peu l'impression que tu essaies de réinventer la roue, avec des éléments qui n'existent pas.

dd.Length si dd est une variable String, n'existe pas.
len(dd) oui

A+

 

[Paf]

Re : macro qui ne marche pas

bonjour à tous

Outre les erreurs de syntaxe:

If (mm.Length = 1) Then
dd = "0" + mm
End If


sinon

String2Date = Format(dd & "/" & mm & "/" & yyyy, "dd/mm/yyyy")

ou

String2Date = CDate(dd & "/" & mm & "/" & yyyy)

permettent de remplacer tout le code de Function String2Date(...

bonne suite

 

[yoruichiy]

Re : macro qui ne marche pas

merci pour vos réponses ca marche

 

[Modeste geedee]

Re : macro qui ne marche pas

Bonsour®

heu ????
formule :
=Date(yyyy;mm;dd)
VBA :
=DateSerial(yyyy,mm,dd)