Discussion :

[jpma75]

Bonjour,

J'utilise ce qui suit pour récupérer le titre et l'auteur d'un classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
auteur = ThisWorkbook.BuiltinDocumentProperties("Author").Value
titre = ThisWorkbook.BuiltinDocumentProperties("title").Value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MsgBox _
  "Auteur  :  " & auteur _
  & Chr(10) & _
  "Version :  " & titre _
  , vbInformation, ""

Je voudrais récupérer également (si possible) la dernière date d'enregistrement et le poste d'où elle a été lancée. J'ai ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dern_svg = ThisWorkbook.BuiltinDocumentProperties("DateLastSaved").Value
or_dern_svg = ThisWorkbook.BuiltinDocumentProperties("LastSavedBy").Value

...mais ça ne fonctionne pas.

Je vous remercie d'avance pour vos lumières.
Cdt

[Philippe Tulliez]

Bonjour,
Pour connaître la date et l'heure de la dernière modification c'est "Last save time"
BuiltinDocumentProperties étant une collection, il te suffit de parcourir celle-ci pour connaître le nom des propriétés

Procédure pour afficher le nom des propriétés du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ReadPropertiesName()
 Dim Elem%
 With ThisWorkbook.BuiltinDocumentProperties
  For Elem = 1 To .Count
   Debug.Print Format(Elem, "00") & " )" & .Item(Elem).Name
  Next
 End With
End Sub

[jpma75]

Bonjour,

Merci beaucoup.

J'ai appliqué la réponse pour "last save time" ; parfait !

J'ai mis ton code dans un module, mais je ne sais plus comment je dois faire pour avoir accès au résultat ; désolé.

[Philippe Tulliez]

Bonjour,
Lorsque tu places le pointeur de ta souris sur une instruction (ici Debug.Print) et que tu appuies sur la touche de fonction F1, voici ce que tu obtiens

Debug, objet
Voir aussi Méthodes
L'objet Debug envoie les données de sortie dans la fenêtre Exécution au moment de l'exécution

Et pour afficher la fenêtre Exécution ?
On va dans la commande du menu Affichage et on sélectionne Fenêtre Exécution (Ctrl + G)

Et si tu cliques sur Méthode de cette courte explication, tu as une page complète t'expliquant ce qu'est Debug.Print

La touche F1 est ton meilleur ami

[jpma75]

Bonjour,

Je ne comprends pas car avant de poser cette dernière question j'avais bien ouvert la fenêtre d'exécution et ça n'avait affiché aucun résultat, d'où ma demande d'explication complémentaire.
J'ai refait la manip et ça fonctionne parfaitement. Merci encore !

Question subsidiaire : certaines choses (eg Application.EnableEvents = False) pourraient-elles empêcher cette procédure d'afficher un résultat dans la fenêtre d'exécution ?