lister fichiers en fonction de l'état d'une cellule

lister fichiers en fonction de l'état d'une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 01-06-2006 à 15:51:02    

Bonjour à tous,  
 
Je bloque sur la création d'une macro.  
 
J'ai des feuilles excel dans un dossier, qui servent de cartes de contrôles dans mon entreprise.  
Lorsqu'un outils de fabrication est défectueux, je met dans le cellule M1 "Outil usé".  
 
Toutes ces cartes sont gérées par un moteur de recherche que j'ai fais sous excel, grâce auquel je peux faire la recherche d'uine carte spécifique et l'ouvrir à partir d'une listbox.  
 
Maintenant je voudrais que lors d'un appuie sur un bouton de mon moteur de recherche, excel scan tous les fichiers de mon répertoire sans les ouvrirs, et me mette dans une listbox les feuilles dont la cellule M1 est noté "Outil usé".  
 
J'espère que mes explications sont assez clair, sinon je peux envoyer mon fichier si besoin.  
 
Merci de votre aide

Reply

Marsh Posté le 01-06-2006 à 15:51:02   

Reply

Marsh Posté le 01-06-2006 à 17:45:42    

Vas voir http://forum.hardware.fr/hardwaref [...] 0232-1.htm
et ma réponse postée le 15-05-2006 à 21:13:49
qui sera à adapter pour lire la cellule M1
 
et utilise


Sub ListeFichiersTableau()
Dim NomFichier As String
Dim Dossier As String, NbFichiers As Long
Dim Tableau() As String, i As Integer
 
    ' Dossier de test à modifier
    Dossier = "C:\Transfert\*.*"
    NomFichier = Dir(Dossier)
    Cells.Clear
    Erase Tableau
    NbFichiers = 0
    Do While Len(NomFichier) > 0
        NbFichiers = NbFichiers + 1
        ReDim Preserve Tableau(1 To NbFichiers)
        Tableau(NbFichiers) = NomFichier
        NomFichier = Dir()
    Loop
 
    If NbFichiers > 0 Then
        For i = 1 To UBound(Tableau)
            Cells(i , 1) = Tableau(i)
        Next
    End If
End Sub


Message édité par kiki29 le 03-06-2006 à 21:56:33
Reply

Marsh Posté le 02-06-2006 à 10:25:57    

Bonjour,
 
Merci kiki29 je vais aller voir, d'autre part merci pour les fihciers que tu m'as fais parvenir, je les test en ce moment même.  
 
Je te tiens au courant
 
Encore merci
 
A bientôt

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed