Numéroter les versions d'un classeur
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 : Denis Michon
Mots clefs associés à cette page : fichier, classeur, file, xls, numéro, version
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
