Copier différents texte en pied de page
bonjour, je rencontre un problème, j'aimerais insérer des pieds de page avec un bouton macro, mais lorsque j'effectues ma macro ou cela va insérer le texte que je veux, cela marche dans les cellules mais pas dans la case "pied de page", si quelqu'un voit comment m'aider je suis preneur.
cordialement.
Bonjour,
Comme tu ne joins aucun fichier ni aucun code vba ; difficile de comprendre ce qui ne vas pas dans ta macro
Bonjour,
Comme tu ne joins aucun fichier ni aucun code vba ; difficile de comprendre ce qui ne vas pas dans ta macro
bonjour, la macro est la suivant, je trouve ca bien complexe pour un simple collage d'un texte, mais je n'arrive pas a affficher les macros dans la barre d'outil quand ca vient de mon code .
Sub Macro5()
'
' Macro5 Macro
'
'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = _
"ASM Protoplast" & Chr(10) & "SARL au capital de 15 000 €" & Chr(10) & "Parc d’Activité Vendée Sud Loire 1 / S Impasse Archimède / 85600 BOUFFERE / France" & Chr(10) & "N° Siret : 804 845 725 00014 – N° TVA : FR92804845725" & Chr(10) & "" & Chr(10) & "site: www.asmolding.fr mail: contact@asmolding.com"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(1.79166666666667)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub