Ouverture fichier

Je ne te donne qu'une orientation :

Créer un XLA.
Dans le ThisWorkBook, tu crées ceci :

Option Explicit

Public WithEvents APP As Application

Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
'à la création d'un nouveau classeur
Dim Sh As Worksheet
For Each Sh In Wb.Sheets
Sh.PageSetup.LeftHeader = "xxxxx"
Next
End Sub

Private Sub APP_WorkbookNewSheet(ByVal Wb As Workbook,
ByVal Sh As Object)
'à la création d'une nouvelle feuille
Sh.PageSetup.LeftHeader = "xxxxx"
End Sub

Private Sub Workbook_Open()
'lors du chargement de la macro complémentaire
Set APP = Application
End Sub

Ensuite, tu charges la macro complémentaire.
Et le boulot se fait tout seul.

Tu n'auras qu'à remplacer les xxxxx par ce que tu veux
mettre systématiquement.
Le problème, c'est qu'à la création du classeur, tu ne
connais pas le chemin d'accès complet du fichier. Et là...
je te laisse chercher un peu ;)


email : http://cerbermail.com/?3cPMuiUwNO

ou peut-être tout simplement cela

Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.Name
End Sub

jps

Maxence HUBICHE wrote:

Je ne te donne qu'une orientation :

Créer un XLA.
Dans le ThisWorkBook, tu crées ceci :

Option Explicit

Public WithEvents APP As Application

Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
'à la création d'un nouveau classeur
Dim Sh As Worksheet
For Each Sh In Wb.Sheets
Sh.PageSetup.LeftHeader = "xxxxx"
Next
End Sub

Private Sub APP_WorkbookNewSheet(ByVal Wb As Workbook,
ByVal Sh As Object)
'à la création d'une nouvelle feuille
Sh.PageSetup.LeftHeader = "xxxxx"
End Sub

Private Sub Workbook_Open()
'lors du chargement de la macro complémentaire
Set APP = Application
End Sub

Ensuite, tu charges la macro complémentaire.
Et le boulot se fait tout seul.

Tu n'auras qu'à remplacer les xxxxx par ce que tu veux
mettre systématiquement.
Le problème, c'est qu'à la création du classeur, tu ne
connais pas le chemin d'accès complet du fichier. Et là...
je te laisse chercher un peu ;)

email : http://cerbermail.com/?3cPMuiUwNO

oups pardon léo, tu avais demandé le chemin complet...
il faut donc lire :

Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
End Sub

I feel so sorry....
jps


sabatier wrote:

ou peut-être tout simplement cela

Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.Name
End Sub

jps

Maxence HUBICHE wrote:

Je ne te donne qu'une orientation :

Créer un XLA.
Dans le ThisWorkBook, tu crées ceci :

Option Explicit

Public WithEvents APP As Application

Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
'à la création d'un nouveau classeur
Dim Sh As Worksheet
For Each Sh In Wb.Sheets
Sh.PageSetup.LeftHeader = "xxxxx"
Next
End Sub

Private Sub APP_WorkbookNewSheet(ByVal Wb As Workbook,
ByVal Sh As Object)
'à la création d'une nouvelle feuille
Sh.PageSetup.LeftHeader = "xxxxx"
End Sub

Private Sub Workbook_Open()
'lors du chargement de la macro complémentaire
Set APP = Application
End Sub

Ensuite, tu charges la macro complémentaire.
Et le boulot se fait tout seul.

Tu n'auras qu'à remplacer les xxxxx par ce que tu veux
mettre systématiquement.
Le problème, c'est qu'à la création du classeur, tu ne
connais pas le chemin d'accès complet du fichier. Et là...
je te laisse chercher un peu ;)

email : http://cerbermail.com/?3cPMuiUwNO

Vi vi vi ...
mais ça, tu es obligé de l'écrire dans chaque Classeur,
Et cela ne marche que sur la feuille active.

Non ?

Merci pour votre aide,

Je vais essayer de m'en sortir.

--


Amicalement,
Leo
---------------------------------------------
Pour les riders, BMX, VTT. Un seul site :
Little Big Trail : http://perso.wanadoo.fr/lbt/
---------------------------------------------

"Maxence HUBICHE" <mhms@club-internet.fr> a écrit dans le message de
news:A14A0B11-9184-430E-B812-CEFB855DCBEF@microsoft.com...

Vi vi vi ...
mais ça, tu es obligé de l'écrire dans chaque Classeur,
Et cela ne marche que sur la feuille active.

Non ?