Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Ouvre une autre version du document partagé parallèlement à la version locale actuellement ouverte.
Remarque
À partir de Microsoft Office 2010, cet objet ou ce membre ne doit plus être utilisé.
Syntaxe
expression. OpenVersion (SyncVersionType)
expression Variable qui représente un objet Sync .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| SyncVersionType | Requis | MsoSyncVersionType | Représente le type de version. |
Remarques
Utilisez la méthode OpenVersion pour ouvrir la dernière version consultée (msoSyncVersionLastViewed) ou la copie serveur (msoSyncVersionServer) du document partagé avec la version locale actuellement ouverte.
L’option msoSyncVersionLastViewed affiche la copie du document créé chaque fois que l’utilisateur remplace la copie locale par la copie du serveur. Par exemple, si vous appelez la méthode ResolveConflict avec l’option msoSyncConflictServerWins, vos modifications locales sont enregistrées et peuvent être consultées en appelant OpenVersion (msoSyncVersionLastViewed).
Tous les problèmes de synchronisation de document ne génèrent pas d’erreur d’exécution récupérable. Après avoir effectué une opération à l’aide de l’objet Sync, il est judicieux d’case activée la propriété Status ; si la propriété Status est msoSyncStatusError, case activée la propriété ErrorType pour obtenir des informations supplémentaires sur le type d’erreur qui s’est produite.
Exemple
Cet exemple montre comment inviter l'utilisateur à ouvrir la copie du document partagé hébergée sur le serveur parallèlement à la version locale actuellement ouverte.
Dim objSync As Office.Sync
Dim lngChoice As VbMsgBoxResult
Set objSync = ActiveDocument.Sync
lngChoice = MsgBox("View server copy?", _
vbQuestion + vbOKCancel, "Open Server Version?")
If lngChoice = vbOK Then
objSync.OpenVersion msoSyncVersionServer
End If
Set objSync = 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.