Partager via

Objet DocumentLibraryVersion (Office)

  • Article

L’objet DocumentLibraryVersion représente une seule version enregistrée d’un document partagé pour lequel le contrôle de version est activé et qui est stocké dans une bibliothèque de documents sur le serveur. Chaque objet DocumentLibraryVersion est un membre de la collection DocumentLibraryVersions du document actif.

Remarques

Chaque objet DocumentLibraryVersion représente une version enregistrée du document actif. Lorsque le contrôle de version est activé, une nouvelle version est créée sur le serveur lorsque les actions décrites ci-dessous se produisent ; en revanche, des nouvelles versions ne sont pas créées à chaque fois que l'utilisateur modifie le document ouvert.

  • Archivage
  • Enregistrer : une nouvelle version est créée sur le serveur lorsque l’utilisateur enregistre le document pour la première fois après l’avoir ouvert. Les autres modifications enregistrées alors que le document est ouvert s'appliquent à la même version.
  • Restaurer
  • Charger

Utilisez les propriétés Modified, ModifiedBy et Comments pour renvoyer des informations sur une version enregistrée d'un document partagé.

Utilisez la méthode Open pour ouvrir une version précédente ou la méthode Restore pour restaurer une version précédente à la place de la version actuelle. Enfin, utilisez la méthode Delete pour supprimer une version.

Exemple

Cet exemple montre comment afficher les propriétés de chaque version enregistrée du document actif.

 Dim dlvVersions As Office.DocumentLibraryVersions 
 Dim dlvVersion As Office.DocumentLibraryVersion 
 Dim strVersionInfo As String 
 Set dlvVersions = ActiveDocument.DocumentLibraryVersions 
 If dlvVersions.IsVersioningEnabled Then 
 strVersionInfo = "This document has " & _ 
 dlvVersions.Count & " versions: " & vbCrLf 
 For Each dlvVersion In dlvVersions 
 strVersionInfo = strVersionInfo & _ 
 " - Version #: " & dlvVersion.Index & vbCrLf & _ 
 " - Modified by: " & dlvVersion.ModifiedBy & vbCrLf & _ 
 " - Modified on: " & dlvVersion.Modified & vbCrLf & _ 
 " - Comments: " & dlvVersion.Comments & vbCrLf 
 Next 
 Else 
 strVersionInfo = "Versioning not enabled for this document." 
 End If 
 MsgBox strVersionInfo, vbInformation + vbOKOnly, "Version Information" 
 Set dlvVersion = Nothing 
 Set dlvVersions = Nothing

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.