Nous examinerons un programme dans Excel VBA qui crée un pied de page avant d’imprimer un classeur. Créez un événement de classeur BeforePrint. Le code ajouté à l’événement Workbook BeforePrint sera exécuté par Excel VBA avant d’imprimer un classeur.

1. Ouvrez l’éditeur Visual Basic.

2. Double-cliquez sur Ce classeur dans l’Explorateur de projets.

3. Choisissez Classeur dans la liste déroulante de gauche. Choisissez BeforePrint dans la liste déroulante de droite.

4. Pour créer un pied de page, ajoutez la ligne de code suivante à l’événement Workbook BeforePrint:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

Remarque: L’objet PageSetup contient tous les attributs de mise en page (pied de page gauche, marge inférieure, format de papier, marge gauche, etc.) en tant que propriétés.

5. Testez le programme en imprimant votre classeur.

 Résultat: