format de date avant impression via macro

Bonjour,

Dans un classeur, j'ai mis 2 boutons :

• le premier permet de générer une nouvelle feuille via ce code :
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  Sub DupliquerModele() ' ' DupliquerModele Macro '   ' Sheets("modèle").Select Sheets("modèle").Copy After:=Sheets("modèle") Sheets("modèle (2)").Select Sheets("modèle (2)").Range("C15").Value = Range("nbvendredi").Value Sheets("modèle (2)").Range("C16").Value = Range("nbdimanche").Value Sheets("modèle (2)").Name = Format(Range("mois_choisi").Value, "mmm yyyy") Range("D15").Select End Sub

  ---

• Le deuxième permet de générer exactement la même feuille ET de l'imprimer, via ce code identique au précédent, à l'exception de la ligne ...PrintOut... :
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

  Sub DupliquerEtImprimerModele() ' ' DupliquerEtImprimerModele Macro '   ' Sheets("modèle").Select Sheets("modèle").Copy After:=Sheets("modèle") Sheets("modèle (2)").Select Sheets("modèle (2)").Range("C15").Value = Range("nbvendredi").Value Sheets("modèle (2)").Range("C16").Value = Range("nbdimanche").Value Sheets("modèle (2)").PrintOut From:=1, To:=2, Copies:=1, Collate:=True, IgnorePrintAreas:=False Sheets("modèle (2)").Name = Format(Range("mois_choisi").Value, "mmm yyyy") Sheets("Feuil1").Select End Sub

  ---

Le problème est le suivant :

• avec le premier bouton, une zone de texte qui contient =AUJOURDHUI (lien vers une cellule d'une autre feuille qui contient la formule =AUJOURDHUI()) s'affiche bien avec 01/03/2017, et la date imprimée est bien 01/03/2017
• mais avec le deuxième, la date imprimée est 3/1/2017 (alors que je vois toujours 01/03/2017 à l'écran)

il se produit donc visiblement quelque chose dans un cas et pas dans l'autre... mais quoi donc ?

Merci pour toute aide,
Zorino

Ma première remarque ne concerne pas exactement ton problème mais je ne peux pas m'en empêcher : ton premier code pourrait être grandement simplifié et amélioré.

Code:

---

1 2 3 4 5 6 7

Sub DupliquerModele() Sheets("modèle").Copy After:=Sheets("modèle") ActiveSheet.Range("C15").Value = Range("nbvendredi").Value ActiveSheet.Range("C16").Value = Range("nbdimanche").Value ActiveSheet.Name = Format(Range("mois_choisi").Value, "mmm yyyy") Range("D15").Select End Sub

---

Citation:

---

avec le deuxième, la date imprimée est 3/1/2017 (alors que je vois toujours 01/03/2017 à l'écran)

---

Dans quelle cellule se trouve cette date ?

Citation:

---

Envoyé par Menhir

Ma première remarque ne concerne pas exactement ton problème mais je ne peux pas m'en empêcher : ton premier code pourrait être grandement simplifié et amélioré.

---

Bah, tu l'as compris, c'est du code généré par l'assistant de création de macro, peu m'importe qu'il soit simple ou non, je ne m'en sers qu'une fois par mois... Mais merci quand même !

Citation:

---

Envoyé par Menhir

Dans quelle cellule se trouve cette date ?

---

La feuille qui s'imprime mal (alors qu'elle est OK à l'écran) :
Pièce jointe 249529

La cellule qui contient la date (dans une autre feuille) :
Pièce jointe 249533