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
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
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 ?
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
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.
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 ?
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.
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
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 ?
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 ?