D
David
Guest
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
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