Numéroter les versions d'un classeur

J'aimerais pouvoir numéroter les différentes versions de mes macros complémentaires.

Chaque document a 30 propriétés, définies ou non. Tous ces propriétés sont accessibles à partir de l'explorateur : un clic droit sur le fichier et item du menu "propriété". Voici Une procédure pour faire une liste de ces procédures dans ton classeur:

sub ListeProprieteDuClasseur()
 rw = 1
 IndexPropriété = 1
 Worksheets(1).Activate
 For Each p In ActiveWorkbook.BuiltinDocumentProperties
 Cells(rw, 1).Offset(0, 1).Value = p.Name
 Cells(rw, 1).Value = IndexPropriété
 rw = rw + 1
 IndexPropriété = IndexPropriété + 1
 Next
 end sub

ceci te donnera l'index et l'intitulé de chacune des propriétés
le chiffre 8 représente "Revision number" du document. Tu peux donc l'utiliser
en te créant une fonction personnalisée :

Public Function PDerVersion()

PDerVersion = ActiveWorkbook.BuiltinDocumentProperties(8).Value

End Function

Dans ta feuille : saisis la formule : =PDerVersion().
Astuce illustrée par ce classeur
fc-manipfichiers

Auteur :

Mots clefs associés à cette page : , , , , ,