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
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
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
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
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" <Louis@discussions.microsoft.com> a écrit dans le message de news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
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
Merci pour le code mais je n'arrive pas a le faire fonctionner.
LouisBonjour
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
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
Merci pour le code mais je n'arrive pas a le faire fonctionner.
LouisBonjour
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
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.
LouisBonjour
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
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" <Louis@discussions.microsoft.com> a écrit dans le message de news:
14999AA5-87E9-4704-8185-07DD87A47749@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
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.
LouisBonjour
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
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
LouisRe
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.
LouisBonjour
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
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
14999AA5-87E9-4704-8185-07DD87A47749@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
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
LouisRe
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.
LouisBonjour
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
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
LouisRe
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.
LouisBonjour
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
Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?
Cordialement
Pascal
"Louis" <Louis@discussions.microsoft.com> a écrit dans le message de news:
57A9975E-00F6-4FB7-BA2C-03567DE9A1F2@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
14999AA5-87E9-4704-8185-07DD87A47749@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
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
LouisRe
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.
LouisBonjour
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
With PiedDePage()
Salutations
LouisRe
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
LouisRe
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.
LouisBonjour
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
With PiedDePage()
Salutations
Louis
Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?
Cordialement
Pascal
"Louis" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
57A9975E-00F6-4FB7-BA2C-03567DE9A1F2@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
14999AA5-87E9-4704-8185-07DD87A47749@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message
de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
With PiedDePage()
Salutations
LouisRe
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
LouisRe
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.
LouisBonjour
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
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
LouisRe
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
LouisRe
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.
LouisBonjour
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
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" <Louis@discussions.microsoft.com> a écrit dans le message de news:
F7855093-8C21-4ED8-AC3D-BDFD39773797@microsoft.com...
With PiedDePage()
Salutations
Louis
Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?
Cordialement
Pascal
"Louis" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
57A9975E-00F6-4FB7-BA2C-03567DE9A1F2@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
14999AA5-87E9-4704-8185-07DD87A47749@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message
de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
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
LouisRe
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
LouisRe
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.
LouisBonjour
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
Merci cela fonctionne
Ouf !
j'ai du faire une gaffe Vive Gaston
M'enfin ?
Merci cela fonctionne j'ai du faire une gaffe Vive Gaston.
Encore merci
LouisCa 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
LouisRe
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
LouisRe
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.
LouisBonjour
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
Merci cela fonctionne
Ouf !
j'ai du faire une gaffe Vive Gaston
M'enfin ?
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" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
F7855093-8C21-4ED8-AC3D-BDFD39773797@microsoft.com...
With PiedDePage()
Salutations
Louis
Re
Quelle est précisément la ligne en surbrillance lors de l'erreur ?
Cordialement
Pascal
"Louis" <Louis@discussions.microsoft.com> a écrit dans le message de
news:
57A9975E-00F6-4FB7-BA2C-03567DE9A1F2@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le message
de
news:
14999AA5-87E9-4704-8185-07DD87A47749@microsoft.com...
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" <Louis@discussions.microsoft.com> a écrit dans le
message
de
news:
FB3B4487-3C35-49C0-920F-74EE91E9C387@microsoft.com...
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
Merci cela fonctionne
Ouf !
j'ai du faire une gaffe Vive Gaston
M'enfin ?
Merci cela fonctionne j'ai du faire une gaffe Vive Gaston.
Encore merci
LouisCa 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
LouisRe
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
LouisRe
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.
LouisBonjour
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