Pied de page+chemin

[Gadget]

Bonjour !
Il existe une fonction "chemin" sous word (insertion/insertion automatique/en tête et pied de page/Nom de fichier et emplacement) qui permet d'aller chercher un en-tête ou un pied de page prédéfini (un fichier déjà créé).
J'aurais aimé savoir si on avait accès à cette fonction sous excel 2000 ou s'il existait un patch qui permettrait de l'installer.

Merci d'avance à ceux qui pourront m'aider !

 

[michel]

Bonjour gadget

la procedure ci joint , à inserer au niveau du classeur , permet d'afficher en pied de page le chemin d'acces complet d'un fichier

Private Sub Workbook_Open()
Dim val
val = ActiveWorkbook.FullName
With ActiveSheet.PageSetup
.LeftFooter = val
End With
End Sub

cela fonctionne sous excel97
Dans cet exemple de macro , l’adresse exacte du fichier s'affiche dans la section de gauche du pied de page ( LeftFooter )
Pour la section centrale , utilise : CenterFooter
Pour la section de droite , utilise : RightFooter



bonne journée
Michel

 

[michel]

rebonsoir gadget
après reflexion …
l'exemple que je t'ai donné précedemment renvoyait uniquement l'adresse du fichier
dans la feuille active

l'exemple ci dessous doit renvoyer l'adresse complete dans tous les onglets du classeur

Private Sub Workbook_Open()
Dim val
Dim nom As Byte
val = ActiveWorkbook.FullName

For nom = 1 To Sheets.Count
ActiveWorkbook.Sheets(nom).PageSetup.LeftFooter = val
Next
End Sub


bonne soirée
Michel