Méthode Document.CheckIn (Visio)

Article
04/07/2023

Retourne un document d’un ordinateur local vers un ordinateur Microsoft SharePoint Server.

Syntaxe

expression. CheckIn (SaveChanges, Comments, MakePublic)

Expression Variable qui représente un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
SaveChanges	Facultatif	Boolean	True (non nul) pour enregistrer les modifications apportées au document avant archivage ; False (0) pour archiver le document sans enregistrer les modifications. La valeur par défaut est True.
Comments	Facultatif	Variant	Tout commentaire à stocker avec cette révision du document (ne s’applique que si EnregistrerModifications est égal à True).
MakePublic	Facultatif	Boolean	True pour publier le document après archivage. Le document est ainsi soumis au processus d’approbation ou, s’il n’existe pas de tel processus pour le document, une version publique est créée et disponible pour les lecteurs du dossier (ne s’applique que si EnregistrerModifications a la valeur True) ; False laisse le document disponible pour visualisation privée uniquement. La valeur par défaut est False.

Valeur renvoyée

Aucune

Remarques

Pour archiver un fichier, celui-ci doit être stocké dans une bibliothèque de documents sur un ordinateur exécutant Microsoft SharePoint Server ou Microsoft SharePoint Foundation.

Une fois que le document a été archivé à l’aide de la méthode CheckIn , le document est fermé. Ce comportement est différent de l’interface utilisateur ; lorsque vous archivez un document dans l’interface utilisateur, le document est fermé et rouvert en lecture seule.

Exemple

Cet exemple contrôle le serveur pour voir si le document spécifié peut être archivé. Si c’est le cas, cet exemple enregistre et ferme le document, puis l’archive à nouveau sur le serveur.

Sub CheckDocIn(varDocCheckIn As Variant) 
  
    If Documents.Item(varDocCheckIn).CanCheckin = True Then  
        Documents.Item(varDocCheckIn).CheckIn  
        MsgBox varDocCheckIn & " has been checked in."  
    Else  
        MsgBox "This file cannot be checked in " _  
            & "at this time. Please try again later."  
    End If   
  
End Sub

Pour appeler la sous-routine CheckDocIn précédente, utilisez la sous-routine suivante et remplacez nomserveur/espacetravail/dessin.vdx par le chemin d’accès et le nom d’un fichier existant situé sur un ordinateur Microsoft SharePoint Portal Server.

Sub DocIn()  
 
    Call CheckDocIn _  
        (varDocCheckIn:="https://servername/workspace/drawing.vdx ") 
  
End Sub

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.

Partager via