recherche de fichiers image avec date de cliché

Essaie ceci :
'------------------------------------
Sub test()
Dim A As Integer, i As Integer, Nb As Integer
Dim Arr(), T()
With Application.FileSearch
.NewSearch
'--------------------------------
'C'est 4 items sont à définir selon ta recherche
.FileType = msoFileTypePhotoDrawFiles
.Filename = "*.bmp"
'Fouille dans les sous-répertoires ou non
.SearchSubFolders = False
'Répertoire où effectuer la fouille ?
.LookIn = "c:"
'----------------------------------
If .Execute > 0 Then
Nb = .FoundFiles.Count
For A = 1 To Nb
n = .FoundFiles(A)
ReDim Preserve Arr(i)
ReDim Preserve T(i)
Arr(i) = n
T(i) = VBA.FileSystem.FileDateTime(n)
i = i + 1
Next
Range("A1") = "Chemin et Nom du fichier"
Range("B1") = "Date de création du fichier"
Range("A2").Resize(UBound(Arr) + 1) = Arr
Range("B2").Resize(UBound(T) + 1) = T
Range("A1:B1").EntireColumn.AutoFit
End If
End With
End Sub
'------------------------------------








"Sylviane" <Sylviane@discussions.microsoft.com> a écrit dans le message de news:
43A0EF67-AD94-4931-ABB9-E6BB849BB645@microsoft.com...
Bonjour à tous,
Lorsque j'emploie la fonction recherche de windows XP PRO sp2, j'obtiens ce
que je cherche, c'est à dire les fichiers images présents sur mon PC ainsi
que leur date de cliché et leur emplacement. Malheureusement, je ne peux pas
enregistrer ce résultat dans un fichier que je pourrais exploiter avec Acces
ou Excel. Le copier coller ne marche pas non plus (j'en ai des milliers de
photos). Est-il possible de le faire avec une macro vba (! j'ai besoin de la
date de cliché)

Merci au génie qui pourra m'aider

Sylviane

Bonsoir,

Pour execution sur une feuille vierge (valable pour XP)
La date de prise du cliché se trouvera en colonne Z
ATTENTION aux indications il faut COCHER
dans Outils Références
MS Shell Controls and Automation
dans le code ci dessous
Indiquer dans la variable Chemin
le chemin du répertoire d'images sur une seule ligne.

Cdlt.

lSteph

'''''***********dans un module standard ********

Sub LireInfosJpg()
'Dans outil réferences cocher Microsoft Shell Controls and Automation

Dim Chemin As String
Dim myShell As Shell
Dim myFolder As Folder
Dim myFile As FolderItem
Dim i As Byte, f As String, lig As Long

'Indiquer le chemin du répertoire
Chemin = "C:Documents and SettingsStéphaneMes documentsMes
images90606NIKON"

Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(Chemin)
Set myFile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myFile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myFile, i)
Next
f = Dir(Chemin & "*.jpg")
Do While Len(f) > 0
Set myFile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myFile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myFile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myFile = Nothing
End Sub
'''''***********


Sylviane a pensé très fort :

Bonjour à tous,
Lorsque j'emploie la fonction recherche de windows XP PRO sp2, j'obtiens ce
que je cherche, c'est à dire les fichiers images présents sur mon PC ainsi
que leur date de cliché et leur emplacement. Malheureusement, je ne peux pas
enregistrer ce résultat dans un fichier que je pourrais exploiter avec Acces
ou Excel. Le copier coller ne marche pas non plus (j'en ai des milliers de
photos). Est-il possible de le faire avec une macro vba (! j'ai besoin de la
date de cliché)

Merci au génie qui pourra m'aider

Sylviane

--
- -