ephores
Messages postés123Date d'inscriptionlundi 30 juin 2003StatutMembreDernière intervention 5 juin 2007
-
23 mai 2004 à 18:51
ephores
Messages postés123Date d'inscriptionlundi 30 juin 2003StatutMembreDernière intervention 5 juin 2007
-
27 mai 2004 à 08:30
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?
ephores
Messages postés123Date d'inscriptionlundi 30 juin 2003StatutMembreDernière intervention 5 juin 2007 27 mai 2004 à 08:30
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