Discussion :

[alphaStat]

Bonjour,

J'ai récupéré un fichier avec une macro qui permettait de faire une impression avec zones variables.
Voici le 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
For Each w In ActiveWorkbook.Worksheets
'definition de l'entete, en l'occurrence égale à la cellule A1 de la page en cours
valeurEntete = w.Range("A1").Value
w.PageSetup.CenterHeader = valeurEntete
Next
End Sub
 
Sub BasdePageOnglet()
Dim valeurBasdePage As String
'for pour parcourir toutes les pages du fichier excel
For Each w In ActiveWorkbook.Worksheets
'definition de l'entête, en l'occurrence égale à la cellule A1 de la page en cours
valeurEntete = w.Range("B1").Value
w.PageSetup.CenterFooterr = valeurBasdePage
Next
End Sub
 
 
Sub cestPartiValerie()
nbrePageAImprimer = Recup_le_nombre_pages_a_imprimer()
Dim s As Worksheet
Set s = ActiveSheet
EnteteOnglet
For i = 1 To nbrePageAImprimer
'ici il faut définir comment tu personnalises chaque page en fonction de la variable i qui définit la page qui va etre imprimer
ActiveSheet.PageSetup.CenterHeader = "&""Arial,Gras""&12" & ActiveSheet.Range("A879").Offset(i, 0).Value
'ActiveSheet.PageSetup.CenterHeader = ActiveSheet.Range("A879").Offset(i, 0).Value
'pour imprimer directement sans preview il faut remplacer le premier true par false dans la ligne ci-dessous
Call s.PrintOut(i, i, 1, True, True, False, False, False, True)
Next
End Sub
 
 
Function Recup_le_nombre_pages_a_imprimer()
Dim iHpBreaks As Integer, iVBreaks As Integer
Dim iTotPages As Integer
iHpBreaks = ActiveSheet.HPageBreaks.Count + 1
iVBreaks = ActiveSheet.VPageBreaks.Count + 1
iTotPages = iHpBreaks * iVBreaks
Recup_le_nombre_pages_a_imprimer = iTotPages
End Function

Maintenant je souhaite modifier l'entete sur chaque page, l'entete est différent selon la page. Ou puis-je le rajouter ?
Je souhaiterais faire une autre macro pour des entetes automatiques : Entete page 1 = "xx" Entete page 2 = "xxxx"...

Merci d'avance

J'ai peut-être mal exprimé ma demande. Je souhaiterais faire une macro pour définir des entetes différents à chaque zone d'impression ( 17 au total)

Merci d'avance

[78chris]

Bonjour

Dans Excel l'en-tête dynamique n'existe pas. Tu peux différencier 1er page et suivantes, pages paires et impaires.

Le seul moyen d'avoir une en-tête propre à chaque page est, par code ou manuellement, d'imprimer page par page en changeant l'en-tête entre chaque impression ce qui complique la pagination qu'il faut donc aussi gérer.

[alphaStat]

Si j'utilise l'enregistreur de macro pour préparer l'entete de la page 1 et l'imprimer, une autre pour l'entete de la page 2 et l'imprimer etc... cela va fonctionner ?

[78chris]

Re

Oui : après reste à nettoyer et optimiser le code.