macro qui ne marche pas

yoruichiy · 7 Novembre 2013

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

Code:

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 · 7 Novembre 2013

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 · 7 Novembre 2013

Re : macro qui ne marche pas

bonjour à tous

Outre les erreurs de syntaxe:

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

sinon

Code:

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 · 8 Novembre 2013

Re : macro qui ne marche pas

merci pour vos réponses ca marche

Modeste geedee · 8 Novembre 2013

Re : macro qui ne marche pas

Bonsour®

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

macro qui ne marche pas

yoruichiy

XLDnaute Nouveau

Guest

Guest

Paf

XLDnaute Barbatruc

yoruichiy

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Discussions similaires