XL 2010 En-tête et pied de page par VBA

Appo1985 · 1 Août 2023

Bonsoir.
Je voudrais définir l'en-tête et le pied de page de mon document par VBA mais le soucis est que je n'arrive pas à aller à la ligne.
J'ai indiqué en commentaire des exemples d'informations que je voudrais ajouter au niveau de l'entête.
Merci d'avance pour le soutien.
Ci joint mon fichier

jpb388 · 1 Août 2023

Bonjour à tous
essaye ceci

VB:

Sub EntetePiedPersonnalise()
      Dim myText As String
      titre = InputBox("Entrez le titre ici", "Titre du document")
      With ActiveSheet.PageSetup
            .LeftHeader = "Nom du pays" & Chr(10) & "nom de la region" & Chr(10) & "nom de la province" & Chr(10) & "nom de la circoncription"
            .CenterHeader = titre
            .RightHeader = "ICI le 01/08/2023"
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
      End With
End Sub

Appo1985 · 1 Août 2023

Appo1985 à dit:
Bonsoir.
Je voudrais définir l'en-tête et le pied de page de mon document par VBA mais le soucis est que je n'arrive pas à aller à la ligne.
J'ai indiqué en commentaire des exemples d'informations que je voudrais ajouter au niveau de l'entête.
Merci d'avance pour le soutien.
Ci joint mon fichier

La première ligne est :
Dim titre as string

jpb388 · 1 Août 2023

Bonjour à tous
essaye ceci

VB:

Sub EntetePiedPersonnalise()
      Dim myText As String
      titre = InputBox("Entrez le titre ici", "Titre du document")
      With ActiveSheet.PageSetup
            .LeftHeader = "Nom du pays" & Chr(10) & "nom de la region" & Chr(10) & "nom de la province" & Chr(10) & "nom de la circoncription"
            .CenterHeader = titre
            .RightHeader = "ICI le 01/08/2023"
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
      End With
End Sub

Appo1985 · 2 Août 2023

Merci beaucoup @jpb388 c'est ce que je voulais.

XL 2010 En-tête et pied de page par VBA

Appo1985

XLDnaute Occasionnel

Pièces jointes

jpb388

Appo1985

XLDnaute Occasionnel

jpb388

XLDnaute Accro

Appo1985

XLDnaute Occasionnel

Discussions similaires