Bonjour à tous,
Voici ma macro qui permet de rechercher du texte et de donner l'adresse de la cellule où se situe ce texte. Elle fonctionne très bien, sauf pour l'écriture des résultats dans un fichier texte.
Où se situe mon erreur ?
Merci par avance !
Voici ma macro qui permet de rechercher du texte et de donner l'adresse de la cellule où se situe ce texte. Elle fonctionne très bien, sauf pour l'écriture des résultats dans un fichier texte.
Où se situe mon erreur ?
Merci par avance !
Code:
Sub Search()
fichier_texte = "D:\resultat_recherche.txt"
Open fichier_texte For Output As #1
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
Range("A1").Select
With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbOKCancel, "Recherche")
If rep = vbCancel Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
valeur = Adresse_encours + feuille.Name
Print #1, valeur
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With
Next feuille
MsgBox "RECHERCHE TERMINEE"
Sheets("Feuil1").Select
Range("A1").Select
End Sub