Propriété SharedWorkspaceFile.CreatedDate (Office)

  • Article

Cette propriété renvoie la date et l'heure de création de l'objet espace de travail partagé. En lecture seule.

Remarque

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

Syntaxe

expression. CreatedDate

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 création 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.CreatedDate 
 If dtmFileDate < dtmMidnight Then 
 strOlderFiles = strOlderFiles & swsFile.URL & vbCrLf 
 End If 
 Next 
 MsgBox "Files older than 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.