J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque
mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à
gauche JANVIER 2008 et au centre mon nom.
Comment puis-je faire pour que sur chaque feuille le nom se recopie
automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la
feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par c haque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j' inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader =
Sheets(1).PageSetup.CenterHeader
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub
JB
On 31 oct, 19:38, Nicoh <Ni...@discussions.microsoft.com> wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par c haque
mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j' inscris à
gauche JANVIER 2008 et au centre mon nom.
Comment puis-je faire pour que sur chaque feuille le nom se recopie
automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la
feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par c haque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j' inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh
Nicoh
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en deuxième ligne. Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne change rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader > Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en deuxième
ligne.
Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la
ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un
récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne change rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader > Sheets(1).PageSetup.CenterHeader
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub
JB
On 31 oct, 19:38, Nicoh <Ni...@discussions.microsoft.com> wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque
mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à
gauche JANVIER 2008 et au centre mon nom.
Comment puis-je faire pour que sur chaque feuille le nom se recopie
automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la
feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en deuxième ligne. Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne change rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader > Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh
JB
http://cjoint.com/?kFwdeGSOIw
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(2).PageSetup.CenterHeader 'ou ActiveSheet.PageSetup.CenterHeader = "Toto" ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 21:37, Nicoh wrote:
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en de uxième ligne. Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne cha nge rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune p ar chaque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalis é j'inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?kFwdeGSOIw
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = Sheets(2).PageSetup.CenterHeader
'ou ActiveSheet.PageSetup.CenterHeader = "Toto"
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub
JB
On 31 oct, 21:37, Nicoh <Ni...@discussions.microsoft.com> wrote:
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en de uxième
ligne.
Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la
ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un
récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne cha nge rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader =
Sheets(1).PageSetup.CenterHeader
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub
JB
On 31 oct, 19:38, Nicoh <Ni...@discussions.microsoft.com> wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune p ar chaque
mois de l'année. En feuille 1 (JANVIER), en en-tête personnalis é j'inscris à
gauche JANVIER 2008 et au centre mon nom.
Comment puis-je faire pour que sur chaque feuille le nom se recopie
automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la
feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(2).PageSetup.CenterHeader 'ou ActiveSheet.PageSetup.CenterHeader = "Toto" ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 21:37, Nicoh wrote:
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en de uxième ligne. Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne cha nge rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune p ar chaque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalis é j'inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Nicoh
Merci beaucoup, ça fonctionne parfaitement
Nicoh
http://cjoint.com/?kFwdeGSOIw
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(2).PageSetup.CenterHeader 'ou ActiveSheet.PageSetup.CenterHeader = "Toto" ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 21:37, Nicoh wrote:
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en deuxième ligne. Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne change rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader > > > Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
A bientôt,
nicoh- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci beaucoup, ça fonctionne parfaitement
Nicoh
http://cjoint.com/?kFwdeGSOIw
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = Sheets(2).PageSetup.CenterHeader
'ou ActiveSheet.PageSetup.CenterHeader = "Toto"
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub
JB
On 31 oct, 21:37, Nicoh <Ni...@discussions.microsoft.com> wrote:
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en deuxième
ligne.
Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la
ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un
récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne change rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader > > > Sheets(1).PageSetup.CenterHeader
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub
JB
On 31 oct, 19:38, Nicoh <Ni...@discussions.microsoft.com> wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque
mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à
gauche JANVIER 2008 et au centre mon nom.
Comment puis-je faire pour que sur chaque feuille le nom se recopie
automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la
feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Sheets(2).PageSetup.CenterHeader 'ou ActiveSheet.PageSetup.CenterHeader = "Toto" ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 21:37, Nicoh wrote:
Merci pour ta réponse rapide JB.
Malheureusement j'ai un bug. J'ai ajouté "MON NOM" après le = en deuxième ligne. Quand je fais aperçu avant impression, j'ai une erreur d'exécution et la ligne 3 est surlignée en jaune !
Petite précision, la feuille 2 est janvier, etc, car la feuille 1 est un récap. J'ai donc mis en ligne 3 de ton code Sheets(2), mais ça ne change rien.
Peux-tu m'aider sur ce coup ?
Nicoh
Bonsoir,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader > > > Sheets(1).PageSetup.CenterHeader ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name End Sub
JB
On 31 oct, 19:38, Nicoh wrote:
Bonsoir à tous,
J'utilise un classeur Excel de 12 feuilles représentées chacune par chaque mois de l'année. En feuille 1 (JANVIER), en en-tête personnalisé j'inscris à gauche JANVIER 2008 et au centre mon nom. Comment puis-je faire pour que sur chaque feuille le nom se recopie automatiquement et que le mois de l'année 2008 s'inscrive selon le nom de la feuille sur chaque en-tête de page?
D'avance je vous remercie pour vos éventuelles réponses,