URGENT !! Pied de page et référence à une cellule

[Xanthar15]

Bonjour,

Tout d'abord désolé de faire le boulet en disant que c'est URGENT mais ça l'est vraiment (j'ai besoin de la réponse pour ce soir !)

Alors merci d'avance à tous ceux qui me répondront !

Voila le problème, dans le fichier ci joint, le pied de page fait référence à une cellule (la cellule B5 de la feuille 1)
Et quand je change la valeur de la cellule et que je fait impression du classeur entier (je tiens à faire de cette façon), le changement ne se fait que sur la 1ere feuille

pourquoi ?

Et encore pire, quand je crée une macro pour faire exactement la meme chose (cad imprimer le classeur entier) ca me chamboule tous le pied de page et l'en tete

Mes formules VBA pour le pied de page et l'en tete ne sont p-e pas bonnes ?

Merci si vous trouvez une solution

Et encore merci à vous tous et à Exccel Download qui m'avaient déjà bien aidé pour d'autres choses !!

 

[JNP]

Re : URGENT !! Pied de page et référence à une cellule

Bonsoir 🙂,
As-tu essayé

    Sheets("Quest.Entreprise").Activate

au lieu du .select ?
Bonne soirée 😎

 

[Xanthar15]

Re : URGENT !! Pied de page et référence à une cellule

bonsoir,

je viens d'essayer et ça ne marche pas

pas d'autres idées ?

 

[SubEndSub]

Re : URGENT !! Pied de page et référence à une cellule

Bonjour chez vous


Pour la macro Impressionglobale2


tu peux alléger ton code ainsi

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintOut Copies:=1, Collate:=True

Mettre le bon nom des feuilles à imprimer.

 

[JNP]

Re : URGENT !! Pied de page et référence à une cellule

Re 🙂,
Et comme ça

Sub Impressionglobale2()
'
' Impressionglobale2 Macro
' Macro enregistrée le 27/08/2009 par fred
'
'
    Sheets("Quest.Entreprise").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Quest.Conjoint").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Rém°").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Maladie").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Maternité").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Retraite").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Séparation-Veuvage").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Liste statuts").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Tableau de bord").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Liste de contrôle").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub PiedsDePages()
ActiveSheet.PageSetup.LeftFooter = "&I&U&F"
ActiveSheet.PageSetup.RightFooter = "&I&UDossier : " & Range("[COLOR=red][B]t1[/B][/COLOR]").Value
ActiveSheet.PageSetup.RightHeader = "&I&U" & Range("U1").Value
ActiveSheet.PageSetup.CenterHeader = " "
ActiveSheet.PageSetup.LeftHeader = "&I&UEtude du statut du conjoint du chef d'entreprise"
End Sub

bizarre ton t1 à la place du B5 dont tu parles...
Bon courage 😎

 

[kjin]

Re : URGENT !! Pied de page et référence à une cellule

Bonsoir,
Non testé

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Txt1 = Sheets("feuille1").Range("U1")
Txt2 = Sheets("Feuille1").Range("T1")
For i = 1 To Sheets.Count
    With Sheets(i).PageSetup
        .LeftHeader = "&I&UEtude du statut du conjoint du chef d'entreprise"
        .RightHeader = "&I&U" & Txt1
        .LeftFooter = "&I&U&F"
        .RightFooter = "&I&UDossier:" & Txt2
    End With
Next
End Sub

Edit : oublier de souligner !

A+
kjin

 

[Xanthar15]

Re : URGENT !! Pied de page et référence à une cellule

avant tout merci à tous pour vos réponses rapides

malheureusement les options proposées ne marchent pas (message erreur ou effet non escompté)

du coup je vais me débrouiller autrement c pas grave

(pour info la référence à T1 était une façon pour éviter de mettre la cellule d'une feuille précise car ca n'allait pas)

 

[kjin]

Re : URGENT !! Pied de page et référence à une cellule

Re,
Comment lances tu l'impression ?

 

[Catrice]

Re : URGENT !! Pied de page et référence à une cellule

Bonsoir,

Tu peux essayer ceci :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each X In Sheets
    X.PageSetup.LeftFooter = "&I&U&F"
    X.PageSetup.RightFooter = "&I&UDossier : " & Sheets("feuille1").Range("t1").Value
    X.PageSetup.RightHeader = "&I&U" & Sheets("feuille1").Range("U1").Value
    X.PageSetup.CenterHeader = ""
    X.PageSetup.LeftHeader = "&I&UEtude du statut du conjoint du chef d'entreprise"
Next
End Sub

Pour imprimer le classeur :
ActiveWorkbook.PrintOut