Discussion :

[StephDu59]

Bonjour,

J'utilise un macro excel pour lister les fichiers d'une arborescence réseau.
Le but étant d'afficher le nom du fichier ainsi qu'un lien vers le fichier. Jusque là ok pas de souci.

Maintenant je voudrai lire les propriétés avancées (commentaires, mots clés, descriptions) des fichiers et les inserer dans des colonnes de mon tableau excel.
--> ça ok.

Enfin je voudrai pouvoir modifier les propriétés avancées d'un fichier depuis vba.

Pour lire les propriété avancé j'ai trouvé la méthode "GetDetailsOf" qui fonctionne bien.

Existe-t-il une méthode ou un moyen de faire un SetDetailsOf pour modifier les valeurs de ces propriétés avancées?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Oshell As Object
Dim ODir As Object
 
Set Oshell = CreateObject("Shell.Application")
Set ODir = Oshell.Namespace("c:\temp")
 
        'i=18 --> Mots clés
        i = 18
            TextBox1.Text = TextBox1.Text & "N° " & i & ": " & ODir.GetDetailsOf(ODir, i) & " = "
             For Each sFile In ODir.Items
                TextBox1.Text = TextBox1.Text & ODir.GetDetailsOf(sFile, i) & " / "
            Next
            TextBox1.Text = TextBox1.Text & " - "
        'i=24 --> Commentaires
        i = 24
            TextBox1.Text = TextBox1.Text & "N° " & i & ": " & ODir.GetDetailsOf(ODir, i) & " = "
             For Each sFile In ODir.Items
                TextBox1.Text = TextBox1.Text & ODir.GetDetailsOf(sFile, i) & " / "
            Next
            TextBox1.Text = TextBox1.Text & " - "
        'i=34 --> Description fichier
        i = 34
            TextBox1.Text = TextBox1.Text & "N° " & i & ": " & ODir.GetDetailsOf(ODir, i) & " = "
            For Each sFile In ODir.Items
                TextBox1.Text = TextBox1.Text & ODir.GetDetailsOf(sFile, i) & " / "
            Next
            TextBox1.Text = TextBox1.Text & Chr(13)

Merci d'avance,

Cordialement,

Stéph

[NEC14]

Bonsoir,

Il y a eu une discussion similaire ici :
http://www.developpez.net/forums/d14...d-fichier-mp3/
peut-être cela pourra-t-il vous aider.

[kiki29]

Salut, voir la FAQ
Lire et modifier les propriétés des classeurs et autres fichiers via DSO
Accessoirement : Liste des propriétés de fichiers

[StephDu59]

Merci pour le retour.

La partie DSOFile.OleDocumentProperties règle mon problème pour les fichiers Word, Excel,...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
    Dim DSO As DSOFile.OleDocumentProperties
 
    Set DSO = New DSOFile.OleDocumentProperties
 
    'Attention: Le fichier doit être préalablement fermé!
    DSO.Open sfilename:="C:\temp\Excel.xlsx"
    DSO.Open sfilename:="C:\temp\Word.docx"
    DSO.Open sfilename:="C:\temp\Pdf.pdf" '--> ne fonctionne pas
    DSO.SummaryProperties.Comments = "mon nouveau commentaire"
    DSO.Save
    DSO.Close

Par contre le lien vers la modification des fichiers mp3 en accès binaire implique la copie du fichier ce qui est très long et je n'ai pas non plus réussi à le faire fonctionner avec des fichier images et des PDF.

Auriez vous une solution pour la modification de fichiers PDF, image et autres "a priori" "non OLE".

Merci d'avance

[NEC14]

Voici les 2 sites de
DVP.com pour VB6 et
DVP.com pour VB.net où tu ne manqueras pas d'y trouver de l'aide

voir aussi ici : http://www.developpez.net/forums/d14...bat-vba-excel/

Je ne pense pas que l'on puisse modifier un fichier PDF en VBA.
Peut-être si l'on possède Adobe Acrobat.

En général, on crée le fichier avec un logiciel comme Word, Excel... et on le convertit en PDF par la suite.

on ne peut les modifier qu'avec Adobe Acrobat Writer /Maker permet l'édition du fichier sauf erreur de ma part. Il y aura certainement de plus grands spécialistes que moi qui pourront confirmer ou pas.

[kiki29]

Salut, voir ceci, les possibilités sont nettement plus limitées : Auteur,Sujet,Mots-Clés,Titre,Outil de conversion PDF,Date Création,Date Modification

• Acrobat : Anonymiser les fichiers PDFs d'un dossier ( Effacer les métadonnées )
• PDFCreator 1.7.3 : Anonymiser les fichiers PDFs d'un dossier ( Effacer les métadonnées )
  

Accessoirement voir : Liste des propriétés de fichiers

Des versions téléchargeables sont disponibles via la Liste des Contributions.

[Jamacele]

Salut, voir la FAQ
Lire et modifier les propriétés des classeurs et autres fichiers via DSO
Accessoirement : Liste des propriétés de fichiers

Bonjour,
Cette procédure ci-dessous ne fonctionne pas avec excel 2016. Un message d'erreur apparaît :

Un composant ActiveX ne peut pas créer d'objet

à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DSO = New DSOFile.OleDocumentProperties

Avez vous une idée de la cause.
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub LireProprietesClasseur_DSO()
    'Nécessite d'activer la référence DSO OleDocument Properties Reader 2.0
    'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
    Dim DSO As DSOFile.OleDocumentProperties
 
   Set DSO = New DSOFile.OleDocumentProperties
 
    'Attention: Le fichier doit être préalablement fermé!
    DSO.Open sfilename:="C:\Temp\test excel\Test.xlsx"
 
    '
    MsgBox DSO.SummaryProperties.Author & vbLf & DSO.SummaryProperties.DateLastSaved
    '
    'Les autres propriétés:
    '
    ' ApplicationName ' Author ' ByteCount ' Category ' CharacterCount
    ' CharacterCountWithSpaces ' Comments ' Company ' DateCreated
    ' DateLastPrinted ' DateLastSaved ' HiddenSlideCount
    ' Keywords ' LastSavedBy ' LineCount ' Manager ' MultimediaClipCount
    ' NoteCount ' PageCount ' ParagraphCount ' PresentationFormat
    ' RevisionNumber ' SharedDocument ' SlideCount
    ' Subject ' Template ' Title ' TotalEditTime ' Version ' WordCount
    '
    DSO.Close
End Sub

Cordialement

[clementmarcotte]

Bonjour,

Ton Excel est-il à 64 bits ? Parce que DSO n'est pas compatible avec des Office à 64 bits.

Sinon avec l'excellent VB.net. Bien mieux que VBA dans des parcs hétéroclites d'Office. Années, 32 bits et 64 bits inclus.

[Jamacele]

Effectivement c'est un 64 bits