OVH Cloud OVH Cloud

Chemin du fichier sous excel ?

4 réponses
Avatar
Iznogoud
Bonjour,

Je souhaiterais savoir comment faire pour ajouter dans un fichier excel (En
tête et pied de page par exemple) le chemin complet du fichier ?

En VBA si possible.

Merci pour votre aide.

Cordialement.

Iznogoud

4 réponses

Avatar
RGI
Bonjour
comme ceci pour le pied de page

Sub chemin()
With ActiveSheet.PageSetup
.LeftFooter = "&08" & ActiveWorkbook.Path
.RightFooter = "&08" & ActiveWorkbook.Name
End With
End Sub

salutations

Gilbert

Bonjour,

Je souhaiterais savoir comment faire pour ajouter dans un fichier excel (En
tête et pied de page par exemple) le chemin complet du fichier ?

En VBA si possible.

Merci pour votre aide.

Cordialement.

Iznogoud



Avatar
argyronet
Bonjour,

Procédez comme suit:
Sub SetPathFilenamePageSetup()

With ActiveSheet.PageSetup
.LeftHeader = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "Argyronet"
.CenterFooter = ""
.RightFooter = Now
End With
End Sub

Bien entendu, il faut que votre classeur soit enregistré...

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment



Bonjour,

Je souhaiterais savoir comment faire pour ajouter dans un fichier excel (En
tête et pied de page par exemple) le chemin complet du fichier ?

En VBA si possible.

Merci pour votre aide.

Cordialement.

Iznogoud



Avatar
Jacques93
Bonjour Iznogoud,

Par exemple :

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ActiveWorkbook.FullName
.CenterFooter = ""
.RightFooter = ""
End With

Bonjour,

Je souhaiterais savoir comment faire pour ajouter dans un fichier excel (En
tête et pied de page par exemple) le chemin complet du fichier ?

En VBA si possible.

Merci pour votre aide.

Cordialement.

Iznogoud




--
Cordialement,

Jacques.

Avatar
Iznogoud
Merci beaucoup pour la réponse rapide.
De plus, ca fonctionne.
Cordialement.

Iznogoud



Bonjour,

Procédez comme suit:
Sub SetPathFilenamePageSetup()

With ActiveSheet.PageSetup
.LeftHeader = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "Argyronet"
.CenterFooter = ""
.RightFooter = Now
End With
End Sub

Bien entendu, il faut que votre classeur soit enregistré...

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment



Bonjour,

Je souhaiterais savoir comment faire pour ajouter dans un fichier excel (En
tête et pied de page par exemple) le chemin complet du fichier ?

En VBA si possible.

Merci pour votre aide.

Cordialement.

Iznogoud