Agrandir le caractère du pied de page

[David]

Bonjour tout le monde,

Je transfère des données de ACCESS vers EXCEL et ceci avec VBA.

J'ai ajouter un pied de page mais il apparaît beaucoup trop petit.

Voici ce que j'ai utilisé comme code :

appexcel.Sheets(feui).PageSetup.CenterFooter = rst![NomAnnexe2002-2003] & " " & rst![PrenomAnnexe2002-2003] & " " & rst![MatriculeAnnexe2002-2003] & " " & "-" & " " & "Pharmacien" & " " & "&p" & "&n"

Avec ce code j'ai plusieurs problèmes :

Le premier est qu'il me dit toujours nom prénom étudiant (ça c'est ok) - Metier et ensuite au lieu de me dire Pages 2/4... il me dit toujours 1/1 et pour les suivantes 1/1...

Ensuite comme je l'ai dit plus haut, les caractères apparaîssent très petit, est-il possible de les augmenter ?

Et dernier petit problème, j'aimerais utiliser un pied de page à gauche et à droite mais cela ne marche pas avec ce code :

'appexcel.Sheets(feui).PageSetup.LeftFooter = "ULB" & " " & "-" & " " & "INSTITUT DE PHARMACIE"

'appexcel.Sheets(feui).PageSetup.rightFooter = "Page" & "& p" & " " & "de" & "/" & "& n"

Il n'a pas l'air de reconnaître left footer et rightfooter.

Merci d'avance pour votre aide

David

 

[Abel]

matthieu,

Pour la pagination, c'est normal.

Normalement, si tu sélectionne toutes tes pages, il devrait te dire 1/n, 2/n, etc.

Pour la mise en forme c'est :

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&""Arial,Gras""&48Le gros pied de page"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With

Bon, là, j'ai brutalement fait un copier/coller du résultat de l'enregistreur.
Tout ça pour dire que cela se passe avec l'instruction "With".

En espérant que cela te dépanne.

Abel

 

[David]

Bonjour,

Merci Abel pour ta réponse.

Cela m'a beaucoup aidé.

Bonne journée

David