Comment faire pour que le nom du fichier et son emplacement s'affiche au
fond d'une feuille excel.
Dans Word l'option existe mais dans excel, dans le pied de page, seul
l'option pour inserer le nom du fichier existe. Comment donc afficher le
tout et qu'il s'adapte en cas de changement d'emplacement ?
ex. D:\amis\vacances\decpte.xls
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
michdenis
Bonsoir Thierry,
Si tu as la version excel 2002 ou plus récent, tu peux directement à partir de l'aperçu / onglets Page / Pied de page / sélectionner l'endroit et tu cliques sur l'icône "Dossier".
Pour les version antérieures,
copie ce qui suit dans le ThisWorkbook de ton classeur :
Évidemment tu peux modifier dans mon exemple le Nom de la police, la grosseur des caractères ... mais tu dois respecter la syntaxe.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim FullPath As String FullPath = ThisWorkbook.FullName
With ActiveSheet.PageSetup .LeftFooter = "&""Tahoma,Gras""&12" & FullPath End With
End Sub '----------------------------
Salutations!
"Thierry Fracheboud" a écrit dans le message de news:41268163$ Comment faire pour que le nom du fichier et son emplacement s'affiche au fond d'une feuille excel. Dans Word l'option existe mais dans excel, dans le pied de page, seul l'option pour inserer le nom du fichier existe. Comment donc afficher le tout et qu'il s'adapte en cas de changement d'emplacement ? ex. D:amisvacancesdecpte.xls
Bonsoir Thierry,
Si tu as la version excel 2002 ou plus récent, tu peux directement à partir de l'aperçu / onglets Page / Pied de page /
sélectionner l'endroit et tu cliques sur l'icône "Dossier".
Pour les version antérieures,
copie ce qui suit dans le ThisWorkbook de ton classeur :
Évidemment tu peux modifier dans mon exemple le Nom de la police, la grosseur des caractères ... mais tu dois respecter la
syntaxe.
'----------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim FullPath As String
FullPath = ThisWorkbook.FullName
With ActiveSheet.PageSetup
.LeftFooter = "&""Tahoma,Gras""&12" & FullPath
End With
End Sub
'----------------------------
Salutations!
"Thierry Fracheboud" <thierryfracheboud@hotmail.com> a écrit dans le message de news:41268163$1_1@news.bluewin.ch...
Comment faire pour que le nom du fichier et son emplacement s'affiche au
fond d'une feuille excel.
Dans Word l'option existe mais dans excel, dans le pied de page, seul
l'option pour inserer le nom du fichier existe. Comment donc afficher le
tout et qu'il s'adapte en cas de changement d'emplacement ?
ex. D:amisvacancesdecpte.xls
Si tu as la version excel 2002 ou plus récent, tu peux directement à partir de l'aperçu / onglets Page / Pied de page / sélectionner l'endroit et tu cliques sur l'icône "Dossier".
Pour les version antérieures,
copie ce qui suit dans le ThisWorkbook de ton classeur :
Évidemment tu peux modifier dans mon exemple le Nom de la police, la grosseur des caractères ... mais tu dois respecter la syntaxe.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim FullPath As String FullPath = ThisWorkbook.FullName
With ActiveSheet.PageSetup .LeftFooter = "&""Tahoma,Gras""&12" & FullPath End With
End Sub '----------------------------
Salutations!
"Thierry Fracheboud" a écrit dans le message de news:41268163$ Comment faire pour que le nom du fichier et son emplacement s'affiche au fond d'une feuille excel. Dans Word l'option existe mais dans excel, dans le pied de page, seul l'option pour inserer le nom du fichier existe. Comment donc afficher le tout et qu'il s'adapte en cas de changement d'emplacement ? ex. D:amisvacancesdecpte.xls
sty
"michdenis" a écrit dans le message de news:
Bonsoir Thierry,
Si tu as la version excel 2002 ou plus récent, tu peux directement à partir de l'aperçu / onglets Page / Pied de page /
sélectionner l'endroit et tu cliques sur l'icône "Dossier".
Pour les version antérieures,
copie ce qui suit dans le ThisWorkbook de ton classeur :
Évidemment tu peux modifier dans mon exemple le Nom de la police, la grosseur des caractères ... mais tu dois respecter la
syntaxe.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim FullPath As String FullPath = ThisWorkbook.FullName
With ActiveSheet.PageSetup .LeftFooter = "&""Tahoma,Gras""&12" & FullPath End With
End Sub '---------------------------- Bonsoir,
Je suis aussi intéressé mais je ne sais pas ce qu'est le "ThisWorkbook de mon classeur" et comment procéder. Merci
-- sty
"michdenis" a écrit dans le message de news:
Bonsoir Thierry,
Si tu as la version excel 2002 ou plus récent, tu peux directement à
partir de l'aperçu / onglets Page / Pied de page /
sélectionner l'endroit et tu cliques sur l'icône "Dossier".
Pour les version antérieures,
copie ce qui suit dans le ThisWorkbook de ton classeur :
Évidemment tu peux modifier dans mon exemple le Nom de la police, la
grosseur des caractères ... mais tu dois respecter la
syntaxe.
'----------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim FullPath As String
FullPath = ThisWorkbook.FullName
With ActiveSheet.PageSetup
.LeftFooter = "&""Tahoma,Gras""&12" & FullPath
End With
End Sub
'----------------------------
Bonsoir,
Je suis aussi intéressé mais je ne sais pas ce qu'est le "ThisWorkbook de
mon classeur" et comment procéder.
Merci
Bonsoir, Je suis aussi intéressé mais je ne sais pas ce qu'est le "ThisWorkbook de mon classeur" et comment procéder. Merci
excel 2000, oublier
michdenis
Bonsoir Sty,
Tu ouvres ton classeur, tu utilises le raccourci-clavier Alt + F11 et dans la fenêtre VBE(visual basic editor) tu sélectionne par un double-clique dans la fenêtre de gauche Projet-ProjetVBA, le nom de ton classeur, l'arborescence va s'ouvrir et tu double-clique sur l'item "Thisworkbook" et tu colles la macro dans la page blanche qui s'ouvre.
Salutations!
"sty" a écrit dans le message de news:cg622v$tdh$
Bonsoir, Je suis aussi intéressé mais je ne sais pas ce qu'est le "ThisWorkbook de mon classeur" et comment procéder. Merci
excel 2000, oublier
Bonsoir Sty,
Tu ouvres ton classeur, tu utilises le raccourci-clavier Alt + F11 et dans la fenêtre VBE(visual basic editor) tu sélectionne
par un double-clique dans la fenêtre de gauche Projet-ProjetVBA, le nom de ton classeur, l'arborescence va s'ouvrir et tu
double-clique sur l'item "Thisworkbook" et tu colles la macro dans la page blanche qui s'ouvre.
Salutations!
"sty" <sty.invalid@wanadoo.fr> a écrit dans le message de news:cg622v$tdh$1@news-reader4.wanadoo.fr...
Bonsoir,
Je suis aussi intéressé mais je ne sais pas ce qu'est le "ThisWorkbook de
mon classeur" et comment procéder.
Merci
Tu ouvres ton classeur, tu utilises le raccourci-clavier Alt + F11 et dans la fenêtre VBE(visual basic editor) tu sélectionne par un double-clique dans la fenêtre de gauche Projet-ProjetVBA, le nom de ton classeur, l'arborescence va s'ouvrir et tu double-clique sur l'item "Thisworkbook" et tu colles la macro dans la page blanche qui s'ouvre.
Salutations!
"sty" a écrit dans le message de news:cg622v$tdh$
Bonsoir, Je suis aussi intéressé mais je ne sais pas ce qu'est le "ThisWorkbook de mon classeur" et comment procéder. Merci
