Bonjour, bonjour,

Encore un nouvel écueil, voilà je fais des styles de page sous calc que
j'applique à volonté sur mes XX feuilles, en fait je crée des styles de feuilles
personnalisés selon les feuilles que j'ai (soit des tableaux où et des
diagrammes avec ). Je souhaite entre autre insérer dans mes en-têtes mes numéros
de page automatiquement et la quantité de pages de l'ensemble de ma feuille
calc.

Je coince sur cette numérotation automatique;

Voici le début de ma macro, comment donc forcer l'apparition de cette
numérotation de pages ?

Clas=ThisComponent Feuils=Clas.Sheets Feuil=Clas.CurrentController.ActiveSheet Dim Familles As Object Familles=Clas.StyleFamilies Dim PageF As Object PageF=Familles.GetByName("PageStyles")

Dim NouvS As Object NouvS=Clas.CreateInstance("com.sun.star.style.PageStyle") T2="JC A4 Paysage_" & Feuil.Name If PageF.HasByName(T2)=True Then PageF.RemoveByName(T2) PageF.InsertByName(T2,NouvS) Dim HText As Object Dim HContent As Object With PageF.GetbyName(T2) .IsLandscape = True .Width = 29700 .Height = 21000 .LeftMargin = 1000 .RightMargin = 1000 .TopMargin=1500 .BottomMargin=1500 .CenterHorizontally=True .CenterVertically=True .ScaleToPages=1 .PrintGrid=True .PrintHeaders=False .FooterOn=False .HeaderOn=True .HeaderIsShared=True .HeaderHeight=300 HContent = .RightPageHeaderContent HContent.LeftText.String = "Page N°" ' numérotation de page ? et quantité de
pages ? ' je souhaite obtenir ici num de page/Quant de page HContent.CenterText.String = Feuil.GetCellRangeByName("B3").Formula HContent.RightText.String = Now .RightPageHeaderContent = HContent .ScaleToPages=0 End With