OVH Cloud OVH Cloud

Information commentaire des fichiers

8 réponses
Avatar
Christian.L
Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en faisant
"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.

8 réponses

Avatar
Paul V.
Bonjour,

Cherche du coté de

BuiltinDocumentProperties

et tu devrais trouver ton bonheur.

Paul V
"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en faisant
"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.



Avatar
denis P
Bonjour C.L.
Essai avec....
denis p.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en faisant
"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.



Avatar
Christian.L
Merci a tous les deux de vos promptes réponses

J'ai été voir "BuiltinDocumentProperties" dans l'aide.
Si j'ai bien compris, cette possibilité d'accès ne concerne que les
"Workbooks", hors je voudrais avoir accès à tous les fichiers même des
fichiers autres qu'Excel.

Dans mon cas, je veux depuis un classeur Excel, modifier les commentaire de
fichier images.

Merci encore

C.L.


"denis P" a écrit dans le message de
news:
Bonjour C.L.
Essai avec....
denis p.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en
faisant


"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.







Avatar
Frédéric Sigonneau
Bonjour,

Dans ce cas, il faut passer, je pense, par les objets de la bibliothèque
dsofile, en espérant que ton format de fichier soit pris en charge.
Exemple d'utilisation ici :

http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Merci a tous les deux de vos promptes réponses

J'ai été voir "BuiltinDocumentProperties" dans l'aide.
Si j'ai bien compris, cette possibilité d'accès ne concerne que les
"Workbooks", hors je voudrais avoir accès à tous les fichiers même des
fichiers autres qu'Excel.

Dans mon cas, je veux depuis un classeur Excel, modifier les commentaire de
fichier images.

Merci encore

C.L.


"denis P" a écrit dans le message de
news:

Bonjour C.L.
Essai avec....
denis p.



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:

Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en



faisant

"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.










Avatar
Christian.L
Bonjour Frédéric

Merci pour la réponse, je vais étudier cela de plus près.


C.L.


"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Dans ce cas, il faut passer, je pense, par les objets de la bibliothèque
dsofile, en espérant que ton format de fichier soit pris en charge.
Exemple d'utilisation ici :


http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Merci a tous les deux de vos promptes réponses

J'ai été voir "BuiltinDocumentProperties" dans l'aide.
Si j'ai bien compris, cette possibilité d'accès ne concerne que les
"Workbooks", hors je voudrais avoir accès à tous les fichiers même des
fichiers autres qu'Excel.

Dans mon cas, je veux depuis un classeur Excel, modifier les commentaire
de


fichier images.

Merci encore

C.L.


"denis P" a écrit dans le message de
news:

Bonjour C.L.
Essai avec....
denis p.




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:

Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en



faisant

"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.












Avatar
Christian.L
Bonjour Frédéric

J'ai essayé une bonne partie du week end les codes de ton site Internet

http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt

mais je pense que la bibliothèque a été modifiée car c'est la version :
DSO OLE Document Properties Reader 2.0 qui est chargée
au lieu de
DS: OLE Document Properties 1.4 Object Library

En conséquence, a la ligne " Set DSO CreateObject("DSOleFile.PropertyReader")"
se produit une erreur d'exécution :
"Erreur d'exécution '429':
Un composant ActiveX ne peut pas créer d'objet"

Encore merci

C.L.


"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Dans ce cas, il faut passer, je pense, par les objets de la bibliothèque
dsofile, en espérant que ton format de fichier soit pris en charge.
Exemple d'utilisation ici :


http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Merci a tous les deux de vos promptes réponses

J'ai été voir "BuiltinDocumentProperties" dans l'aide.
Si j'ai bien compris, cette possibilité d'accès ne concerne que les
"Workbooks", hors je voudrais avoir accès à tous les fichiers même des
fichiers autres qu'Excel.

Dans mon cas, je veux depuis un classeur Excel, modifier les commentaire
de


fichier images.

Merci encore

C.L.


"denis P" a écrit dans le message de
news:

