Problème de conversion de date

Bonjour,

Je dois réussir a connaitre l’écart en jour et en heure entre deux dates. (la finalité de mon travail est de facturer des frais d'annulation suivant le délais entre la DateFrom et la CancelledDate)

Sauf que je galere avec le fichier que l'on me communique.

J'ai commencé par convertir, délimité... bref j'y arrive.

Des que je travail avec l'outils "Enregistrer une macro" j'ai des dates qui passe en format Uk d'autre qui reste au format Fr. Bref je galere, je nage, je coule.....

Voici ma macro qui en résulte :

Cells.Find(What:="DateFrom").Activate

ActiveCell.Offset(1, 0).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 9), Array(1, 4), Array(17, 9)), TrailingMinusNumbers:= _

True

J'ai bien cherché sur le forum et d'autres, via google mais rien que j'ai pu trouver.

Merci de votre aide à tous.

Eddie

bonjour

pourquoi du VBA ?

enlève l'apostrophe devant les dates (par formule dans une nouvelle colonne)

bonjour,

ça serait déjà bien que tu récupère tes dates au format date : ça éviterai déjà pas mal de problème.

A+

Pourquoi du VBA car je vais devoir le traiter tous les jours, donc l'automatiser avec une macro c'est plus simple dans le travail et ça permet en mon absence que ma collègue qui ne pige rien a excel puisse le faire.

Pour le format des dates j'ai pas le choix, c'est le systeme des ventes qui nous ressort sous ce format.

Merci

Bonjour

voila une macro pour convertir en date

Sub Test()
Application.ScreenUpdating = False
Range("C1:D" & Rows.Count).Clear
    For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
        MaDate1 = Replace(Range("A" & L).Value, "'", "")
            If IsDate(MaDate1) Then
                Range("C" & L).Value = CDate(MaDate1)
            End If
        MaDate2 = Replace(Range("B" & L).Value, "'", "")
            If IsDate(MaDate2) Then
                Range("D" & L).Value = CDate(MaDate2)
            End If
    Next
End Sub

A+

Maurice

re à tous

une colonne calculée ne demande aucun travail de la part de l'utilisateur(trice). Moins même que VBA

Merci Archer, impeccable ca marche. Tu me retire une épine du pied.