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

Traductions disponibles Traductions disponibles
Numéro d'article: 213615 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F213615
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.
Agrandir tout | Réduire tout

Sommaire

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 :

http://support.microsoft.com/default.aspx?scid=fh;[LN];CNTACTMS

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.

Propriétés

Numéro d'article: 213615 - Dernière mise à jour: vendredi 24 octobre 2003 - Version: 1.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 2000 Standard
Mots-clés : 
kbhowto kbprogramming kbdta kbdtacode kbvba KB213615
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com