XL2000 : Macro pour ajouter le chemin du classeur dans le pied de page

Ancien nº de publication de cet article : F213615
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Pour la version adaptée à Microsoft Excel 2002, consultez l'article 287482.
Pour la version adaptée à Microsoft Excel 98, consultez l'article 184507.
Pour la version adaptée à Microsoft Excel 97, consultez l'article 142140.
Résumé
Cet article propose un exemple de macro Microsoft Visual Basic pour Applications (procédure Sub) qui ajoute le chemin du classeur et le nom du fichier au pied de page de la feuille de calcul.
Plus d'informations
Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie, expresse ou implicite, y compris les garanties implicites de qualité marchande et d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation en question, ainsi que les outils utilisés lors de la création et le débogage des procédures. Les techniciens du support technique de Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière ; cependant, ils ne peuvent en aucun cas modifier lesdits exemples afin de vous fournir des fonctionnalités supplémentaires ou des procédures de construction adaptées à vos besoins.
Pour plus d'informations sur les options de support technique proposées par Microsoft, veuillez consulter la page suivante sur le Web :


La macro suivante ajoute le chemin et le nom du fichier à gauche du pied de page de la feuille de calcul active. Le classeur doit être enregistré avant d'ajouter des renseignements de chemin au pied de page.
   Sub UpdateFooter()      ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName   End Sub

Pour installer un module Visual Basic dans un classeur Microsoft Excel, appuyez simultanément sur ALT+F11 pour démarrer Visual Basic Editor, puis cliquez sur Module dans le menu Insertion.

Avant d'exécuter la macro, ouvrez le classeur et la feuille de calcul sur lesquels vous souhaitez afficher le chemin dans le pied de page. Après avoir exécuté la macro, le pied de page devrait contenir le chemin complet et le nom de fichier du classeur.

Autre méthode


Vous pouvez également utiliser l'événement BeforePrint du classeur pour exécuter une procédure Sub qui ajoute le chemin en cours et le nom du fichier à gauche du pied de page de la feuille de calcul active avant l'impression du classeur. Vous devez aussi sauvegarder le classeur avant d'ajouter d'autres informations sur le chemin dans le pied de page. Pour créer la procédure Sub dans le classeur actif, procédez comme suit :

  1. Dans l'Explorateur de projet de Visual Basic Editor, double-cliquez sur ThisWorkbook du projet en cours.

    Cette manipulation ouvre un module pour le code qui est associé au classeur.
  2. Dans la liste d'objets de ce module, cliquez sur Workbook.
  3. Dans la liste des procédures de ce module, cliquez sur BeforePrint.
  4. Entrez le code de sorte que la procédure Workbook_BeforePrint soit identique à la suivante :
       Private Sub Workbook_BeforePrint(Cancel As Boolean)      ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName   End Sub

  5. Dans le menu Fichier, cliquez sur Fermer et retourner à Microsoft Excel.
Lorsque vous imprimez le classeur, le pied de page est automatiquement mis à jour avant l'impression du classeur.

Utilisation d'un "et commercial" ("&", esperluette en français) dans le nom du fichier


Si un nom de fichier contient un "et commercial" ("&", esperluette en français), il ne s'affichera peut-être pas correctement, du fait que Microsoft Excel interprète le "et commercial" comme un caractère spécial dans l'en-tête et le pied de page. Pour afficher un "et commercial" dans un en-tête ou un pied de page, utilisez deux "et commerciaux" à la suite (&&). Pour effectuer cette manipulation dans la macro, utilisez la fonction Replace dans Visual Basic pour Applications :
Sub UpdateFooter()    ActiveSheet.PageSetup.LeftFooter = Replace(ActiveWorkbook.FullName, "&", "&&")End Sub
Références
Pour plus d'informations sur la propriété LeftFooter, dans Visual Basic Editor, cliquez sur Aide sur Microsoft Visual Basic dans le menu ? Aide, tapez Propriété LeftFooter dans le Compagnon Office ou l'Aide intuitive, puis cliquez sur Rechercher pour afficher la rubrique.
xl2000 custom header header/footer
Propriétés

ID d'article : 213615 - Dernière mise à jour : 01/12/2015 16:16:32 - Révision : 1.0

  • Microsoft Excel 2000 Standard
  • kbnosurvey kbarchive kbhowto kbprogramming kbdta kbdtacode kbvba KB213615
Commentaires