[Résolu] Ajout automatique date dans cellule

[Lafricain]

Bonjour,
Me voilà encore de retour! Je n'arrive pas à enregistrer une modif dans une cellule dans laquelle je souhaite mettre la date du jour automatiquement, avec =MAINTENANT(), j'enregistre et à l'ouverture suivante plus rien... J'ai regardé cette fois dans les macros, je n'y ai rien trouvé! J'ai bien dévérouillé la feuille.
Merci d'avance.

[OOotremer971]

Bonjour,

Module facture macro Nouveau, ligne 63 :

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D45").string = ""

à replacer par :

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D45").SetFormula(Now)

Ajout : Tu peux aussi t'inspirer de la ligne 59 qui met une date en I11 : Code : Tout sélectionner   AgrandirRéduire Saisie.getcellrangebyname("I11").value = dateValue(Now)

@+

[Lafricain]

Bonjour et déjà merci,
Alors si je mets:

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D45").SetFormula(Now)

Ça fonctionne mais ça me met aussi l'heure ce qui n'est pas très utile...
Si je copie la ligne 59:

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D45").value = dateValue(Now)

J'ai ces chiffres qui s'affichent dans la cellule : 43250??
Enfin j'ai tenté de faire ceci sur la cellule du dessous (D46):

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D46").SetFormula(D45+30)

Pour ajouter 30 jours à la date de livraison, mais ça marche pas (J'ai tenté hein )

Cordialement, L'Africain

[jeanmimi]

Bonjour,

J'ai ces chiffres qui s'affichent dans la cellule : 43250??

C'est normal, car il faut ensuite formater la cellule au Format Date.

[Lafricain]

C'est normal, car il faut ensuite formater la cellule au Format Date.

Ok ça fonctionne, reste la date plus trente jour. J'ai mis dans la macro:

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D46").SetFormula(Now+30)

(parce qu'avec D45+30 ça fonctionne pas) et j'ai à nouveau l'heure avec la date. Si je mets Today, il y a une erreur dans la macro.
PS: Faut-il ouvrir un nouveau fil?
PS2: Comment fait-on pour actualiser les changements d'une macro sans devoir ouvrir et fermer le document?

[rollmops]

Bonjour,

parce qu'avec D45+30 ça fonctionne pas

En principe une formule commence par = donc :

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D46").SetFormula("=D45+30")

[jeanmimi]

reste la date plus trente jour.J'ai mis dans la macro:

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D46").SetFormula(Now+30)

Tu as eu la solution un peu lus haut par OOotremer971
Les lignes de codes doivent être :

Code : Tout sélectionner   AgrandirRéduire

Saisie.getcellrangebyname("D45").Value=Now
Saisie.getcellrangebyname("D46").Value=Now+30

et les cellules passées en Format Date.

[Lafricain]

Merci à vous tous ça fonctionne impec!