Discussion :

[zorino]

Bonjour,

Dans un classeur, j'ai mis 2 boutons :

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

  Code :

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

  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 :

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

  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

[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é.

Code :

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

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

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 ?

[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é.

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 !

Dans quelle cellule se trouve cette date ?

La feuille qui s'imprime mal (alors qu'elle est OK à l'écran) :


La cellule qui contient la date (dans une autre feuille) :