Bonjour,
J'ai beau chercher de partout sur les Object Excel mais je ne trouve pas ..
Vioila j'ai une liste de fichier excel a laquel il faut que je cherche une chaine saisi dans une textBox.

J'ai le debut du code pour ouvrir chaque fichier et le refermer, mais pas le reste.....

Dim sFichier As String

'Définir le chemin
ChDir ("C:\Mon fichier\")

'Ouvrir tous les fichiers *.xls
sFichier = Dir("*.xls")
Do Until sFichier = ""
Workbooks.Open (sFichier)
'---> C'est ici que je coince.....
ActiveWorkbook.Close
sFichier = Dir()
Loop


Est ce que une âme charitable voudrait bien me venir en aide?

Merci par avance.

s'il vous plait je trouve pas......

voila où j'en suis :

For i = 1 To NbOccurence

Set Base = CreateObject("Excel.Application")

'Afficher l'appli excel
Base.Visible = False

'Ouvrir le fichier excel
Base.Workbooks.Open FileName:=URL

'---> c'est la que je veux qu'il cherche si le contenu de textbox est quelque part dans la feuille.




'fermeture du fichier excel
Base.ActiveWorkbook.Close False
Next

Voici ce qu'un François P.. dans un autre forum m' a donné la solution, cela peut servire à d'autre , Merci François !

Dim Base As Object

Set Base = CreateObject("Excel.Application")
Base.Visible = False

Dim MyWorkbook As Object
'Ouvrir le fichier excel "c:\toto\tata.xls"
Set MyWorkbook = Base.Workbooks.Open("c:\toto\tata.xls")

Dim MySheet As Object
Dim FindRange As Object

'Parcourt toutes les feuilles
For Each MySheet In MyWorkbook.Sheets
'Cherche dans chaque feuille le text contenu dans la textbox Text1
Set FindRange = MySheet.Cells.Find(Text1.Text)

'Si trouvé
If Not FindRange Is Nothing Then
'On affiche le résultat
MsgBox "Trouvé dans " & MyWorkbook.Name & ", feuille " &
MySheet.Name & ", à l'endroit" & FindRange.Address
End If
Next MySheet 'Feulle suivante du classeur

'Ferme le classeur
MyWorkbook.Close