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
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
A voir également:
- Récupérer Propriétés Serveurs d'un fichier XL
- Fichier rar - Guide
- Fichier host - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer video youtube - Guide
- Fichier iso - Guide
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
11 sept. 2012 à 12:00
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....
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
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
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