Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA pour un pied de page

VBA pour un pied de page

9 réponses
Avatar
Louis
Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne fonctionne pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le pied de
page a chaque ouverture. J'aimerai avoir un code qui me permette d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite et la
cellule B1 pour le pied de page centrale. Il faudrai que la macro fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton classeur :
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le pied de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite et la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis




Avatar
Louis
Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton classeur :
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le pied de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite et la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis









Avatar
papou
Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les infos de pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message de news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton classeur :
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le pied
de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite et
la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis











Avatar
Louis
Bonjour Papou

voila le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
With PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Le message d'erreur est : erreur de compilation Sub ou fonction non definie.
le nom du classeur : feuil1

désolé je débute et c'est unpeu du charabia pour moi.

Merci pour ton aide

Louis



Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les infos de pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message de news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton classeur :
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le pied
de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite et
la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis
















Avatar
papou
Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?

Cordialement
Pascal

"Louis" a écrit dans le message de news:

Bonjour Papou

voila le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
With PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Le message d'erreur est : erreur de compilation Sub ou fonction non
definie.
le nom du classeur : feuil1

désolé je débute et c'est unpeu du charabia pour moi.

Merci pour ton aide

Louis



Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les infos de
pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton classeur
:
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne
fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le
pied
de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite
et
la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis


















Avatar
Louis
With PiedDePage()
Salutations

Louis



Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?

Cordialement
Pascal

"Louis" a écrit dans le message de news:

Bonjour Papou

voila le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
With PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Le message d'erreur est : erreur de compilation Sub ou fonction non
definie.
le nom du classeur : feuil1

désolé je débute et c'est unpeu du charabia pour moi.

Merci pour ton aide

Louis



Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les infos de
pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton classeur
:
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne
fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le
pied
de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de droite
et
la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis























Avatar
papou
Ca ne correspond pas à ce que j'avais posté dans mon message.
Je corrige donc ce que tu as maintenant :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de news:

With PiedDePage()
Salutations

Louis



Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour Papou

voila le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
With PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Le message d'erreur est : erreur de compilation Sub ou fonction non
definie.
le nom du classeur : feuil1

désolé je débute et c'est unpeu du charabia pour moi.

Merci pour ton aide

Louis



Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les infos
de
pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton
classeur
:
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message
de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne
fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le
pied
de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de
droite
et
la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis

























Avatar
Louis
Merci cela fonctionne j'ai du faire une gaffe Vive Gaston.

Encore merci

Louis


Ca ne correspond pas à ce que j'avais posté dans mon message.
Je corrige donc ce que tu as maintenant :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de news:

With PiedDePage()
Salutations

Louis



Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour Papou

voila le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
With PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Le message d'erreur est : erreur de compilation Sub ou fonction non
definie.
le nom du classeur : feuil1

désolé je débute et c'est unpeu du charabia pour moi.

Merci pour ton aide

Louis



Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les infos
de
pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton
classeur
:
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message
de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne
fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer le
pied
de
page a chaque ouverture. J'aimerai avoir un code qui me permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de
droite
et
la
cellule B1 pour le pied de page centrale. Il faudrai que la macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis






























Avatar
papou
Merci cela fonctionne
Ouf !

j'ai du faire une gaffe Vive Gaston
M'enfin ?


:-))

Cordialement
Pascal


"Louis" a écrit dans le message de news:

Merci cela fonctionne j'ai du faire une gaffe Vive Gaston.

Encore merci

Louis


Ca ne correspond pas à ce que j'avais posté dans mon message.
Je corrige donc ce que tu as maintenant :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

With PiedDePage()
Salutations

Louis



Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?

Cordialement
Pascal

"Louis" a écrit dans le message de
news:

Bonjour Papou

voila le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15.05.2007 par lro
'
With PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
.LeftFooter = PdpGauche
.CenterFooter = PdPCentre
.RightFooter = " Page&P sur &N "
End With
Next Feuille
End Sub

Le message d'erreur est : erreur de compilation Sub ou fonction non
definie.
le nom du classeur : feuil1

désolé je débute et c'est unpeu du charabia pour moi.

Merci pour ton aide

Louis



Re
Comment procèdes-tu ?
Quel message d'erreur ?
Quel est le nom de la feuille de ton classeur qui comporte les
infos
de
pied
de page ?

Cordialement
Pascal

"Louis" a écrit dans le message
de
news:

Merci pour le code mais je n'arrive pas a le faire fonctionner.

Louis




Bonjour
Avec quelque chose comme ça à intégrer dans un module de ton
classeur
:
Sub PiedDePage()
Dim PdpGauche As String, PdPCentre As String
With ThisWorkbook.Worksheets("Feuil1")
PdpGauche = .Range("A1")
PdPCentre = .Range("B1")
End With
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille.PageSetup
..LeftFooter = PdpGauche
..CenterFooter = PdPCentre
..RightFooter = "&N"
End With
Next Feuille
End Sub

Cordialement
Pascal

"Louis" a écrit dans le
message
de
news:

Bonjour

J'ai déjà demandé de l'aide sur ce sujet mais le code VBA ne
fonctionne
pas
comme je voudrais. Je me suis peut-etre mal exprimé.
Dans mon classeur excell il y a 5 feuilles, et je dois changer
le
pied
de
page a chaque ouverture. J'aimerai avoir un code qui me
permette
d'utiliser
la données de la cellule A1 feuille 1 pour le pied de page de
droite
et
la
cellule B1 pour le pied de page centrale. Il faudrai que la
macro
fonctionne
aussi pour les feuilles Nr.2 Nr.3 Nr.4 et Nr.5.

Voici le premier code VBA que j'ai reçu:
Sheets("Feuil2").Select
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = Range("B1")
.RightFooter = "&N"
End With
Il fonctionne mais seulement pour la feuille active.

Un grand merci pour l'aide


Louis