chemin apparent d'un fichier enen-tête Excel

[korean]

Bonjour,

J'ai Excel 97

J'arrive à mettre en en-tête ou pied de page Word le chemin de mes fichiers par le bied de "la formule automatique Nom de fichier et emplacement" mais cela me reste impossible à faire avec Excel. Ceci est tjrs intérressant de le voir sur un document imprimé si oubli du lieu où on a enregistré son document.
J'arrive bien à définir ce chemin du fichier mais à l'intérieur d'une cellule du tableau excel ce qui n'est pas tout à fait la m^me chose et qui est plutôt gênant. J'ai même essayé de faire un copier coller vers l'en-tête d'excel mai impossible.
Y-a-t-il vraiment une solution à mon problème, si oui pouvez-vous me la faire parvenir
Merci

 

[F.launay]

ci joint le code de la macro à inserer dans la fichier excel, on recupere le nom du document, mais pas le chemin

Sub Mise_en_page() 'Mise en page des feuilles d'un classeur '
Application.ScreenUpdating = False
Dim Vfeuille As Worksheet, depart As String
depart = ActiveSheet.Name
For Each Vfeuille In ActiveWorkbook.Sheets
Vfeuille.Select
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesTall = 1 ' ajustement en longueur / 1 page '
.FitToPagesWide = 1 'ajustement en largeur / 1 page '
.BlackAndWhite = True 'impression en noir et blanc '
.CenterHorizontally = True
.CenterVertically = True
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(1)
.HeaderMargin = Application.CentimetersToPoints(1.3)
.FooterMargin = Application.CentimetersToPoints(1.3)
.LeftFooter = "&F&08" 'Nom classeur'
.CenterFooter = "&A&08" 'nom feuille'
.RightFooter = "&J&08" 'date système '
End With
On Error Resume Next
Next
Sheets(depart).Select 'retour à la feuille de départ '
End Sub

 

[Michel_M]

Bonjour Koréan et F.



Option Explicit

Sub cheminer()

Dim chemin As String

chemin = ThisWorkbook.Path

With ActiveSheet.PageSetup
' bas de page gauche
.LeftFooter = chemin
'centerfooter=centre 'rigth footer= droite
'haut de page header au lieu de footer
End With

End Sub


Michel