Je suis sur un projet, qui est de récupérer des propriétés Serveur via macro sous Excel 2007.
En effet, sous Excel 2007, il n'y a pas de rubrique ''Quick part''(Qui nous permet de ressortir les propriétés serveurs) 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
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!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Qu'est-ce que tu veux extraire du document Excel? Il doit bien y avoir des "mots" ou "expressions" dans la langue française pour exprimer ce que tu veux. Ici nous traitons d'Excel et non de Word.
'---------------------- faire une macro, qui permettrait de pouvoir lire cette donnée serveur et l'afficher dans une cellule. '----------------------
Qu'est-ce que tu veux extraire du document Excel?
Il doit bien y avoir des "mots" ou "expressions" dans la langue française
pour exprimer ce que tu veux. Ici nous traitons d'Excel et non de Word.
'----------------------
faire une macro, qui permettrait de pouvoir lire cette
donnée serveur et l'afficher dans une cellule.
'----------------------
Qu'est-ce que tu veux extraire du document Excel? Il doit bien y avoir des "mots" ou "expressions" dans la langue française pour exprimer ce que tu veux. Ici nous traitons d'Excel et non de Word.
'---------------------- faire une macro, qui permettrait de pouvoir lire cette donnée serveur et l'afficher dans une cellule. '----------------------
Je suis sur un projet, qui est de récupérer des propriétés Serveur via macro sous Excel 2007.
En effet, sous Excel 2007, il n'y a pas de rubrique ''Quick part''(Qui nous permet de ressortir les propriétés serveurs) 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
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!
Très bien, mhhhh... comment expliquer...
Le fichier excel à certaines propriétés Comme ceci :
http://i.imgur.com/BTWBm.png
Et, je voudrais (par macro) pouvoir afficher une de ces propriétés (de mon choix), dans la cellule ou j'aurai écrit par exemple : =get_wss_properties("But / Zweck")
C'est mieux comme ca ?
Le lundi 10 Septembre 2012 à 13:19 par oylan :
Bonjour à tous,
Je suis sur un projet, qui est de récupérer des
propriétés Serveur via macro sous Excel 2007.
En effet, sous Excel 2007, il n'y a pas de rubrique ''Quick part''(Qui nous
permet de ressortir les propriétés serveurs) 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
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!
Très bien, mhhhh... comment expliquer...
Le fichier excel à certaines propriétés Comme ceci :
http://i.imgur.com/BTWBm.png
Et, je voudrais (par macro) pouvoir afficher une de ces propriétés (de mon choix), dans la cellule ou j'aurai écrit par exemple : =get_wss_properties("But / Zweck")
Je suis sur un projet, qui est de récupérer des propriétés Serveur via macro sous Excel 2007.
En effet, sous Excel 2007, il n'y a pas de rubrique ''Quick part''(Qui nous permet de ressortir les propriétés serveurs) 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
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!
Très bien, mhhhh... comment expliquer...
Le fichier excel à certaines propriétés Comme ceci :
http://i.imgur.com/BTWBm.png
Et, je voudrais (par macro) pouvoir afficher une de ces propriétés (de mon choix), dans la cellule ou j'aurai écrit par exemple : =get_wss_properties("But / Zweck")
C'est mieux comme ca ?
oylan
Le lundi 10 Septembre 2012 à 13:41 par MichD :
Bonjour,
Qu'est-ce que tu veux extraire du document Excel? Il doit bien y avoir des "mots" ou "expressions" dans la langue française pour exprimer ce que tu veux. Ici nous traitons d'Excel et non de Word.
'---------------------- faire une macro, qui permettrait de pouvoir lire cette donnée serveur et l'afficher dans une cellule. '----------------------
Le fichier excel à certaines propriétés Comme ceci :
http://i.imgur.com/BTWBm.png
Et, je voudrais (par macro) pouvoir afficher une de ces propriétés (de mon choix), dans la cellule ou j'aurai écrit par exemple : =get_wss_properties("But / Zweck")
C'est mieux comme ca ?
Le lundi 10 Septembre 2012 à 13:41 par MichD :
Bonjour,
Qu'est-ce que tu veux extraire du document Excel?
Il doit bien y avoir des "mots" ou "expressions" dans la
langue française
pour exprimer ce que tu veux. Ici nous traitons d'Excel et non de Word.
'----------------------
faire une macro, qui permettrait de pouvoir lire cette
donnée serveur et l'afficher dans une cellule.
'----------------------
Le fichier excel à certaines propriétés Comme ceci :
http://i.imgur.com/BTWBm.png
Et, je voudrais (par macro) pouvoir afficher une de ces propriétés (de mon choix), dans la cellule ou j'aurai écrit par exemple : =get_wss_properties("But / Zweck")
Qu'est-ce que tu veux extraire du document Excel? Il doit bien y avoir des "mots" ou "expressions" dans la langue française pour exprimer ce que tu veux. Ici nous traitons d'Excel et non de Word.
'---------------------- faire une macro, qui permettrait de pouvoir lire cette donnée serveur et l'afficher dans une cellule. '----------------------
Le fichier excel à certaines propriétés Comme ceci :
http://i.imgur.com/BTWBm.png
Et, je voudrais (par macro) pouvoir afficher une de ces propriétés (de mon choix), dans la cellule ou j'aurai écrit par exemple : =get_wss_properties("But / Zweck")
C'est mieux comme ca ?
MichD
Hier, je t'ai répondu ceci. Qu'est-ce qui ne fonctionne pas?
============================================================ D'abord une procédure pour connaître les propriétés que tu peux extraire :
'---------------------------------- Sub test() Dim A As Integer With Worksheets("Feuil1") ' Nom Feuille à adapter For Each c In ThisWorkbook.BuiltinDocumentProperties A = A + 1 .Range("A" & A) = c.Name Next End With End Sub '----------------------------------
Dans un module standard, tu copies cette fonction personnalisée et tu peux utiliser cette fonction dans une cellule en inscrivant : =Propriété(3) : 3 étant l'index de la propriété OU si tu préfères en utilisant le nom de la propriété =Propriété("Author")
'--------------------------------------- Function Propriété(Prop As Variant) Application.Volatile On Error Resume Next Propriété = ThisWorkbook.BuiltinDocumentProperties(Prop).Value End Function '--------------------------------------- =============================================================
Hier, je t'ai répondu ceci. Qu'est-ce qui ne fonctionne pas?
============================================================ D'abord une procédure pour connaître les propriétés que tu peux extraire :
'----------------------------------
Sub test()
Dim A As Integer
With Worksheets("Feuil1") ' Nom Feuille à adapter
For Each c In ThisWorkbook.BuiltinDocumentProperties
A = A + 1
.Range("A" & A) = c.Name
Next
End With
End Sub
'----------------------------------
Dans un module standard, tu copies cette fonction personnalisée
et tu peux utiliser cette fonction dans une cellule en inscrivant :
=Propriété(3) : 3 étant l'index de la propriété
OU si tu préfères en utilisant le nom de la propriété
=Propriété("Author")
'---------------------------------------
Function Propriété(Prop As Variant)
Application.Volatile
On Error Resume Next
Propriété = ThisWorkbook.BuiltinDocumentProperties(Prop).Value
End Function
'---------------------------------------
=============================================================
Hier, je t'ai répondu ceci. Qu'est-ce qui ne fonctionne pas?
============================================================ D'abord une procédure pour connaître les propriétés que tu peux extraire :
'---------------------------------- Sub test() Dim A As Integer With Worksheets("Feuil1") ' Nom Feuille à adapter For Each c In ThisWorkbook.BuiltinDocumentProperties A = A + 1 .Range("A" & A) = c.Name Next End With End Sub '----------------------------------
Dans un module standard, tu copies cette fonction personnalisée et tu peux utiliser cette fonction dans une cellule en inscrivant : =Propriété(3) : 3 étant l'index de la propriété OU si tu préfères en utilisant le nom de la propriété =Propriété("Author")
'--------------------------------------- Function Propriété(Prop As Variant) Application.Volatile On Error Resume Next Propriété = ThisWorkbook.BuiltinDocumentProperties(Prop).Value End Function '--------------------------------------- =============================================================
