Bonjour,

Je me casse les dents sur le code suivant depuis plusieurs heures:
Sub test()

v = 13
Do
v = v + 1
Nom_feuille_cherchee = Sheets("Ecran utilisateur").Cells(v, 2)

For T = 3 To 25
If Nom_feuille_cherchee = Sheets("Gestion en-tete et pied de page").Cells(T, 1) Then Exit For
Next T


'En-tête gauche
Sheets(Nom_feuille_cherchee).PageSetup.LeftHeader = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Cells(T, 2)
'En-tête droite
Sheets(Nom_feuille_cherchee).PageSetup.RightHeader = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Cells(T, 3)
'Pied de page gauche
Sheets(Nom_feuille_cherchee).PageSetup.LeftFooter = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Cells(T, 4)
'Pied de page centre
Sheets(Nom_feuille_cherchee).PageSetup.CenterFooter = "&""Tahoma""&10" & "- &P / &N -"
'Pied de page droite
Sheets(Nom_feuille_cherchee).PageSetup.RightFooter = "&""Tahoma""&10" & Sheets("Gestion en-tete et pied de page").Cells(T, 5)

If v > 15 Then Exit Do
Loop

Sheets("Gestion en-tete et pied de page").Range("B7") = T
Sheets("Gestion en-tete et pied de page").Range("B8") = Nom_feuille_cherchee

End Sub


Le problème:
1. Dans l'état, les en-têtes et les pieds de page ne s'affiche pas. Seul le pied de page central s'affiche correctement
2. Si j'enlève "&""Tahoma", tout s'affiche, je peux même modifier la taille

J'ai essayé de comprendre avec l'enregistreur de macro, 2 bouquins, et j'ai traversé les forums traitant le sujet. Qu'ai je fait faux?

Pouvez-vous m'aider?

Merci d'avance


Dave

p

Configuration: Windows 2000
Internet Explorer 6.0
Office 2000