Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel nom de fichier dans le pied de page

nom de fichier dans le pied de page

12 réponses
Avatar
HeleneH
Bonjour,
je viens de m'abonner au forum, et d=E9j=E0 une petite question me
tracasse :
j'ai suivi certains posts concernant l'insertion auto du chemin du
fichier dans le pied de page, et =E7a fonctionne tr=E8s bien. Seulement,
la casse est un peu grande, et il faut =E0 chaque impression aller
diminuer la taille des caract=E8res. Est-il possible, tout d'abord de
n'appliquer ce pied de page qu'=E0 certaines feuilles du classeur, mais
aussi de lui appliquer une taille de caract=E8re =E0 d=E9finir une seule
fois ?
Merci d'avance pour les r=E9ponses.
H=E9l=E8ne
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Gros Minet
Bonjour !

Bienvenue sur le forum :-))

Est-il possible, tout d'abord de n'appliquer ce pied de page qu'à
certaines feuilles du classeur ?


A certaines feuilles, oui. La mise en page concerne uniquement la feuille
(ou plusieurs si tu les sélectionnes) sur laquelle tu la fais.
A certaines pages de cette feuille, non. C'est le propre d'un pied de page.

mais aussi de lui appliquer une taille de caractère à définir une seule
fois ?


Si tu veux mettre ce pied de page avec une taille identique sur tous tes
classeurs, il faut créer un modèle puis utiliser à chaque fois ce modèle. Il
suffit de faire une fois ta mise en page (ou autre) sur un classeur vierge
que tu enregistres sous un nom avec un type de fichier "Modèle .xlt" dans la
boîte de dialogue "enregistrer sous".
Ensuite tu reprends ton modèle en faisant Fichier / Nouveau. A droite dans
le volet Office tu choisis "sur mon ordinateur" et tu choisis ton modèle.

C'est assez clair ? Si d'autres questions te "tracassent" n'hésite pas ! :-)

Cordialement.

Gros Minet.

"HeleneH" a écrit dans le message de news:

Bonjour,
je viens de m'abonner au forum, et déjà une petite question me
tracasse :
j'ai suivi certains posts concernant l'insertion auto du chemin du
fichier dans le pied de page, et ça fonctionne très bien. Seulement,
la casse est un peu grande, et il faut à chaque impression aller
diminuer la taille des caractères. Est-il possible, tout d'abord de
n'appliquer ce pied de page qu'à certaines feuilles du classeur, mais
aussi de lui appliquer une taille de caractère à définir une seule
fois ?
Merci d'avance pour les réponses.
Hélène

Avatar
HeleneH
Bonjour et merci pour la réponse rapide !
En fait, je me suis peut-être mal exprimée : voilà le bout de code
en vba que j'ai rajouté dans ThisWorkBook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = [CELL("filename")]
End Sub

Est-il possible en modifiant ce code de ne l'affecter qu'à une feuille
précise, et en plus d'indiquer dans quelle taille de caractère il
apparaîtra ?

Merci,

Hélène
Avatar
Gros Minet
Re,

Pour les macros, je laisse toujours la parole aux experts car je n'y connais
quasi rien. Mais à priori tout est possible. En attendant d'autres réponses,
essaie d'enregistrer ta macro en autoapprentissage avec le changement de
taille des caractères. Ensuite tu arrêtes l'enregistrement et tu vas dans
Outils / Macro / Modifier pour regarder le code. Tu trouveras certainement
la sytaxe pour affecter la taille que tu veux...

Voilà. Sorry de ne pouvoir t'en dire plus :-(

Bon courage.

Gros Minet.

"HeleneH" a écrit dans le message de news:

Bonjour et merci pour la réponse rapide !
En fait, je me suis peut-être mal exprimée : voilà le bout de code
en vba que j'ai rajouté dans ThisWorkBook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = [CELL("filename")]
End Sub

Est-il possible en modifiant ce code de ne l'affecter qu'à une feuille
précise, et en plus d'indiquer dans quelle taille de caractère il
apparaîtra ?

Merci,

Hélène
Avatar
papou
Bonjour
Si pas Excel 2003 :
formulepdp = [CELL("filename")]
With Worksheets("Feuil1").PageSetup
.RightFooter = "&""Times New Roman,Normal""&9" & formulepdp
End With

Avec Excel 2003 par exemple :
With Worksheets("Feuil1").PageSetup
.RightFooter = "&""Times New Roman,Normal""&9&Z&F"
End With

Cordialement
Pascal

"HeleneH" a écrit dans le message de news:

Bonjour et merci pour la réponse rapide !
En fait, je me suis peut-être mal exprimée : voilà le bout de code
en vba que j'ai rajouté dans ThisWorkBook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = [CELL("filename")]
End Sub

Est-il possible en modifiant ce code de ne l'affecter qu'à une feuille
précise, et en plus d'indiquer dans quelle taille de caractère il
apparaîtra ?

Merci,

