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
Partager