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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : lister fichiers en fonction de l'état d'une cellule

gagletor

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

Publicité

kiki29

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

gagletor

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Traitement de fichiers XML	[Javascript] popup blocké à cause de fonction confirm
[vba excel] fonction personalisé et lecture de la celulle	SQL fonction UNLIKE ???
VB/excel lire une partie de cellule,faire des comparaisons(sr 2 Feuil)	[asp.net 2] afficher ou non une zone en fonction d'un champ de bdd
Acces - Lister les groupes d'utilisateurs associer àun formulaire	{Résolu}Comparer deux colonnes dans deux fichiers différents
lister et compter les fichiers dans un dossier
Plus de sujets relatifs à : lister fichiers en fonction de l'état d'une cellule

Page générée en 0.054 secondes