Discussion :

[nawake]

Bonjour,

Je voudrais lire les informations contenu dans le champ commentaire de l'onglet "Résumé", j'ai donc utiliser ceci : (code prit ici)

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
28
29
30
Sub ListeProprietesFichiers_getDetailsOf()
    'source:
    'http://www.microsoft.com/resources/documentation/windows/2000/server/
    'scriptguide/en-us/sas_fil_lunl.mspx
    '
    'Nécessite d'activer la référence Microsoft Shell Controls and Automation
    '
    Dim objShell As Shell32.Shell
    Dim strFileName As Shell32.FolderItem
    Dim objFolder As Shell32.Folder
    Dim Resultat As String, Reponse As String
    Dim i As Byte
 
    Set objShell = CreateObject("Shell.Application")
    'Répertoire cible
    Set objFolder = objShell.Namespace("P:\P\Dossier test en VBA\Copie de Nouveau dossier")
 
    'boucle sur tous les elements du repertoire
    For Each strFileName In objFolder.Items
 
        'Pour que les dosssiers ne soient pas pris en comptes
        If strFileName.IsFolder = False Then
            Resultat = ""
            If objFolder.GetDetailsOf(strFileName, 14) <> "" Then _
                Resultat = Resultat & objFolder.GetDetailsOf(objFolder.Items, 14) _
                & ":  " & objFolder.GetDetailsOf(strFileName, 14) & vbLf
            Reponse = MsgBox(Resultat & vbLf & vbLf & "Voulez vous continuer?", vbYesNo)
        End If
    Next
End Sub

Je récupère bien le champ commentaire mais que les 258 premiers caractères.
(Dans l'affichage de l'onglet "Résumé", on peut le voir en mode "Avancé" et "Simple" dans le premier on voit la totalité du contenu "Commentaire", dans le mode "Simple" on voit que les 258 premiers caractères.)

Etant donné que les champs commentaires que je doit lire font généralement du 600 + caractères, je voudrais savoir si il y a un autre moyen de lire cette information complètement sans ouvrir le fichier Excel.

Merci

[ouskel'n'or]

Ne peux-tu pas n'afficher que les propriétés que tu souhaites ?
Pour ma part, j'ai ça que j'ai dû récupérer sur le forum...

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
Sub PropriétéFichier(NomFich as string)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(NomFich)
MsgBox "Type: " & objFile.Type _
    & vbCr & "Date created: " & objFile.DateCreated _
    & vbCr & "Date last accessed: " & objFile.DateLastAccessed _
    & vbCr & "Date last modified: " & objFile.DateLastModified _
    & vbCr & "Drive: " & objFile.Drive _
    & vbCr & "Name: " & objFile.Name _
    & vbCr & "Parent folder: " & objFile.ParentFolder _
    & vbCr & "Path: " & objFile.Path _
    & vbCr & "Short name: " & objFile.ShortName _
    & vbCr & "Short path: " & objFile.ShortPath _
    & vbCr & "Size: " & objFile.Size
End Sub

A adapter (!)

[nawake]

Merci pour cette réponse rapide, malheureusement ce n'est pas ce qu'il me faut.

Pour être plus claire, une autre macro écrit des informations dans le champ "Commentaire" (d'environ 500-700 caractères) du fichier Excel (macro que je ne gère pas) et je doit créer une macro qui lit les champs commentaires de tous ces fichiers contenus dans un répertoire. Je sais lire le champ commentaire en ouvrant le fichier, mais j'aimerais lire le champ sans l'ouverture du fichier pour avoir un temps de traitement beaucoup plus court.

Si vous savez comment on peut obtenir la totalité du texte contenu dans le champ Commentaire sans ouvrir le fichier ca serait cool

[SilkyRoad]

bonjour

As tu essayé avec la bibliothèque DSO ?

http://silkyroad.developpez.com/VBA/...lasseurs/#LIII


bonne journée
michel

[ouskel'n'or]

Ok. J'ai testé ton code.
Déjà, corrige cette ligne

Code :

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

1
2
If MsgBox(Resultat & vbCr & vbCr & _
     "Voulez vous continuer?", vbYesNo) = vbNo Then Exit For

Ensuite, si tu mets Resultat = "", tu n'as pas à mettre Resultat = resultat & ..... Ici :

Code :

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

1
2
3
4
            Resultat = ""
            If objFolder.GetDetailsOf(strFileName, 14) <> "" Then _
                Resultat = objFolder.GetDetailsOf(objFolder.Items, 14) _
                & ":  " & vbCr & objFolder.GetDetailsOf(strFileName, 14) & vbCr

Ceci pour le détail.
Tu as donc un nombre de caractères qui dépasse la capacité d'un Msgbox.
Tu peux utiliser une zone de texte. Pour ça, jète un oeil à l'excellent tutoriel réalisé par ce non moins excellent Fring ici
Tu peux le créer à la demande et le masquer ou le supprimer après usage

[nawake]

bonjour

As tu essayé avec la bibliothèque DSO ?

http://silkyroad.developpez.com/VBA/...lasseurs/#LIII


bonne journée
michel

J'avais vu cette partie mais je n'ai pas le droit d'installer quoique ce soit sur le pc (restriction réseau de la boîte), et qu'il n'est pas installé sur le pc, je n'ai pas pu essayer.

Merci quand même

Ps : je vais le faire en ouvrant les fichiers pas grave, je vais juste mettre dans la notice "Cliquez sur le bouton et allez chercher un p'tit café."