Pied de page par macro

Salutations,

J'ai beaucoup parcouru google et même l'excellentissime http://fring.developpez.com/vba/excel/entetepiedpage/
Malheureusement, je n'arrive pas à obtenir ce que je veux sur mon EXCEL 2003, peut-être arriverez vous à m'éclairer. Voici ma problématique.

Je dispose d'une 20ène d'onglets.

Dans un de ces onglets, lorsque j'imprime, je souhaite faire apparaitre un pied de page (gauche) contenant la valeur des formules situées en :
A1 ajouter un espace A2

Il s'agit donc de placer le code macro pour pour qu'il agisse à l'aperçu avant impression seulement de l'onglet actif (sans le nommer).
Comment le déclencher ? Comment recopier le contenu de ces cellules en bas de page ?

Merci.

Bonjour,

Dans ta macro, tu testes le nom des onglets à traiter, par exemple :

Code:

---

1 2 3 4 5 6 7

Sub Macro() Dim Feuilles As Variant Feuilles = Array("Feuil2", "Feuil3", "Feuil5") For Each Item In Feuilles 'ici ton code Next Item End Sub

---

Je me suis mal exprimé.
J'ai corrigé ma formulation dans le message initial.

Dans cet onglet, utilise deux cellules qui sont inutilisées dans le autres; tu mets (par exemple) :
en IV1 :

Code:

---

=A1

---

en IV2 :

Code:

---

=A2

---

et pour tous onglets, tu mets :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub toutes_feuilles() Dim x As Byte   For x = 1 To Sheets.Count With Sheets(x).PageSetup 'pied de page .LeftFooter = Sheets(x).[IV1] & " " & Sheets(x).[IV2] End With Next x   End Sub

---

Merci pour votre aide, mais je cherche vraiment un moyen "plus propre" et clair dans mon esprit de le faire pour une feuille et non pas toute les feuilles !

Code:

---

1 2 3 4 5 6

Sub declenchement-lorsque-apercu-de-la-page-active() With Sheets(x).PageSetup 'pied de page .LeftFooter = Sheets(x).[A1] & " " & Sheets(x).[A2] End With End Sub

---

Ma syntaxe doit être fausse, mais pourquoi ne pas le faire marcher comme ça ?

Code:

---

ActiveSheet.PageSetup.LeftFooter = [A1] & " " & [A2]

---

Ce code me déclenche une erreur lorsque je le mets tel quel dans le code macro de ma feuille :

Code:

---

ActiveSheet.PageSetup.LeftFooter = [A1] & " " & [A2]

---

Erreur de compilation :
Instruction incorrecte à l'extérieur d'une procédure

Ca fonctionne ici. A moins que la feuille soit protégée.

Dans l'événement Change de la feuille peut-être.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Or Target.Address = "$A$2" Then If PageSetup.LeftFooter <> Cells(1, 1) & " " & Cells(1, 2) Then PageSetup.LeftFooter = Cells(1, 1) & " " & Cells(1, 2) End If End If End Sub

---

Docmarti.

Citation:

---

Envoyé par Daniel.C

Ca fonctionne ici. A moins que la feuille soit protégée.

---

Effectivement, ma feuille est protégée et doit l'être.
En revanche, le fait d'enlever la protection, ne change rien…
Existe-t-il un moyen de résoudre mon problème ?

Sinon, ce code là, au changement d'état, ne fonctionne pas du tout. D'ailleurs, réaliser un déclenchement au changement de valeur d'une cellule ne peut pas convenir à mon utilisation. J'aimerais vraiment que ce soit l'aperçu avant impression qui déclenche ceci.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Or Target.Address = "$A$2" Then If PageSetup.LeftFooter <> Cells(1, 1) & " " & Cells(1, 2) Then PageSetup.LeftFooter = Cells(1, 1) & " " & Cells(1, 2) End If End If End Sub

---

Or, même ce code là ne fonctionne pas :

Code:

---

Private Sub Workbook_BeforePrint(Cancel As Boolean)

---

Bonjour,
Module placer dans Thisworkbook

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Test du nom de la feuille If ActiveSheet.Name = "Feuil1" Then 'desactive la protection ActiveSheet.Unprotect Password:="0000" 'effectue les modifications du pied de page ActiveSheet.PageSetup.LeftFooter = [A1] & " " & [A2] 'réactive la protection de la feuille ActiveSheet.Protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

---

Citation:

---

Ce code me déclenche une erreur lorsque je le mets tel quel dans le code macro de ma feuille :

---

Publie ce code.

Citation:

---

Envoyé par iIncoming

Ce code me déclenche une erreur lorsque je le mets tel quel dans le code macro de ma feuille :

Code:

---

ActiveSheet.PageSetup.LeftFooter = [A1] & " " & [A2]

---

Erreur de compilation :
Instruction incorrecte à l'extérieur d'une procédure

---

ce message d'erreur est cohérent car si tu copie colle le code en dehors d'une sub :arf:

Code:

---

1 2 3 4 5

sub test()   end sub   msgbox "toto" 'debug pas contant

---

petite précision:
ça peut semblé invraisemblable, mais la mise en page est assujettie a l'imprimante sélectionnée au moment de l’affectation de la mise en page!

ainsi une imprimante traceur, ne dispose pas d'entêtes et pieds de pages donc erreur!

de plus si le contenu de l'entête ce trouve dans la cellule Feuil2!A1 tu as toutes l’attitude pour pour utiliser l’événement change pour modifier ta mise en page!

Bonjour,

Citation:

---

ce message d'erreur est cohérent car si tu copie colle le code en dehors d'une sub

---

On ne me l'avais encore jamais faite, celle-la !