bonjour Cletic , Bonjour Michel ( cher ami et homonyme )
chez moi la procedure initiale fonctionne bien ( ci-dessous la version simplifiée pour mes tests )
Sub OUVRIRFICHIER1()
Dim Chemin As String
Dim t As byte
Dim CLASSEURS As Workbook
Dim Trouve As Range
Chemin = "C:\Documents and Settings\michel\dossier\general\excel\leFichier.xls"
Set CLASSEURS = GetObject(Chemin)
For t = 1 To 3
With CLASSEURS.Sheets("Feuil" & t).Range("B10:H20")
Set Trouve = .Find("le forum xld")
If Not Trouve Is Nothing Then MsgBox "ça marche ! "
End With
Next t
CLASSEURS.Close 'ne pas oublier de fermer le classeur
End Sub
après quelques tests , le seul cas de figure ou cela bloque , est quand le nom de la feuille ne correspond pas à ce qui est défini dans la macro :
dans l'exemple les feuilles doivent etre nommées Feuil1 , Feuil2 et Feuil3
j'espere que cela pourra t'aider
bonne soiree
MichelXld