Discussion :

[ErwanLegrand]

Bonjour à tous.
J'utilise une macro qui me permet de rédiger une fiche établissement. Pour chaque onglet, je désire insérer en tête de page à gauche le numéro de l'établissement et au centre le nom de l'établissement.
Seulement avec le code suivant, ces en-têtes sont tronqués et je n'arrive pas à savoir pourquoi:

Code :

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

1
2
3
4
5
6
7
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
       .LeftHeader = "&""-,Gras""&14" & "Finess: " & finess
       .CenterHeader = "&""-,Gras""&14" & "Etablissement: " & nom & " "
       .RightHeader = "&""-,Gras""&14" & "DATE: " & Format(Now, "dd/mm/yyyy")
    End With
    Application.PrintCommunication = True

Je ne peux pas diminuer la police sinon, ce n'est pas assez gros lors de l'impression. Et de plus, une fois mon code créé, je peux remplir à la main mon en tête, ce n'est donc pas un problème de place!

Merci pour votre aide!

Erwan Legrand

[fring]

Bonjour,

Essaie ceci :

Code :

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

1
2
3
4
5
With ActiveSheet.PageSetup
    .LeftHeader = "&G&14Finess: " & finess
    .CenterHeader = "&G&14Etablissement: " & nom
    .RightHeader = "&G&14&D"
End With

[ErwanLegrand]

Aucun changement.
Mon en tête de gauche affiche "Finess: 24000" au lieu de "Finess: 240000034"
et mon en tête central affiche "Etablissement: CH LAN" au lieu de "Etablissement: CH LANMARY"

Je vais m'arracher les cheveux!!

[fring]

Je n'arrive pas à reproduire ce problème.
Insère ces deux lignes de code et vérifie que tu obtiens bien les bons résultats

Code :

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

1
2
MsgBox "Finess: " & finess
MsgBox "Etablissement: " & nom