ajouter le chemin en pied de page

G

globinours

XLDnaute Junior

• 28 Septembre 2005

• #2

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.

 

Vote positif 0 Vote négatif

L

lymatly

Guest

• 29 Septembre 2005

• #3

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

 

Vote positif 0 Vote négatif

L

lymatly

Guest

• 29 Septembre 2005

• #4

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

 

Vote positif 0 Vote négatif

E

eymeric

Guest

• 2 Octobre 2005

• #5

J'aimerais aussi avoir la solution

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

merci

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 2 Octobre 2005

• #6

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 2 Octobre 2005

• #7

Bonsoir,

essaie ceci :

Code:

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.

 

Vote positif 0 Vote négatif

L

lymatly

Guest

• 4 Octobre 2005

• #8

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 !

 

Vote positif 0 Vote négatif

L

lymatly

Guest

• 4 Octobre 2005

• #9

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 !

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 4 Octobre 2005

• #10

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

 

Vote positif 0 Vote négatif

L

lymatly

Guest

• 5 Octobre 2005

• #11

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

 

Vote positif 0 Vote négatif