Discussion :

[cocopops78]

Bonjour

J'ai un soucis avec les headers que je definis pour générer automatiquement un pdf
de ma feuille excel.
Il superpose les anciens headers avec les nouveaux que je definis.
Pire, même en mettant en commentaire le header dans le code VBA, les headers apparaissent quand même dans le pdf généré

Merci de l'aide .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'With ActiveSheet.PageSetup
'        .LeftHeader = "&30 **********           Liste Taches    &D      &T"
'        .CenterHeader = ""
'        .RightFooter = " &30 PAGE  &P de &N    *******"
'End With
Range("A1:K" & Cells(Rows.Count, "A").End(xlUp).Row).ExportAsFixedFormat _
                     Type:=xlTypePDF, _
                     Filename:=SRep & "\" & SFilename, _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=True

[Jean-Philippe André]

Salut,


tu peux juste nous confirmer qu'au moment où tu exécutes ton code, les en-tete et pied de pages de tes feuilles sont vides ? Car une fois mis, ils restent

[cocopops78]

Salut,


tu peux juste nous confirmer qu'au moment où tu exécutes ton code, les en-tete et pied de pages de tes feuilles sont vides ? Car une fois mis, ils restent

comment le savoir ? quand le document est généré tous apparait simultanément et furtivement. j'ai l'impression que c'est mémorisé et comme je disais le fait de mettre en commentaire le code relatif aux headers, c'est quand meme mis.

[Ecthelion2]

Bonjour,

Personnellement, quand je viens remplir / mettre à jour des données quelque part, sauf contre-indication spécifique, j'essaie de remettre à blanc les zones de réceptions des données pour éviter ce genre de problème.

Du coup, avant de venir mettre vos "nouveaux" en-têtes, pourquoi ne pas supprimer les éventuels en-têtes déjà présents ? Je ne garantie pas que cela solutionne le problème, mais cela ne coût rien d'essayer :

Code :

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

1
2
3
4
5
6
7
8
 
With ActiveSheet.PageSetup
 
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
 
End With

Cordialement.

[cocopops78]

Du coup, avant de venir mettre vos "nouveaux" en-têtes, pourquoi ne pas supprimer les éventuels en-têtes déjà présents ? Je ne garantie pas que cela solutionne le problème, mais cela ne coût rien d'essayer :

=> Effectivement ça coute rien et ça solutionne le problème ; bien joué :