Récupérer Propriétés Serveurs d'un fichier XL

Fermé
oylan Messages postés 8 Date d'inscription mardi 11 septembre 2012 Statut Membre Dernière intervention 14 septembre 2012 - Modifié par oylan le 11/09/2012 à 11:15
oylan Messages postés 8 Date d'inscription mardi 11 septembre 2012 Statut Membre Dernière intervention 14 septembre 2012 - 11 sept. 2012 à 13:26
Bonjour à tous,

Je suis sur un projet, qui est de récupérer les propriétés Serveur d'un fichier via macro sous Excel 2007.

Celles-ci par exemple : https://i.imgur.com/BTWBm.png

En effet, sous Excel 2007, il n'y a pas de rubrique ''Quick part''(Qui nous permet de ressortir les propriétés serveurs actualisées) comme sous Word.

Alors je dois pouvoir faire une macro, qui permettrais de pouvoir lire cette donnée serveur et l'affichée dans une cellule.

Par ex: =get_wss_properties(''Site'')
ou
=get_wss_properties(''Domaine'')


Mais, jusque la, je ne suis arrivé qu'a afficher dans une message box l'auteur :( :

Option Explicit
Function get_wss_properties(A)
MsgBox ThisWorkbook.BuiltinDocumentProperties("Author").Value
End Function


Mais... selement pour l'auteur car il est désigner dans le BuilinDocumentProperties

J'aimerais bien pouvoir mettre autre chose que Author la dedans et, par ailleur, ne pas l'afficher dans une message box :@

J'espère avoir été asser comprenable :p

Donc, si quelqu'un pouvais m'aider J'en serais reconnaissant!!! :)

Merci !




Dylan ''oylan'' Reymond
Quand je le fais, au moin, je le fais bien! :D
A voir également:

2 réponses

michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 292
11 sept. 2012 à 12:00
Bonjour

cette macro te liste les différents "builtinproperties" sur une feuille excel

Sub prop()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
    rw = rw + 1
Next
End Sub

pour connaitre par ex la date de création
Sub dire()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("creation date")
End Sub

ou
Sub dire()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties(11)
End Sub


tu peux obtenir d'autres métadonnées en utilisant FSO....
1
oylan Messages postés 8 Date d'inscription mardi 11 septembre 2012 Statut Membre Dernière intervention 14 septembre 2012
11 sept. 2012 à 13:26
Merci beaucoup ! Je vais essayer avec sa !

Mais, j'ai cependant une autre question, serait-il possible que je puisse à la place de l'entré directement dans la cellule (comme : =dire), que je puisse mettre uen parenthèse, récupérer la valeur et que ceci modifie le Sub en fonction ?

Exemple :
Dim A as String
Sub dire(A)
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties(A)
End Sub

0