Hélène
Avatar
Argyronet
Bonjour,

S'agit-il d'une feuille précsie ou d'une page précise ?
Pour la feuille oui, on peut comme l'a souligné Gros Minet.
La valeur du pied de page sera appliquée à toutes les pages imprimées.
Pour la taille aussi, on peut la changer, par exemple:
ici, Nom du fichier en Arial 12 Gras et période en Arial 11 Normal

Sub PiedDePage()
Dim strFileName As String

strFileName = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Gras""&12" & strFileName
.RightFooter = "&""Arial""&11" & "Document créé en " & Format(Now,
"mmmm yyyy")
End With
End Sub

--
Argy { MVP }
http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment



Bonjour et merci pour la réponse rapide !
En fait, je me suis peut-être mal exprimée : voilà le bout de code
en vba que j'ai rajouté dans ThisWorkBook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = [CELL("filename")]
End Sub

Est-il possible en modifiant ce code de ne l'affecter qu'à une feuille
précise, et en plus d'indiquer dans quelle taille de caractère il
apparaîtra ?

Merci,

Hélène




Avatar
HeleneH
Un grand merci pour toutes ces réponses !
Je viens de tester la solution d'Argy, ça ne fonctionne pas !
Je dois dire que mes notions de vba datent d'il y a bien longtemps ! La
version d'Excel utilisée : 2000. J'ai en fait besoin d'ajouter
uniquement sur une feuille le chemin du fichier en tout petit en bas à
droite. Les autres feuilles sont des fax ou courriers reliés à la
première feuille nommée Offre.
Voilà le code que j'ai collé dans vba :

Sub PiedDePage()
Dim strFileName As String
strFileName = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.RightFooter = "&""TimesNewRoman""&6" & strFileName
End With
End Sub
Avatar
HeleneH
Merci pour ta réponse, Gros Minet. J'ai bien essayé un enregistrement
auto de macro, mais ça ne marche pas, ou bien je n'ai pas collé
correctement le code.
Avatar
Gaspareau
Bonjour

Voici le code que j'utilise et qui insère un pied de page
avec la font Stylus 5 pt à adapter pour tes besoins.

Ce code insère le nom du fichier ainsi que le chemin limité aux 150 derniers
caractères si le chemin et le fichier dépassent cette longueur (Ça arrive
ici ...).
Le chemin est inséré sur toutes les pages sauf celle appeleé "Titre"
Finallement le fichier est enregistré

J'ai mis un bouton dans ma barre d'outils et j'y ai associé
la macro.

Voici le code :

Sub Pied_page_sauvegarde1()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

Dim LeNom As String
Application.EnableEvents = False
With sht
LeNom = ActiveWorkbook.FullName
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = ""

End With

If UCase(sht.Name) <> "TITRE" Then sht.PageSetup.RightFooter = "&""Stylus
bt,Normal""&5" & "..." & Right(LeNom, 150)

End With

Application.EnableEvents = True

Next sht

ActiveWorkbook.Save

End Sub


"HeleneH" a écrit dans le message de
news:
Bonjour,
je viens de m'abonner au forum, et déjà une petite question me
tracasse :
j'ai suivi certains posts concernant l'insertion auto du chemin du
fichier dans le pied de page, et ça fonctionne très bien. Seulement,
la casse est un peu grande, et il faut à chaque impression aller
diminuer la taille des caractères. Est-il possible, tout d'abord de
n'appliquer ce pied de page qu'à certaines feuilles du classeur, mais
aussi de lui appliquer une taille de caractère à définir une seule
fois ?
Merci d'avance pour les réponses.
Hélène
Avatar
Argyronet
Hummm...
Où collez-vous et comment appelez-vous ce code ?
Mettez-le dans un module et appuyez sur F5, la mise en page est faîte.
Il ne faut pas le coller dans la page VBA de la feuille en question mais
dans un module à part puis l'appeler sur l'événement BeforePrint() par
exemple...

Sub PiedDePage()
Dim strFileName As String
strFileName = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.RightFooter = "&""Times New Roman,Normal""&6" & strFileName
End With
End Sub

P.S. Times New Roman prend des espaces...
--
Argy { MVP }
http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment



Un grand merci pour toutes ces réponses !
Je viens de tester la solution d'Argy, ça ne fonctionne pas !
Je dois dire que mes notions de vba datent d'il y a bien longtemps ! La
version d'Excel utilisée : 2000. J'ai en fait besoin d'ajouter
uniquement sur une feuille le chemin du fichier en tout petit en bas à
droite. Les autres feuilles sont des fax ou courriers reliés à la
première feuille nommée Offre.
Voilà le code que j'ai collé dans vba :

Sub PiedDePage()
Dim strFileName As String
strFileName = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.RightFooter = "&""TimesNewRoman""&6" & strFileName
End With
End Sub




Avatar
HeleneH
Bonjour Gaspareau,
je viens de tester le code, il me retourne une erreur de syntaxe
1 2