Re: afficher les propriétés du classeur lors de l'ouverture et fermeture
bonsoir Gilles
j'espere que cet exemple pourra t'aider
les 2 premieres macros sont à placer au niveau du Classeur ( ThisWorkbook )
Private Sub Workbook_BeforeClose(Cancel As Boolean)
PropriétésClasseur
End Sub
Private Sub Workbook_Open()
PropriétésClasseur
End Sub
la troisieme macro est placée dans un module
Sub PropriétésClasseur()
Dim Cible As Object, Valeur As Object
Dim Resultat As String, Fichier As String
Fichier = ThisWorkbook.FullName 'adpater le chemin
Set Cible = CreateObject("Scripting.fileSystemObject")
Set Valeur = Cible.getFile(Fichier)
Resultat = "Chemin : " & Valeur.parentFolder & Chr(10) & Chr(10) & _
Nom et chemin fichier : & Fichier & Chr(10) & Chr(10) & _
Date creation : & Valeur.dateCreated & Chr(10) & Chr(10) & _
Derniere sauvegarde : & Valeur.dateLastModified & Chr(10) & Chr(10) & _
Dernier accès : & Valeur.DateLastAccessed & Chr(10) & Chr(10) & _
Taille classeur : & Valeur.Size & " octets"
MsgBox Resultat, , "Message d'information "
End Sub
bonne soirée
MichelXld