Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro qui ne marche pas

yoruichiy

XLDnaute Nouveau
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
 
G

Guest

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

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…