Résultats pour "entete pied page"

813 résultats pour cette recherche

Bonjour à tous !

J'ai une base de données excel et je souhaiterais la passer en PDF, avec un entête et un pied de page choisis, et ce en format paysage.

Il me faudrait donc une macro qui prend 15 lignes de mon tableau, et en fasse un PDF avec un en tête et un pied de page, sous format paysage, de manière répétée jusqu'à la fin de la base de données.

Est ce possible ?

Merci beaucoup pour votre aide !!

bonjour

je souhaite développer une macro pour que l'entête d'une feuille se modifie en fonction du choix d'un formulaire

pour l'instant j'essaie juste de faire la macro pour coller une image dans l'entête mais rien ne s'affiche

ci-dessous le code utilisé :

avez vous explication svp ?

Sub entete()

'

' entete Macro

'

'

ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _

"Z:\My Documents\logo\logo Worms SM.JPG"

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.PrintTitleRows = ""

.PrintTitleColumns = ""

End With

Application.PrintCommunication = True

ActiveSheet.PageSetup.PrintArea = "$A$10:$H$70"

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.LeftHeader = "&G"

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(0.393700787401575)

.RightMargin = Application.InchesToPoints(0.393700787401575)

.TopMargin = Application.InchesToPoints(0.196850393700787)

.BottomMargin = Application.InchesToPoints(0.196850393700787)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintSheetEnd

.PrintQuality = 1200

.CenterHorizontally = True

.CenterVertically = True

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 100

.PrintErrors = xlPrintErrorsDisplayed

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = False

.ScaleWithDocHeaderFooter = False

.AlignMarginsHeaderFooter = False

.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

merci

seb

Bonjour,

J'ai beau essayé mais je n'y arrive pas...

J'ai une macro qui me permet de renvoyer une cellule dans un entête et une autre cellule en pied de page. Jusque là pas de soucis. Par contre, je n'arrive pas à mettre une mise en forme dans l'entête et dans le pied de page différente de la cellule d'origine.

Le code que j'ai est :

Sub En_tête_et_pied_de_page()

Dim x As Byte

For x = 1 To Sheets.Count

With Sheets(x).PageSetup

'En tête de page

.CenterHeader = "&B&22&""Cambria"

.CenterHeader = Range("B1")

'Pied de page

.CenterFooter = "8&""Arial"

.CenterFooter = Range("B2")

End With

Next x

End Sub

Le texte que je veux se met bien dans l'entête et le pied de page. Quid de la mise en forme du texte ?

Format entête Cambria taille 22, Format pied de page Cambria taille 8.

Dois je créer une nouvelle macro pour cette mise en page ou est ce qu'éventuellement une solution existe pour avoir à la fois la cellule qui se retranscris en en entête pied de page et la mise en forme en même temps ?

Si vous avez une solution je suis preneur.

Bonjour a tous ,

Jai besoin de votre aide , savez-vous comment insérer l'entete et pied de page seulement dans une page donnée ( No 4 par exemple ) en vba dans Word via Excel ? L entete contient une image et le pied de page contient 4 bloc texte séparé.

Merci.

bonjour,

Je posséde excel 2003 et je n'arrive pas à utiliser le caractére "&" ( et commerçial ) dans la saisie de l'entête ou du pied de page. Ce caractére est utilisé comme parametre de commande excel ( ex &[Pages] ). C'est pourquoi il ne veut pas l'afficher mais je pense qu'il doit y avoir un moyen avec des symboles pour l'afficher !!!

Merci pour votre aide !!!

capture 1

Bonjour à tous,

Je finalise un document qui va être diffuser à plusieurs services. Actuellement j'inserts 2 images, une en entête et la seconde en pied de page. je rapatrie les images depuis un emplacement sur le disque dur.

ActiveSheet.PageSetup.LeftHeaderPicture = _
                "H:\Saint Louis\Glims\Masque logo.GIF"

              ActiveSheet.PageSetup.CenterFooterPicture.Filename = _
        "H:\Saint Louis\Glims\Capture.GIF"

Jusque là tous va bien. Mais je voulais savoir si je pouvais récupérer les images directement depuis mon onglet 1(Masque) ou elles sont également disponibles.

Image 1 pour l'entête

Image 2 pour le pied

Mais je n'arrive pas à indiquer en vb que l'image est déjà présente dans le fichier.

Cela serait nettement plus simple pour la diffusion du fichier si les images étaient déjà inclus. j'ai vue quelques sujets traitant le problème mais j'avoue ne pas avoir tous compris ( il faudrait passer par une image temporaire....si j'ai bien compris).

Je reste à votre disposions pour toutes informations complémentaires,

Merci

Bonjour,

Je bloque depuis pas mal de temps sur un problème de pied de page.

J'ai plusieurs fichiers excel d'une 20aine de pages chacun et j'aimerais appliquer le même pied de page à tous les onglets (nom de la société à gauche, nom de l'onglet au centre, nom du fichier à droite). Le problème c'est que j'ai des formats de pages différents (paysage, portrait, A3, etc) et si je sélectionne tous les onglets et que je passe par la fenêtre "Mise en page", les pages vont toutes se mettre au même format et ça fait tout partir en vrille.

La seule solution que j'ai trouvée pour le moment c'est de remplir les champs du pied de page personnalisé pour chaque onglet. Autant vous dire que faire ça pour 30 fichiers à 20 onglets chacun, ça me prend un temps fou