Bonjour C.L.
Essai avec....
denis p.




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:

Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en



faisant

"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.












Avatar
Christian.L
Bonjour Frédéric

J'ai essayé une bonne partie du week end les codes de ton site Internet

http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt

mais je pense que la bibliothèque a été modifiée car c'est la version :
DSO OLE Document Properties Reader 2.0 qui est chargée
au lieu de
DS: OLE Document Properties 1.4 Object Library

En conséquence, a la ligne " Set DSO CreateObject("DSOleFile.PropertyReader")"
se produit une erreur d'exécution :
"Erreur d'exécution '429':
Un composant ActiveX ne peut pas créer d'objet"

Encore merci

C.L.

"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Dans ce cas, il faut passer, je pense, par les objets de la bibliothèque
dsofile, en espérant que ton format de fichier soit pris en charge.
Exemple d'utilisation ici :


http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Merci a tous les deux de vos promptes réponses

J'ai été voir "BuiltinDocumentProperties" dans l'aide.
Si j'ai bien compris, cette possibilité d'accès ne concerne que les
"Workbooks", hors je voudrais avoir accès à tous les fichiers même des
fichiers autres qu'Excel.

Dans mon cas, je veux depuis un classeur Excel, modifier les commentaire
de


fichier images.

Merci encore

C.L.


"denis P" a écrit dans le message de
news:

Bonjour C.L.
Essai avec....
denis p.




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:

Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en



faisant

"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.












Avatar
Frédéric Sigonneau
Bonsoir,

Si tu as téléchargé et installé la version la plus récente de la bibliothèque,
le code devrait fonctionner. Ce genre d'appel par CreateObject utilise
automatiquement la bibliothèque (correctement) installée et une version plus
récente que celle citée dans le module de code ne devrait pas poser problème.

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour Frédéric

J'ai essayé une bonne partie du week end les codes de ton site Internet

http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt

mais je pense que la bibliothèque a été modifiée car c'est la version :
DSO OLE Document Properties Reader 2.0 qui est chargée
au lieu de
DS: OLE Document Properties 1.4 Object Library

En conséquence, a la ligne " Set DSO > CreateObject("DSOleFile.PropertyReader")"
se produit une erreur d'exécution :
"Erreur d'exécution '429':
Un composant ActiveX ne peut pas créer d'objet"

Encore merci

C.L.

"Frédéric Sigonneau" a écrit dans le message de
news:

Bonjour,

Dans ce cas, il faut passer, je pense, par les objets de la bibliothèque
dsofile, en espérant que ton format de fichier soit pris en charge.
Exemple d'utilisation ici :




http://frederic.sigonneau.free.fr/code/Fichiers/ProprietesClasseurFerme.txt

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Merci a tous les deux de vos promptes réponses

J'ai été voir "BuiltinDocumentProperties" dans l'aide.
Si j'ai bien compris, cette possibilité d'accès ne concerne que les
"Workbooks", hors je voudrais avoir accès à tous les fichiers même des
fichiers autres qu'Excel.

Dans mon cas, je veux depuis un classeur Excel, modifier les commentaire



de

fichier images.

Merci encore

C.L.


"denis P" a écrit dans le message de
news:


Bonjour C.L.
Essai avec....
denis p.




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'
Sub Macro1()
'Cet exemple montre comment afficher les noms et le valeurs
'des propriétés de document prédéfinies sous
'forme d'une liste dans la feuille de calcul 1.
Dim rw, p
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
On Error GoTo 0
rw = rw + 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Christian.L" a écrit dans le message de
news:


Bonjour à tous

Je sais pour le faire déjà, qu'il est possible avec VBA de renommer
n'importe quel fichier.

Mais est t'il possible, toujours avec VBA, d'accéder et de modifier le
commentaire de n'importe quel fichier, celui auquel l'on accède en



faisant


"Propriété/Résumé" dans l'explorateur Windows.

Merci d'avance de votre attention.

C.L.