ajouter le chemin en pied de page

Bonjour,

est-il possible d'insérer, sur tous les fichiers excel un pied de page indiquant automatiquement le chemin d'accès, où plutôt la localisation de ce fichier sur le disque ?

Merci

[globinours]

Salut,
Avec cette macro, tu auras le chemin d'acces en bas à gauche du classeur actif:

Sub chemin_acces()
Dim truc As String
truc = ThisWorkbook.Path
With ActiveSheet.PageSetup
.LeftFooter = truc
End With
End Sub

Dis moi si ça te va.

Merci ça fonctionne bien. Est-il possible d'ajouter le nom du fichier ?
Là j'ai le chemin du dossier mais pas le fichier proprement dit.


Merci

Il y a un problème,

si je crée cette macro sur un fichier 1, et qu'après j'utilise un fichier 2 :
déjà la macro n'est utilisable que si 1 est ouvert et elle m'indique, en l'utilisant sur 2, le chemin d'accès de 1 !!

C'est peut-être pas clair En fait, quelque soit le fichier excel, la macro m'inscrit le chemin de 1

J'aimerais aussi avoir la solution

Si quelqu'un a une idée, elle serait la bien venue :silly:

merci

[Dan]

Message édité par: Dan, à: 02/10/2005 21:42

[Dan]

Bonsoir,

essaie ceci :

Sub chemin_acces()
Dim truc As String
truc = ActiveWorkbook.Path
fichier = ActiveWorkbook.Name
 With ActiveSheet.PageSetup
 .LeftFooter = truc & fichier
 End With
End Sub

Sinon saches aussi que le nom du fichier peut être inséré dans une feuille en cliquant sur l'icone se trouvant dans la barre d'icones du pied de page.

ok, j'essaie ça !

je sais pour le nom mais il n'y a pas le chemin total. c'est juste le nom du fichier !

Oui, ça fonctionne parfaitement !
le seul inconvénient, mais je crois qu'on ne peut rien y faire, c'est que le fichier dans lequel on enregistre cette macro doit être ouvert ! Sinon, la macro n'apparaît pas !


Merci beaucoup !

[michel_m]

Bonjour lymatly, Dan, Eymeric,

Je ne crois pas que ce que tu demandes soit réalisable par une fonction par défaut d'excel

Suggestion:
créer un classeur 'maison' en format modèle (.xlt) et mettre la macro de Dan en workbook_open dans le module 'workbook' editeur de visual basic
On retrouve les .xlt par fichier | nouveau (ne fonctionne pas avec clic direct sur l'icone nouveau)

petite amélioration (?) sur la macro de Dan

.LeftFooter = ActiveWorkbook.FullName

évite les deux variables truc et fichier

Bon appétit

Michel_M

Merci,
c'est très bien comme ça
@+