J'ai par contre trouvé un ancien pied de page personnalisé à mon collègue dans le menu déroulant.

piedpageexcel

Je lui ai posé la question mais il ne se rappelle pas comment il a fait (c'était il y a ~15 ans) et il pense même n'avoir pas fait exprès. Est-ce que quelqu'un connaît une manière de faire apparaître un modèle de pied de page dans ce menu ? Je devrai certes le sélectionner à chaque onglet mais ça me prendrait bien moins de temps que de devoir tout récrire à chaque fois...

Merci d'avance pour votre aide !

Bonsoir à tous,

Ma question est la suivante. Peut-on dans EXCEL avoir un pied de page différent sur la première page, tel qu'il est possible de le faire dans WORD.

Si OUI, comment ?

Merci à tous pour votre aide ce serait grandement apprécié pour un travail que j'ai à faire.

Carmen

3numeros.xlsm (55.09 Ko)
4page-test.docx (16.98 Ko)

Bonjour à toutes et à tous.Je bloque un peu sur la numérotation des pages. J'aurais voulu que le numéro de page s'affiche au milieu (dans la hauteur) du pied de page. Je vous joins le fichier Word à modifier et une capture d'écran du même fichier, modifié avec Photoshop pour que vous ayez une idée de ce que je voudrais obtenir. Pouvez-vous me donner une astuce si elle existe? Merci

capture

Bonsoir,

Seconde petite question qui me turlupine, mais est-il techniquement possible d'écrire dans le pied de page d'une feuilles ? Plutôt que de passer par la mise en forme classique, l'idée serai d'écrire les informations voulu dans le code VBA ?

Merciiiiiiiiiii

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, 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 tlm,

j'ai un fichier excel de plusieurs pages et je rencontre un probleme :

je voudrais faire de un pied de page qui puisse changer, (reference, nom), mais on ne peut pas effectuer de validation de données pour faire une liste donc je ne sais pas comment faire?

cordialement

Bonjour à tous,

je m'arrache les cheveux car j'aimerais retrouver dans mes en-tête et pied-de-page le contenu de certaines cellule...

Sub UpdateFooter()
ActiveSheet.PageSetup.LeftFooter = Range("A2").Value & vbLf & Range("C4").Value
End Sub 

Mais à l'impression, ça ne donne rien

Une piste pour mon problème ?

Bonjour chers Compagnons du forum

Je voudrais par macro enregistrer une plage de cellules au format PDF et je voudrais mentionner en pied de page sur mon PDF un texte "soldé"

Ci joint un fichier exemple .Merci

Bonjour, je cherche à imprimer un planning pour le lendemain.

J'arrive a mettre la date du jour dans l'entête mais lorsque je tape PLANNING &[Date + 1] cela ne marche pas!!! Ça m'affiche texto "PLANNING &[Date + 1]"

Avez vous une solution?

Cordialement

Bonjour à tous

Je recherche une macro VBA qui permettrait de mettre en pieds de page pour tous les onglets d'un classeur une image prise sur le Web.

J'ai trouvé des macros pour la page active mais déjà celles -ci ne marchent pas ;( : Cf. fichier joint.

Petite précision je n'y connais rien en VBA et suis sur Excel 2016.

Merci de vos réponses

Bonjour à tous,

Que dois-je rajouter à ces lignes pour que la police de mes pieds de page soit en Arial de 6 et en Italique ? Merci de votre aide

Private Sub Workbook_BeforePrint(Cancel As Boolean)

' Inserer pieds de page

ActiveSheet.PageSetup.LeftFooter = Range("AX1000").Value

ActiveSheet.PageSetup.RightFooter = Range("AX1002").Value

End Sub

Bonjour à tous

Voici mon problème :

Dans le ThisWorkbook d'un classeur, je demande la mise en place des pieds de pages de toutes les feuilles du classeur.

Or, sur deux feuilles (Lili et Lulu), je ne voudrais pas le pied de page droit, par contre je conserve l'automatisme du pied de page gauche et milieu !

Pourriez vous me conseiller pour réaliser cette manip

Merci d'avance de votre aide précieuse

Ci-joint la macro concernée (Aide de Joseph)

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Police As String

Dim Taille As String

Dim TexteLeft As String

Dim TexteCenter As String

Dim TexteRight As String

'****VARIABLES À DÉFINIR SELON TES BESOINS****

Police = "Arial"

Taille = 6

TexteLeft = Range("AX1000").Value

TexteCenter = Range("AX1001").Value

TexteRight = Range("AX1002").Value

With ActiveSheet

With .PageSetup

.LeftFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteLeft

.CenterFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteCenter

.RightFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteRight

End With

.PrintPreview

End With

End Sub

Bonjour à tous

J'ai un soucis de type et taille de police sur cette macro

Comment pourrais je modifier en arial de taille 4 ?

Merci beaucoup de votre aide

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.LeftFooter = Range("AX1000").Value

ActiveSheet.PageSetup.CenterFooter = Range("AX1001").Value

ActiveSheet.PageSetup.RightFooter = Range("AX1002").Value

End Sub

Recherches récentes

trie automatiqueformulaire imagecellulleliste deroulanteincrementerpmujason pmujasonauto openimageimpression imageimpression image deformeeimpressionsupprimer doublonsdate inversee vbadate vbarange colonnesrange collonestextboxpowerquery