Afficher la version d’un classeur en bas de page - Excel 2000/XP/2003
Publié par Nendo le 05/10/2009 (4101 lus)
Affecter un numéro de version à un classeur évite de nombreuses erreurs de mise à jour. Pour plus de facilité, cette information sera enregistrée dans une propriété personnalisée. Mais encore faut-il ensuite que ce numéro de version soit bien visible, en particulier dans les impressions – par exemple, en bas de page.
Pour affecter (ou mettre à jour) la propriété Version, ouvrez le classeur, puis déroulez le menu Fichier, Propriétés. Dans l’onglet Personnalisation, saisissez Version dans le champ Nom. Choisissez Date dans la liste Type, et, dans le champ Valeur, indiquez la date de version du classeur – par exemple, 25/07/2009. Validez en cliquant sur Ajouter, puis sur OK.
A l’aide du menu Outils, Macros, ouvrez l’Editeur Visual Basic Editor. Dans l’arborescence ProjetVBAProject, située en haut à gauche, déroulez le VBAProject correspondant au classeur ouvert, puis double-cliquez sur ThisWorkbook. Dans la fenêtre d’édition qui s’ouvre, saisissez le listing ci-dessous.
Le numéro de version sera inséré à gauche du bas de page (LeftFooter). Si vous préférez un autre emplacement, remplacez ce code par Righfooter pour un alignement en bas à droite ou par Center-Footer pour centrer cette donnée.
Vous pouvez vérifier le bon fonctionnement en affichant l’aperçu avant impression. Inutile de lancer la macro au préalable : portant le nom réservé BeforePrint, elle est automatiquement exécutée avant chaque commande d’impression.
Pour affecter (ou mettre à jour) la propriété Version, ouvrez le classeur, puis déroulez le menu Fichier, Propriétés. Dans l’onglet Personnalisation, saisissez Version dans le champ Nom. Choisissez Date dans la liste Type, et, dans le champ Valeur, indiquez la date de version du classeur – par exemple, 25/07/2009. Validez en cliquant sur Ajouter, puis sur OK.
A l’aide du menu Outils, Macros, ouvrez l’Editeur Visual Basic Editor. Dans l’arborescence ProjetVBAProject, située en haut à gauche, déroulez le VBAProject correspondant au classeur ouvert, puis double-cliquez sur ThisWorkbook. Dans la fenêtre d’édition qui s’ouvre, saisissez le listing ci-dessous.
Private Sub Workbook_
BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter=_
ActiveWorkbook.CustomDocumentProperties ("Version")
End Sub
Le numéro de version sera inséré à gauche du bas de page (LeftFooter). Si vous préférez un autre emplacement, remplacez ce code par Righfooter pour un alignement en bas à droite ou par Center-Footer pour centrer cette donnée.
Vous pouvez vérifier le bon fonctionnement en affichant l’aperçu avant impression. Inutile de lancer la macro au préalable : portant le nom réservé BeforePrint, elle est automatiquement exécutée avant chaque commande d’impression.
A découvrir également
| Naviguer à travers les articles | |
Afficher en rouge les dates passées - Excel 95 et plus récent
|
Afficher le numéro de révision d'un document - Word 2000, XP et 2003
|