lister des fichiers en fontion état cellules

bonsoir gagletor

petite question :


dans les fichiers à scanner, y'a t'il plusieurs onglets pouvant contenir la donnée en M1.

ou il n'y as qu'un onglet par fichier, et dans ce cas merci de m'indiquer le nom.

salut

Bonjour Hervé, bonjour à tous,

hervé merci de te pencher sur mon problème..

Il n'y a qu'une seule feuille où figure la donnée, il s'agit de la feuil1 cellule M1

Merci encore

A bientôt

bonjour gagletor

désolé pour la réponse tardive :unsure:

voici ce que fait ce code :

-scanne les fichiers du répertoire ou se trouve le fichier de base.
-stock dans un tableau variant une formule du type :='C:\\\\\\\\Aherve\\\\\\\\test\\\\\\\\[Classeur6.xls]Feuil1'!M1 en colonne 1 du tableau
- stock en colonne 2 le nom du fichier scanné
- crée une feuille
- copie dans la nouvelle feuille le tableau
- scanne la colonne 1 de la feuille
- repère les 'Outil usé'
- renvoi dans une listbox les noms des fichiers.
- supprime la feuille


voici ce que ne fait pas ce code :

- le café
- la blanquette de veau
- faire fortune au loto
- etc...

Private Sub CommandButton1_Click()
'd'apres un code de MichelXLD page WIKI de Excel-downloads
Dim chemin As String, rep As String, fichier As String
Dim tablo()
Dim x As Integer
Dim c As Range

Application.ScreenUpdating = False
Application.DisplayAlerts = False


chemin = ActiveWorkbook.Path & '\\\\\\\\' 'a adapter
rep = Dir(chemin)

While Not rep = ''
        If Not rep = ThisWorkbook.Name Then
                x = x + 1
                ReDim Preserve tablo(1 To 2, 1 To x)
                fichier = chemin & '[' & rep & ']'
                tablo(1, x) = '='' & fichier & 'Feuil1'!M1'
                tablo(2, x) = rep
        End If
        rep = Dir
Wend

With Sheets.Add
        .Range('A1').Resize(UBound(tablo, 2), UBound(tablo, 1)) = Application.Transpose(tablo)
        For Each c In .Range('a1:a' & .Range('a65536').End(xlUp).Row)
                If c = 'Outil usé' Then
                        ListBox1.AddItem c.Offset(0, 1)
                End If
        Next c
        .Delete
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Cliquez pour agrandir...

ton ficier de base doit se trouver dans le mem répertoire que tes fichiers à scanner, sinon adapte la variable chemin à ta config.

salut

Bonjour Hervé,

Désolé pour ma réponse tardive également, je ne diposais plus du net lors de ces trois dernière semaines.

Merci pour le code, je vais le tester de ce pas... Je te tiendrai au jus 😉

Bonne journée et encore merci

gregory