Discussion :

[guill36]

Bonjour à tous,

Je suis les discussions du forum developpez depuis peu de temps et décider de créer des macros simple je vous sollicite.

But de ma macro:
J'ai une macro simple pour afficher dans les en-tetes des fichiers Excel lors de l'impression le chemin ou je peux retrouver le fichier que je viens d'imprimer.

J'ai enregistré la macro dans la bibliothèque personal.xls.

La macro fonctionne mais lorsque je regarde l'aperçu pour voir l'en-tete il me marque le chemin vers le dossier où est enregistré ma macro (dossier personal et non celui du fichier).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub mise_en_forme_toutes_feuilles()
Dim x As Byte
 
For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        'en-tête de page
        .LeftHeader = ""
        .CenterHeader = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name '<-- chemin fichier
        .RightHeader = ""
        'pied de page
        .LeftFooter = "&D / &T" '<-- date / heure
        .CenterFooter = "Onglet: &A" & Chr(10) & "Fichier: &F" '<-- nom feuille + saut de ligne + nom fichier
        .RightFooter = "&P/&N" '<-- numéro de page / nombre de pages
    End With
Next x
 
End Sub

Je pense que cela provient de où j'ai enregistré la macro et comment je l'utilise.

Pouvez-vous m'aider à résoudre mon problème.
La finalité est de diffuser à d'autres utilisateurs la macro pour leurs impressions


Merci

[parmi]

Bonjour,

Tu pourrais essayer en changeant ThisWorkbook par ActiveWorkbook

[guill36]

Je suis impressionné par la rapidité de réponse. J'ai fait la modification sur la macro est elle semble bien s'adapter.
Je te remercie pour ton aide je vais pouvoir continuer mes expériences en vba.