Discussion :

[ghosty04]

Bonjour,

J'essaye de mettre la formule "=DATE.COUPON.SUIV(AUJOURDHUI(); " & Feuil10.Cells(i, 13) & "; 4; 2)" dans une cellule de mon classeur mais à l'execution du code ça me renvoie l'erreur: "Erreur d'execution '1004': Erreur définie par l'application ou par l'objet."
J'ai essayé de mettre le string dans une variable avant de l'affecter à la cellule mais ça ne marche toujours pas. Si qun peut m'aider sur ce coup ce sera gentil.
Merci d'avance

le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil10.Cells(i, 14).Value = "=DATE.COUPON.SUIV(AUJOURDHUI(); " & Feuil10.Cells(i, 13) & "; 4; 2)"

[zandru]

Bonjour,

pour insérer une formule dans une cellule via VBA, utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Feuil10.Cells(i, 14).FormulaLocal = "=DATE.COUPON.SUIV(AUJOURDHUI(); " & Feuil10.Cells(i, 13) & "; 4; 2)"
ou
Feuil10.Cells(i, 14).FormulaR1C1 = "=DATE.COUPON.SUIV(AUJOURDHUI(); " & Feuil10.Cells(i, 13) & "; 4; 2)"

[aalex_38]

Sinon au lieu d'utiliser la formule excel, le code VBA Now peut aussi servir

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Format(Now, "mm-dd-yyyy")

[LeForestier]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[D14].FormulaLocal = "=DATE.COUPON.SUIV(AUJOURDHUI();Feuil10!M" & i & ";4;2)"

A+

[ghosty04]

merci les gars, j'ai fait avec FormulaLocal et ça a marché