Propriété SharedWorkspaceFile.ModifiedDate (Office)

  • Article

Cette propriété renvoie la date et l'heure de la dernière modification de l'objet SharedWorkspaceFile. En lecture seule.

Remarque

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

Syntaxe

expression. Modifieddate

Expression Variable qui représente un objet SharedWorkspaceFile .

Valeur renvoyée

Variant

Exemple

L'exemple ci-dessous renvoie une liste de fichiers d'espace de travail partagé dont la date et l'heure de dernière modification sont antérieures à la date du jour.

Dim swsFile As Office.SharedWorkspaceFile 
    Dim dtmMidnight As Date 
    Dim dtmFileDate As Date 
    Dim strOlderFiles As String 
    dtmMidnight = CDate(FormatDateTime(Now, vbShortDate) & " 12:00:00 am") 
    For Each swsFile In ActiveWorkbook.SharedWorkspace.Files 
        dtmFileDate = swsFile.ModifiedDate 
        If dtmFileDate < dtmMidnight Then 
            strOlderFiles = strOlderFiles & swsFile.URL & vbCrLf 
        End If 
    Next 
    MsgBox "Files not modified today: " & vbCrLf & strOlderFiles, _ 
        vbInformation + vbOKOnly, "Older Files" 
    Set swsFile = 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.