Différence de dates

Bonsoir,

Je voudrais transformer une formule excel en code VBA.

Je veux calculer la durée entre 2 dates

Voici mon tableau

A2: Date: 27-05-2013 11:38

A3: Fin: 27-05-13

D2:

=SOMME(DATEDIF(GAUCHE(DROITE(A2;16);10);DROITE(A3;8);1)

Je suppose qu'il faut écrire qch comme :

Range(D2).select
ActiveCell.FormulaR1C1 = ...

Mais je ne m'y retrouve pas dans les formulations de

SOMME

DATEDIF

GAUCHE

DROITE

Merci de votre aide

Oups,

J'ai fait une erreur dans la formule de résultat.

A2: Date: 27-05-2013 11:38

A3: Fin: 27-05-13

Différence en jours ("d"), en D2:

SOMME(DATEDIF(GAUCHE(DROITE(A12;16);10);DROITE(A13;8);"d");1)

Merci

Bonjour

Ta formule est toujours fausse

Dis-nous ce que tu veux faire ou ce que souhaites obtenir comme résultat

peut-être

=DATEDIF(GAUCHE(DROITE(A2;16);10)*1;DROITE(A3;8)*1;"d")

Ce qui en VBA donne avec l'enregistreur

Range("D2").Select
    ActiveCell.FormulaR1C1 = _
        "=DATEDIF(LEFT(RIGHT(RC[-3],16),10)*1,RIGHT(R[1]C[-3],8)*1,""d"")"

Cordialement

C'est exactement la réponse que j'attendais.

Le calcul de la différence en jours entre la date initiale et celle de fin.

Merci.

ça fonctionne parfaitement dans le code de ma macro.