En tête / pied de page
Bonjour à tous,
Je suis nouvelle sur le site et je suis novice dans tous ce qui est code excel
J'ai besoin de votre aide je souhaiterais que ma macro modifie mon en tête et mon pied de page, mais aussi quelle modifie la taille j'ai essayé de m'enregistrer mais la taille ne se modifie pas. Il n'accepte pas ce que j'ai surlignée, si quelqu'un à une réponse s'il vous plait
ActiveSheet.Unprotect
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"C:\Users\xee115\Desktop\Photo Facture\Mob En tête.PNG"
With ActiveSheet.PageSetup.LeftHeaderPicture
.Height = 102
.Width = 253.5
End With
ActiveSheet.PageSetup.FirstPage.LeftHeader.Picture.Filename = _
"C:\Users\xee115\Desktop\Photo Facture\Mob En tête.PNG"
ExecuteExcel4Macro "(15,102,,253.5)"
ActiveSheet.PageSetup.LeftFooterPicture.Filename = _
"C:\Users\xee115\Desktop\Photo Facture\Mob Pied.PNG"
With ActiveSheet.PageSetup.LeftFooterPicture
.Height = 49.5
.Width = 666.75
End With
ActiveSheet.PageSetup.FirstPage.LeftFooter.Picture.Filename = _
"C:\Users\xee115\Desktop\Photo Facture\Mob Pied.PNG"
ExecuteExcel4Macro "(12,49.5,,666.75)"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$38"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = "&G"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&G"
.CenterFooter = ""
.RightFooter = "&KFF0000&P"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(1.10236220472441)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 80
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = "&G"
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = "&G"
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Bonjour
L'intérêt de coder n'est pas certain puisque qu'un en-tête ou pied paramétré manuellement peut contenir le nom du fichier (dynamique), un image et être mise en forme sans passer par ce code...
ExecuteExcel4Macro date de Mathusalem : où as-tu péché ce code ?
Bonjour
L'intérêt de coder n'est pas certain puisque qu'un en-tête ou pied paramétré manuellement peut contenir le nom du fichier (dynamique), un image et être mise en forme sans passer par ce code...
ExecuteExcel4Macro date de Mathusalem : où as-tu péché ce code ?
Bonjour,
Il y a plusieurs en tête/pied page et je souhaite les automatiser pour que mes collaborateurs n'est pas à le faire à chaque fois ou de prendre un fichier différent pour chacun.
Pouvez-vous m'aider s'il vous plait ?
Merci
RE
Il suffit d'utiliser un modèle de classeur (xltx) où les en-têtes sont définis...
Tu n'as pas répondu quand à la source de ta ligne Excel4
Utilise l'enregistreur de macro : tu auras le code (à améliorer ensuite) correspondant à ta version Excel