Discussion :

[Esmax666]

Bonjour,

Je possède plusieurs fichier Excel et je voudrais faire une recherche sur l'ensemble des fichier excel si il possede dans l'onglet "feuille2" "Case A2" l'information "Version3"
Le fichier sont ranger de cette facon:
C:/Packfichierexcel/Pack1/Excel12/Excel12.XLS
C:/Packfichierexcel/Pack1/Excel13/Excel13.XLS
C:/Packfichierexcel/Pack2/Excel16/Excel16.XLS

Donc je me demandais si il etait possible de creer un fichier excel que je pourrais placer dans "C:/Packfichierexcel" et qui va me regarder sur l'ensemble des dossier les fichier excel qui existe et ensuite verifier la version et ensuite doncmarquer dans une tableau la version de la case A2 avec le nom du fichier excel sur un tableau?

c'est possible?

Merci

[Krovax]

Réponse oui c'est possible.

Le plus simple est d'ouvrir les différent fichier (si tu as leurs nom et l'endroit ou ils sons ce sera facile)
commande

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
 
Dim wb As Workbook
Set wb = Workbooks.Open (Filename:= "C:/Packfichierexcel/Pack1/Excel12/Excel12.XLS")
 
if wb.worksheets("Feuil2").range("A2") <>"Version3" then
Msgbox "Le classeur " & wb.name & " n'est pas a jour.", vbokonly
end if
wb.close false 'ferme sans enregistrer
 
Set wb = Workbooks.Open (Filename:= "C:/Packfichierexcel/Pack1/Excel13/Excel12.XLS")
 
if wb.worksheets("Feuil2").range("A2") <>"Version3" then
Msgbox "Le classeur " & wb.name & " n'est pas a jour.", vbokonly
end if
wb.close false 'ferme sans enregistrer
'etc

Après pour travailler sur tous les classeur d'un dossier tu peux utiliser chdir (je croi que c'est ca mais fait une recherche dans le forum et la faq le sujet a souvent été traité)

[Esmax666]

j'ai deja fais une recherche et je viens de trouvé ca pour debut de code:

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 Recherche()
With Application.FileSearch
NewSearch
RefreshScopes
LookIn = "C:/Packfichierexcel"
FileName = "*.xls"
SearchSubFolders = True
Execute
 
' Et voila la boucle pour parcourir le dossier mais je sais pas comment m'en servir:
    For Ctr = 1 To .FoundFiles.Count
      Cells(Ctr, 1) = .FoundFiles(Ctr)
    Next
  End With
End Sub

Sinon il faudrait se servir de ce type de code pour faire la recherche des adresses?

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
Sub LireRepertoir2()
'lire les fichiers d'un répertoir
Dim fs, F, f1, S, sf
Dim Ext As String, Chemin As String
    Chemin = "E:\" 'adapter au répertoir où sont situés les fichiers.
    Ext = "xls"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    For Each f1 In sf
        If Right(f1.Name, 3) = Ext Then 'pour être certain que c'est un bon fichier
            'ici tester le nom
            'et en faire ce que l'ont veux
        End If
    Next
End Sub

j'ai egalement trouvé ce code pour liste les adresse:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ListeFichiers2()
repertoire = ThisWorkbook.Path    ' adapter
i = 2
nf = Dir(repertoire & "\*.xls")         ' premier fichier
Do While nf ""
    Cells(i, 1) = nf
    nf = Dir                                     ' suivant
    i = i + 1
Loop
End Sub

Mais excel mais dit que cela est faut ici:

Do While nf ""

Avez vous vue deja ce code que j'ai mis en 1er il me semble adapter pour la fonction que je souhaite realiser non?

[Krovax]

essaye

Code :

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

nf <>""

[Esmax666]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ListeFichiers2()
repertoire = ThisWorkbook.Path    ' adapter
i = 2
nf = Dir(repertoire & "\*.xls")         ' premier fichier
Do While nf <> ""
    Cells(i, 1) = nf
    nf = Dir                                     ' suivant
    i = i + 1
Loop
End Sub

ok le code marche maintenant mais il ne fais la recherche que dans un dossier, j'aimerais qu'il fasse également la recherche dans les sous dossier, comment faire? car les fichier sont stoké sur differents sous dossier

merci

[Krovax]

Pour lister le contenue d'une répertoire et des sous répertoire
http://excel.developpez.com/faq/inde...riptingRuntime