cherche un fichier Excel selon chiffre d'une cellule

[TheProdigy]

Bonjour,

Je voudrais savoir s'il y a une possibilité de chercher un fichier dont je ne me rappelle pas du nom. Mais j'ai seulement des indices à savoir un montant dans une cellule: 2280,26.
J'ai essayé démarre rechercher. Mais ça ne marche pas.

Merci.

 

[Lebonetletruand]

Re : cherche un fichier Excel selon chiffre d'une cellule

Bonjour,

J'ai fait un essai concluant en recherchant par Démarrer/Rechercher/Tous les fichiers et tous les dossiers/Un mot ou une phrase dans le fichier.

Je pense que la recherche peut être longue mais à essayer chez toi quand même, à part le temps, ça ne coute pas grand chose (sourire)

Bonne journée

 

[TheProdigy]

Re : cherche un fichier Excel selon chiffre d'une cellule

Re.

ça veut dire que cela fonctionne?

Merci.

 

[Lebonetletruand]

Re : cherche un fichier Excel selon chiffre d'une cellule

Oui "essai concluant" veut dire que ça a fonctionné (sourire)

 

[TheProdigy]

Re : cherche un fichier Excel selon chiffre d'une cellule

J'ai lancé la recherche.

Je te mettrai au courant Lebonetletruand.

Merci à tous.

 

[Softmama]

Re : cherche un fichier Excel selon chiffre d'une cellule

Bonjour à tous,

Si ton fichier est en .xls et que tu as une idée du Répertoire ou Lecteur où chercher, lance cette macro OnyGo, à placer dans un module classique :

[COLOR="RoyalBlue"]Sub OnyGo()[/COLOR]
[COLOR="SeaGreen"]'**************** Répertoire ou lecteur où chercher **********[/COLOR]
Répertoire = "E:\XL" [COLOR="SeaGreen"]' A adapter[/COLOR]
scan Répertoire
[COLOR="RoyalBlue"]End Sub[/COLOR]

[COLOR="RoyalBlue"]
Sub scan(Répertoire)[/COLOR]
    Dim Fso As Scripting.FileSystemObject
    Dim RépSource As Scripting.Folder
    Dim ValCherchée
    Dim SousRép As Scripting.Folder
    Dim Fichier As Scripting.File
    
ValCherchée = [COLOR="Red"]2280.26[/COLOR] [COLOR="SeaGreen"]'A adapter[/COLOR]

    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set RépSource = Fso.GetFolder(Répertoire)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    For Each Fichier In RépSource.Files
      If Right$(Fichier, 4) = ".xls" Then [COLOR="SeaGreen"]' Recherche des fichiers .xls[/COLOR]
        Workbooks.Open Filename:=Répertoire & "\" & Fichier.Name [COLOR="SeaGreen"]'ouverture du fichier[/COLOR]
        For t = 1 To ActiveWorkbook.Sheets.Count [COLOR="SeaGreen"]' Scan ds chaque onglet[/COLOR]
            If Not ActiveWorkbook.Sheets(t).Cells.Find(ValCherchée) Is Nothing Then
                ActiveWorkbook.Sheets(t).Cells.Find(ValCherchée).Select
                Application.ScreenUpdating = True
                MsgBox "Trouvé!"
                Exit Sub
            End If
        Next
        ActiveWorkbook.Close False
      End If
    Next Fichier
    [COLOR="SeaGreen"]'--- Appel récursif pour lister les fichier dans les sous-répertoires ---.[/COLOR]
    For Each SousRép In RépSource.subfolders
        scan SousRép.Path
    Next SousRép
[COLOR="RoyalBlue"]End Sub[/COLOR]

 

[MJ13]

Re : cherche un fichier Excel selon chiffre d'une cellule

Bonjour à tous


Sinon,un petit coup de Copernic Destop Search (ou autre assistant de recherche, voir chez Microsoft ou Google) peut permettre de trouver un mot en quelques secondes.