Recherche:

Bonjour,

Tu peux essayer ce code:dans l'exemple, la valeur recherchée est 7. Le numéro de la ligne est récupéré dans la variable nolig.
bon courage
:D

valeur_cherchée = 7
...

Dim nomrepertoire As String
Dim nomfich As String

Dim nbfich As Long
Dim nbtraités As Long


Sub ouverture_un_à_un_desfichiers_dun_repertoire()
nbtraités = 0
Set fs = Application.FileSearch