Partager via

Sync.Status, propriété (Office)

Renvoie l’état de la synchronisation entre la copie locale du document actif et la copie placée sur le serveur. En lecture seule.

Remarque

À partir de Microsoft Office 2010, cet objet ou ce membre ne doit plus être utilisé.

Syntaxe

expression. Statut

expression Obligatoire. Variable qui représente un objet Sync .

Remarques

Utilisez la propriété Status pour déterminer si la copie locale du document actif est synchronisée avec la copie sur le serveur partagée. Utilisez la méthode GetUpdate pour actualiser l'état.

Utilisez les méthodes et propriétés suivantes le cas échéant pour répondre à diverses conditions status :

  • msoSyncStatusConflict. True lorsque les copies locales et serveur ont toutes deux des modifications. Utilisez la méthode ResolveConflict pour résoudre les différences.

  • msoSyncStatusError. Vérifiez la propriété ErrorType .

  • msoSyncStatusLocalChanges. True lorsque seule la copie locale comporte des modifications. Utilisez la méthode PutUpdate pour enregistrer les modifications locales apportées à la copie sur le serveur.

  • msoSyncStatusNewerAvailable. True lorsque seule la copie du serveur comporte des modifications. Fermez et rouvrez le document pour utiliser la copie la plus récente à partir du serveur.

  • msoSyncStatusSuspended. Utilisez la méthode Unsuspend pour reprendre la synchronisation.

La propriété Status renvoie une seule constante de la liste mentionnée, dans l'ordre de priorité suivant :

  1. msoSyncStatusNoSharedWorkspace

  2. msoSyncStatusError

  3. msoSyncStatusSuspended

  4. msoSyncStatusConflict

  5. msoSyncStatusNewerAvailable

  6. msoSyncStatusLocalChanges

  7. msoSyncStatusLatest

Exemple

L'exemple ci-dessous examine la propriété Status et, le cas échéant, exécute une action appropriée pour synchroniser les copies locale et sur le serveur du document.

    Dim objSync As Office.Sync 
    Dim strStatus As String 
    Set objSync = ActiveDocument.Sync 
    If objSync.Status > msoSyncStatusNoSharedWorkspace Then 
        Select Case objSync.Status 
            Case msoSyncStatusConflict 
                objSync.ResolveConflict msoSyncConflictMerge 
                ActiveDocument.Save 
                objSync.ResolveConflict msoSyncConflictClientWins 
                strStatus = "Conflict resolved by merging changes." 
            Case msoSyncStatusError 
                strStatus = "Last error type: " & objSync.ErrorType 
            Case msoSyncStatusLatest 
                strStatus = "Document copies already in sync." 
            Case msoSyncStatusLocalChanges 
                objSync.PutUpdate 
                strStatus = "Local changes saved to server." 
            Case msoSyncStatusNewerAvailable 
                strStatus = "Newer copy available on the server." 
            Case msoSyncStatusSuspended 
                objSync.Unsuspend 
                strStatus = "Synchronization resumed." 
        End Select 
    Else 
        strStatus = "Not a shared workspace document." 
    End If 
    MsgBox strStatus, vbInformation + vbOKOnly, "Sync Information" 
    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.

  • Last updated on