Problème avec macro de recherche sur un repertoire
woow74
Messages postés39Date d'inscriptionvendredi 18 février 2011StatutMembreDernière intervention 1 mars 2011
-
25 févr. 2011 à 10:09
4u4me4us
Messages postés780Date d'inscriptionlundi 22 janvier 2007StatutMembreDernière intervention30 octobre 2013
-
1 mars 2011 à 17:00
Bonjour tout le monde , bonjour le forum
Pour finir mon travail , je vous sollicite une dernière fois sur un point auquel je ne trouve pas de solution...
j'ai une autre macro qui fait une recherche de données sur un fichier txt , comment je peux faire pour lui demander la même recherche mais cette fois sur un repertoire?
Sub test()
Workbooks.OpenText Filename:= _
"D:\Users\ysebbarh.EMEA\Desktop\test_macro\RAF1.txt"
Workbooks.OpenText Filename:= _
"D:\Users\ysebbarh.EMEA\Desktop\test_macro\NIR1.txt"
Columns("A:A").Select
Selection.NumberFormat = "0"
Sheets.Add
ActiveSheet.Name = "Resultat"
i = 1
For j = 2 To 16
valeur = Workbooks("NIR1.txt").Sheets("NIR1").Cells(j, 1)
Workbooks("RAF1.txt").Activate
Set celluletrouvee = Range("A:A").Find(valeur)
ligne = celluletrouvee.Row
Do
Workbooks("NIR1.txt").Sheets("Resultat").Cells(i, 1) = Workbooks("RAF1.txt").Sheets("RAF1").Cells(ligne, 1)
i = i + 1
ligne = ligne + 1
Loop Until (Left(Workbooks("RAF1.txt").Sheets("RAF1").Cells(ligne, 1), 14)) = "S30.G01.00.001"
Next
End
End Sub
Pour vous aider à mieux comprendre mon problème ,la macro prend des données du fichier NIR1.txt et fait la recerche sur le fichier (RAF1.txt).Ce que je n'arrive pas à faire ( même avec plusieurs essaies), est que je ne sais pas modifier les lignes de codes ( là où à chaque fois il ya RAF1.txt) afin que la macro fasse la recherche sur un repertoire et non pas sur un seul fichier chose qu'elle fait très bien d'ailleurs .
Merci à vous tous
A voir également:
Problème avec macro de recherche sur un repertoire
woow74
Messages postés39Date d'inscriptionvendredi 18 février 2011StatutMembreDernière intervention 1 mars 2011 1 mars 2011 à 16:18
je t'envoi en mail perso tous les docs et tu verra ( si tu as un peu de temps biensûr , je sais que je t'en demande trop mais si tu me demande de l'aide sa sera avec grand plaisir quand je saurais faire)
enfait quand il fait la première boucle sur le premier fichier sa marche mais après je ne comprend pas le problème pour les autres fichiers.
Tu es d'accord pour que je t'envoi le tout en mail perso? :)