Bonjours @ tous
Je recherche le moyen d'inserrer dans le pied de page le chemin
d'acces au fichier pour qu'il s'imprime automatiquement. Je ne touve pas de
fonction toute prete et celle que j'ai créé ne fonctionne pas dans le pied de
page alors qu'elle fonctionne trés bien sur la feuille.
--
MERCI pour votre aide cher Exceliens
@+ PASCALOU
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
Quetzalcoatl
Bonjour,
En VBA : code à rajouter dans ThisWorkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) ' ' Set file name with full path in left footer ' Dim wInfoPath As String wInfoPath = "&""Arial,Normal""&8" & ThisWorkbook.FullName With ActiveSheet.PageSetup .LeftFooter = wInfoPath End With End Sub
"PASCALOU" a écrit dans le message de news:
Bonjours @ tous Je recherche le moyen d'inserrer dans le pied de page le chemin d'acces au fichier pour qu'il s'imprime automatiquement. Je ne touve pas de fonction toute prete et celle que j'ai créé ne fonctionne pas dans le pied de page alors qu'elle fonctionne trés bien sur la feuille.
-- MERCI pour votre aide cher Exceliens @+ PASCALOU
Bonjour,
En VBA :
code à rajouter dans ThisWorkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'
' Set file name with full path in left footer
'
Dim wInfoPath As String
wInfoPath = "&""Arial,Normal""&8" & ThisWorkbook.FullName
With ActiveSheet.PageSetup
.LeftFooter = wInfoPath
End With
End Sub
"PASCALOU" <PASCALOU@discussions.microsoft.com> a écrit dans le message de
news: 01604356-FFD7-4F79-BCD8-9C888EFB2E3C@microsoft.com...
Bonjours @ tous
Je recherche le moyen d'inserrer dans le pied de page le chemin
d'acces au fichier pour qu'il s'imprime automatiquement. Je ne touve pas
de
fonction toute prete et celle que j'ai créé ne fonctionne pas dans le pied
de
page alors qu'elle fonctionne trés bien sur la feuille.
--
MERCI pour votre aide cher Exceliens
@+ PASCALOU
Private Sub Workbook_BeforePrint(Cancel As Boolean) ' ' Set file name with full path in left footer ' Dim wInfoPath As String wInfoPath = "&""Arial,Normal""&8" & ThisWorkbook.FullName With ActiveSheet.PageSetup .LeftFooter = wInfoPath End With End Sub
"PASCALOU" a écrit dans le message de news:
Bonjours @ tous Je recherche le moyen d'inserrer dans le pied de page le chemin d'acces au fichier pour qu'il s'imprime automatiquement. Je ne touve pas de fonction toute prete et celle que j'ai créé ne fonctionne pas dans le pied de page alors qu'elle fonctionne trés bien sur la feuille.
-- MERCI pour votre aide cher Exceliens @+ PASCALOU