Partager via

Objet DocumentLibraryVersions (Office)

  • Article

La propriété DocumentLibraryVersions de l’objet Document dans Microsoft Word, de l’objet Workbook dans Excel et de l’objet Presentation dans PowerPoint renvoie un objet DocumentLibraryVersions . L’objet DocumentLibraryVersions représente une collection d’objets DocumentLibraryVersion.

Remarques

Utilisez l’objet DocumentLibraryVersions avec des documents stockés dans une bibliothèque de documents SharePoint sur le serveur pour déterminer si le contrôle de version est activé pour le document actif et si le contrôle de version est activé pour gérer la collection d’objets DocumentLibraryVersion du document.

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 suivantes se produisent : les versions supplémentaires ne sont pas créées chaque fois que l’utilisateur enregistre des modifications dans 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

Le modèle d'objet DocumentLibraryVersions est disponible que le contrôle de version soit ou non activé sur le document actif. La propriété DocumentLibraryVersions des objets Document, Workbook et Presentation ne renvoie pas Nothing lorsque le document actif n’est pas stocké dans une bibliothèque de documents ou que le contrôle de version n’est pas activé. Utilisez la propriété IsVersioningEnabled pour déterminer si la bibliothèque de documents est configurée pour enregistrer une copie de sauvegarde, ou une version, chaque fois que le document est modifié sur le site web.

Exemple

L’exemple suivant vérifie si le contrôle de version est activé pour le document actif et, le cas échéant, affiche des informations sur chaque version enregistrée.

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.