Je cherche une formule pour afficher des propriétés de document dans une cellule
Le
Emile63

Bonjour à tous,
Je souhaiterais afficher dans une cellule de mon classeur le contenu des co=
mmentaires qui figurent dans les propriétés du document par une formule=
(Si possible sans VBA).
Je n'ai pas trouver de formule, du coup je brode autour de la fonction ci-a=
près, mais sans grand succès!
(j'ai droit à un : #NOM?)
Function Commentaire(Commentaire As String)
Commentaire = ActiveWorkbook.BuiltinDocumentProperties("Comments")
End Function
- Est-ce que quelqu'un pourrait me mettre sur la voie, ou me proposer une f=
ormule à cet effet ?
Je vous remercie d'avance,
Cordialement.
Emile
Je souhaiterais afficher dans une cellule de mon classeur le contenu des co=
mmentaires qui figurent dans les propriétés du document par une formule=
(Si possible sans VBA).
Je n'ai pas trouver de formule, du coup je brode autour de la fonction ci-a=
près, mais sans grand succès!
(j'ai droit à un : #NOM?)
Function Commentaire(Commentaire As String)
Commentaire = ActiveWorkbook.BuiltinDocumentProperties("Comments")
End Function
- Est-ce que quelqu'un pourrait me mettre sur la voie, ou me proposer une f=
ormule à cet effet ?
Je vous remercie d'avance,
Cordialement.
Emile
Function Commentaire()
Commentaire = ActiveWorkbook.BuiltinDocumentProperties("Comments")
End Function
Daniel
Emile63 avait soumis l'idée :
ceci devrait aller je pense
Sub Test()
infosClasseurBuiltinDocumentProperties ActiveWorkbook
End Sub
Sub infosClasseurBuiltinDocumentProperties(Wb As Workbook)
Dim Valeur As DocumentProperty
Dim i As Byte
On Error Resume Next
'Boucle sur la collection de propriétés prédéfinies
For Each Valeur In Wb.BuiltinDocumentProperties
i = i + 1
'Insère le nom des propriétés dans la colonne A
ThisWorkbook.Worksheets(1).Cells(i, 1) = Valeur.Name
'Insère le contenu de la propriété dans la colonne B
ThisWorkbook.Worksheets(1).Cells(i, 2) = Valeur.Value
Next
ThisWorkbook.Worksheets(1).Columns("A:B").AutoFit
End Sub
Le 1/12/2015 13:27, Emile63 a écrit :
des commentaires qui figurent dans les propriétés du document par une
formule (Si possible sans VBA).
ci-après, mais sans grand succès!
une formule à cet effet ?
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Patrick,
c'est plutôt une formule que je recherche, parce que mes "comments" chang ent parfois, et je souhaiterais avoir l'interactivité et réaction d'une formule dans ma cellule (si possible) évitant de faire du code.
DanielCo,
J'ai essayé cette version avant celle que j'ai copié plus haut, mais le résultat dans mon Excel reste le même: #NOM?
Depuis la fenêtre Exécution j'ai lancé : ?Commentaire
Et là, la fonction s'exécute et me retourne le contenu du champs (comme souhaité).
Alors que depuis le module elle ne semble pas s'exécuter.
J'ai alors mis un point d'arrêt dessus, et quand j'actualise ma formule d ans la feuille, elle ne passe même pas en surbrillance (jaune) dans le mo dule VBA.
J'ai fermé et relancé Excel, j'ai également copié la fonction dans un nouveau classeur mais sans résultats. :-(
Je ne vois pas bien ce qui bloque....
http://www.cjoint.com/c/ELbpGxB655v
Daniel
Comme c'était assez bizarre cette histoire de fonction qui ne s'exécute pas, j'ai tout éteins et rallumé le Pc, et "ô miracle" ça fonction ne! :-))
Merci DanielCo et Patrick de vous être penchés sur mon cas!
très bonne fin de journée.
Emile
;-))
j'ai tout éteins et rallumé le Pc, et "ô miracle" ça fonctionne! :-))
ha ha ....
tu peux mettre la réponse que tout le monde en profite non ? :)
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Je suis bien disposé à ce que tout le monde en profite, mais c'est bien ce qu'ai fait, mettre la solution dans ma dernière réponse sur le fil.
- Comment devrais-je le faire (pour que tout le monde en profite) ?
Maintenant que ma fonction fonctionne, je me retrouve face à un petit pro blème de rafraîchissement..
En effet, contrairement à ce que je pensais, modifier le contenu de "Comm ents" (via inputbox VBA), ne rafraîchit pas automatiquement ma cellule (F 9 n'y change rien-F2+Enter; Oui).
- Comment est-ce que je peux m'y prendre pour résoudre ce petite problè me.
Merci pour votre aide et solutions.
Cordialement,
Emile
Ajoute :
Application.Volatile
en début de fonction
Il faudra appuyer sur F9 pour afficher le résultat.
Daniel
Emile63 a pensé très fort :
Fonctionne extra ;-)