Récupérer Propriétés Serveurs d'un fichier XL
oylan
Messages postés
8
Statut
Membre
-
oylan Messages postés 8 Statut Membre -
oylan Messages postés 8 Statut Membre -
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
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:
- Récupérer Propriétés Serveurs d'un fichier XL
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
2 réponses
Bonjour
cette macro te liste les différents "builtinproperties" sur une feuille excel
pour connaitre par ex la date de création
ou
tu peux obtenir d'autres métadonnées en utilisant FSO....
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....
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
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
