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 Imprimer le nom du dossier en pied de page

Imprimer le nom du dossier en pied de page

14 réponses
Avatar
Jean-Jacques [JJP]
Bonjour,

Je sais via "mise en page" imprimer le nom du fichier et l'onglet, est
il possible d'avoir aussi le nom du dossier.
[Excel 2000]

Amicalement,

JJP



--
Amicalement JJP :-)

Adresse anti-spam.
Pour répondre ou m'écrire personnellement, cliquez sur le lien :
http://cerber mail.com/?ShN9MCtgj7 (enlever l'espace)
ou
http://mailfusible.com/?ShN9MCtgj7
Signaler un problème avec ce contenu

4 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
michdenis
Bonjour Jean-Jacques,

Dans la version Excel 2003, tu as 3 icônes dans la fenêtre
en-tête ou pied de page de mise en page dans Excel.
Il y a un icône qui insère le chemin et le fichier
&[Chemin d'accès]&[Fichier]
Un autre icône insère seulement le fichier
&[Fichier]
et un dernier où on peut ajouter le nom de la feuille
&[Onglet]

Dans le cas où ta version omet un de ces icônes, tu peux utiliser :

Dans le ThisWorkbook de ton projet, tu peux ajouter ceci pour
obtenir pour chaque feuille que tu imprimes du classeur les
mêmes info. que permettent les icônes.

'---------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader = ThisWorkbook.FullName
.CenterHeader = ThisWorkbook.Name
.RightHeader = Sh.Name
End With
Application.EnableEvents = False
.PrintOut ' paramètres à définir si nécessaire
Application.EnableEvents = True
End With
Next
Cancel = True

End Sub
'---------------------------------------------



"Jean-Jacques [JJP]" a écrit dans le message de groupe de discussion :

bonjour jean jacques
si tu vois "fichier", en l'installant dans ton pied de page, tu auras
aussi le chemin dudit fichier, donc le dossier, non?
Mgr T.B.

"Jean-Jacques [JJP]" a écrit dans le message de news:

Jean-Jacques [JJP] a écrit :

Bonjour,

Je sais via "mise en page" imprimer le nom du fichier et l'onglet,
est il possible d'avoir aussi le nom du dossier.
[Excel 2000]

Amicalement,

JJP





Dans le pied de page personnalisé, il y a dossier, fichier, onglet,
etc. Non ?



Pas vu 'dossier' ....





Bonjour,

Hé bien non, fichier donne le nom du fichier dans un dossier mais pas le
chemin du dossier.
J'ai Excel 2000.

@+
JJP
Avatar
Jean-Jacques [JJP]
> Bonjour Jean-Jacques,

Dans la version Excel 2003, tu as 3 icônes dans la fenêtre
en-tête ou pied de page de mise en page dans Excel.
Il y a un icône qui insère le chemin et le fichier
&[Chemin d'accès]&[Fichier]
Un autre icône insère seulement le fichier
&[Fichier]
et un dernier où on peut ajouter le nom de la feuille
&[Onglet]

Dans le cas où ta version omet un de ces icônes, tu peux utiliser :

Dans le ThisWorkbook de ton projet, tu peux ajouter ceci pour
obtenir pour chaque feuille que tu imprimes du classeur les
mêmes info. que permettent les icônes.

'---------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader = ThisWorkbook.FullName
.CenterHeader = ThisWorkbook.Name
.RightHeader = Sh.Name
End With
Application.EnableEvents = False
.PrintOut ' paramètres à définir si nécessaire
Application.EnableEvents = True
End With
Next
Cancel = True

End Sub
'---------------------------------------------



"Jean-Jacques [JJP]" a écrit dans le message de groupe
de discussion :
bonjour jean jacques
si tu vois "fichier", en l'installant dans ton pied de page, tu auras
aussi le chemin dudit fichier, donc le dossier, non?
Mgr T.B.

"Jean-Jacques [JJP]" a écrit dans le message de news:

Jean-Jacques [JJP] a écrit :

Bonjour,

Je sais via "mise en page" imprimer le nom du fichier et l'onglet,
est il possible d'avoir aussi le nom du dossier.
[Excel 2000]

Amicalement,

JJP





Dans le pied de page personnalisé, il y a dossier, fichier, onglet,
etc. Non ?



Pas vu 'dossier' ....





Bonjour,

Hé bien non, fichier donne le nom du fichier dans un dossier mais pas
le
chemin du dossier.
J'ai Excel 2000.

@+
JJP



Bonjour ,


Isabelle a écrit ceci :


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "[" &
ActiveSheet.Name & "]"
ThisWorkbook.PrintPreview ' cette ligne demande un Aperçue avant
impression
End Sub


Merci à toi,


@+
JJP
Avatar
Mgr T. Banni
ou plus simplement :

ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName

mais il est étrange que XL 2000 n'ait pas la fonctionnalité dont
parle...michel
Mgr T.B. (qui en profite pour préciser à JJP que sur ce forum, il est
demandé à ce que les réponses se fassent au-dessus des questions ou
commentaires et non en-dessous)

"Jean-Jacques [JJP]" a écrit dans le message de news:
uAvI$$
Bonjour Jean-Jacques,

Dans la version Excel 2003, tu as 3 icônes dans la fenêtre
en-tête ou pied de page de mise en page dans Excel.
Il y a un icône qui insère le chemin et le fichier
&[Chemin d'accès]&[Fichier]
Un autre icône insère seulement le fichier
&[Fichier]
et un dernier où on peut ajouter le nom de la feuille
&[Onglet]

Dans le cas où ta version omet un de ces icônes, tu peux utiliser :

Dans le ThisWorkbook de ton projet, tu peux ajouter ceci pour
obtenir pour chaque feuille que tu imprimes du classeur les
mêmes info. que permettent les icônes.

'---------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader = ThisWorkbook.FullName
.CenterHeader = ThisWorkbook.Name
.RightHeader = Sh.Name
End With
Application.EnableEvents = False
.PrintOut ' paramètres à définir si nécessaire
Application.EnableEvents = True
End With
Next
Cancel = True

End Sub
'---------------------------------------------



"Jean-Jacques [JJP]" a écrit dans le message de groupe
de discussion :
bonjour jean jacques
si tu vois "fichier", en l'installant dans ton pied de page, tu auras
aussi le chemin dudit fichier, donc le dossier, non?
Mgr T.B.

"Jean-Jacques [JJP]" a écrit dans le message de news:

Jean-Jacques [JJP] a écrit :

Bonjour,

Je sais via "mise en page" imprimer le nom du fichier et l'onglet,
est il possible d'avoir aussi le nom du dossier.
[Excel 2000]

Amicalement,

JJP





Dans le pied de page personnalisé, il y a dossier, fichier, onglet,
etc. Non ?



Pas vu 'dossier' ....





Bonjour,

Hé bien non, fichier donne le nom du fichier dans un dossier mais pas
le
chemin du dossier.
J'ai Excel 2000.

@+
JJP



Bonjour ,


Isabelle a écrit ceci :


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "[" &
ActiveSheet.Name & "]"
ThisWorkbook.PrintPreview ' cette ligne demande un Aperçue avant
impression
End Sub


Merci à toi,


@+
JJP



Avatar
Modeste
Bonsour® Mgr T. Banni avec ferveur ;o))) vous nous disiez :

ActiveWorkbook.FullName
mais il est étrange que XL 2000 n'ait pas la fonctionnalité dont
parle...michel



Chemin d'accès complet :
dans la feuille active en A1
ÎLLULE("filename";A1)
ActiveSheet.PageSetup.RightFooter= [A1]

Chemin Répertoire seul
dans la feuille active en A2
=GAUCHE(CELLULE("filename";A2);TROUVE("[";CELLULE("filename";A2))-2)
ActiveSheet.PageSetup.RightFooter= [A2]

compatibilité formule de feuille de calcul assurée de XL95 jusque XL2007
il suffit d'utiliser le résultat d'une cellule contenant le libellé souhaité parmi :
http://xcell05.free.fr/pages/form/nomfeuille.htm

;o)))
avant de chercher la complication et les macros, d'abord maitriser les bases !!!!
1 2