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