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

Question

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 ! 


Configuration: Windows 7 / Chrome 21.0.1180.89  
  
Dylan ''oylan'' Reymond 
Quand je le fais, au moin, je le fais bien!  :D

michel_m · Answer

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....

oylan · Answer

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

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

2 réponses

Discussions similaires

Newsletters