Automatiser l’insertion d’un pied de page avant l’impression d’une feuille

Pour imprimer le nom d’un classeur sur les pages des documents qu’il contient , vous effectuez habituellement une manipulation rébarbative. Après avoir choisi la commande Mise en page du menu Fichier, vous cliquez sur l’onglet En-tête/Pied de page et saisissez les champs correspondants. Pour vous éviter cette succession d’opérations, écrivez une macro qui insère automatiquement un pied de page, le nom du classeur lorsque vous prévisualisez ou imprimez une feuille du classeur. Avec Excel 2000, appuyez sur les touches +. Sélectionnez ThisWorkbook dans la liste Projet-VBAProject. Faites un clic droit et optez pour Code. Recopiez le listing ci-dessous dans la fenêtre d’édition. Sélectionnez ensuite Fichier/Fermer et revenez dans Excel. Cliquez sur l’icône Aperçu avant impression de la barre d’outils Standard et vérifiez que le nom du classeur ainsi que l’arborescence associée s’affiche bien dans le pied de page de la feuille. Notez que cette macro ne fonctionne que si vous avez enregistré préalablement le classeur.Listing :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.