Bonjour,
J'ai un code vba qui ouvre un fichier, récupère certaine infos/propriétés tel que :
- la dernière date de sauvegarde d'un fichier excel ouvert
- la date de creation du fichier
- le dernier auteur du fichier modifié
et ensuite referme le fichier et passe au suivant
Spoiler :
For i = 1 To nbLigne
With ThisWorkbook.Worksheets(1)
' se placer sur la cellule 1 du fichier
.Range("D" & i + 4).Select
' recuperer le nom du path+filename
CheminFichier = Selection.Cells(i + 4, 1).Value
' ouvrir le fichier
Set ClasseurEnCours = Workbooks.Open(CheminFichier)
' recuperer la last save date
LastSaveDate = ClasseurEnCours.BuiltinDocumentProperties("Date Modified" ).Value
LastAuthor = ClasseurEnCours.BuiltinDocumentProperties("Last Author" ).Value
DateCreated = ClasseurEnCours.BuiltinDocumentProperties("Creation Date" ).Value
' ecrire dans la colonne 7 (G), la last save date
' .Range("G" & i + 4).Select
.Cells(i + 4, 7) = LastSaveDate
.Cells(i + 4, 8) = LastAuthor
.Cells(i + 4, 9) = DateCreated
' fermer le fichier
ClasseurEnCours.Close SaveChanges:=False
' ligne suivante
End With
Next |
mon problème est qu'à part récupérer le "Last Author" correctement, il ne fonctionne pas sur le reste.
Je m'explique, je veux récupérer la last save date (ou appelez ça comme vous voulez) c'est à dire la dernière fois que le fichier a été ouvert, puis sauvegardez., et bien lorsque je check la date et l'heure que me retourne mon code, avec ce que je vois dans "clic droit/propriétés/summary" pour voir si les dates correspondent... résultat les dates sont différentes
Pareil sur la date de creation du fichier.
Vous avez une idée de l'erreur et surtout avez vous la liste de toute les propriétés utilisés par BuiltinDocumentProperties("ici" )?
Message édité par replay le 04-08-2009 à 12:56:59