Macro Excel BeforePrint

Fermé

Twidow Messages postés 4 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 16 mars 2010 - 2 mars 2010 à 04:46
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 - 16 mars 2010 à 22:23

Bonjour,

J’ai un petit problème de macro qui me prend bien la tête.
Je souhaite écrire automatiquement à l’impression dans le pied de page (à droite) le chemin du fichier.
J’utilise donc la macro BeforePrint comme ceci:

“
Private Sub Workbook_BeforePrint(Cancel As Boolean)

For Each Sh In ActiveWorkbook.Worksheets
Sh.PageSetup.RightFooter = ActiveWorkbook.FullName
Next Sh

End Sub
“

Et cela fonctionne bien. Le truc c’est que je souhaiterais que cette macro soit activable de n'importe quel fichier excel sur mon pc (voir même d’autres en reseau) et pas seulement dans ce fichier où j’ai écrit cette macro.

Je suis convaincu que ce n’est pas compliqué, probablement faut-il juste enregistrer la macro dans “All open workbooks” mais voilà je bloque =(

Merci d’avance !!

G.

ps: Excel 2000

A voir également:

Macro Excel BeforePrint
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

6 réponses

Réponse 1 / 6

Twidow Messages postés 4 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 16 mars 2010
4 mars 2010 à 00:40

Petit up =/

Réponse 2 / 6

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
4 mars 2010 à 07:26

Bonjour,

Pour la boucle sur les classeurs ouverts tu pourrais faire ainsi :

Sub piedpage()
    Dim wb As Workbook, sh As Worksheet
    For Each wb In Workbooks
        With wb
            For Each sh In .Worksheets
                sh.PageSetup.RightFooter = ActiveWorkbook.FullName
            Next sh
        End With
    Next wb
End Sub

Workbook_BeforePrint est un évènement du classeur et n'agira que sur celui-ci.
eric

Réponse 3 / 6

Twidow Messages postés 4 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 16 mars 2010
4 mars 2010 à 23:29

Hum okay merci pour la boucle, eric =)

Donc pas moyen d'avoir la macro activée automatiquement pour avoir le chemin du fichier à l'impression =/

Réponse 4 / 6

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
4 mars 2010 à 23:34

Ben tu peux ouvrir tous tes fichiers et lancer la macro, ensuite le classeur garde le pied de page.
Il ne faudra le refaire que sur les nouveaux (enfin tant qu'ils ne sont pas déplacés...)
Si je trouve une autre idée je reposterai ici
eric

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

Twidow Messages postés 4 Date d'inscription mardi 2 mars 2010 Statut Membre Dernière intervention 16 mars 2010
16 mars 2010 à 01:14

je vais encore embeter un peu, j'aimerais mettre le chemin du fichier, en pied de page, en couleur grise, pour que ce soit plus discret a l'impression.

je suppose qu'il y a juste une ligne a rajouter dans la boucle, donc s'il vous plait ... ^__^

merci

Réponse 6 / 6

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
16 mars 2010 à 22:23

Bonsoir,

Sur excel 2003 je ne pense pas que ce soit possible.
Sur 2007 je l'ignore...
eric

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters