Microsoft 365 Rechercher dans plusieurs fichiers

[Usine à gaz]

Bonjour à toutes et à tous

En voici une bonne pour ce début de semaine lol

Evidemment, je ne sais pas coder pour résoudre mon besoin !
Alors, je sollicite à nouveau nos chers ténors :

Voici le contexte de mon besoin :
NOUS TRAVAILLONS AVEC 3 FICHIERS ouverts généralement en même temps.

Les Professionnels que nous appelons sont difficiles à joindre.
Nous avons souvent des répondeurs et nous laissons un message.

Quand un Pro nous rappelle, NOUS DE DECROCHONS PAS.
Avant de rappeler nous vérifions à partir de quel fichier on a appelé pour savoir où nous en sommes avec le Pro.

Pour le rappeler il faut faire vite avant que le Pro ne soit à nouveau occupé.
Pour cela, il nous faut trouver très rapidement à partir de quel fichier nous avons appelé.

Nos 3 fichiers sont identiques et nous commençons toujours nos recherches par la feuille Appels,
Le besoin
Partant du principe que nos 3 fichiers sont généralement ouverts en même temps (mais ce n'est pas toujours le cas) :
Est-il possible si la recherche ne trouve rien dans la feuille active (Appels) du fichier actif que la recherche :
si pas trouvé que la recherche propose de chercher dans le fichier suivant (ouvert) ? :

Les noms des fichiers sont toujours les mêmes sauf la date qui change.
isiTel_lionel_fichier1 2022 03 14
isiTel_lionel_fichier2 2022 03 14
isiTel_lionel_fichier3 2022 03 14

Auriez-vous le bon code ?

Un grand merci par avance
Je continue à tâtonner .. et je joins un petit fichier test qui contient le code de la recherche.
Amicalement,
lionel

 

[TooFatBoy]

Et donc, il y a quoi dans Cible au moment où ça plante ???

 

[job75]

Bon puisqu'on tourne en rond, au début écris :

cible = CStr([B1])

et pour le test :

If CStr(tablo(i, j)) = cible Then

 

[Usine à gaz]

Re-Gérard, Marcel, le Forum

Qui a dit "on tourne en rond" ? lol

Gérard, c'est génial cette fois-ci et rapide avec ça :

Je vais tenter de comprendre ...

Merci Gérard, c'est nickel.
Vraiment génial.
Me connaissant, j'aurai peut-être 1 ou 2 questions à l'usage ... Mais champion et magique affaire résolue

Merci à Phill pour ton idée,
Merci Marcel pour m'avoir apporté ton aide,
lionel

 

[Usine à gaz]

J'ai testé le fichier du post #6 avec les 3 fichiers joints comprenant 3 tableaux 12 x 10 000.

Ma macro s'exécute en 1,4 seconde, c'est tout à fait acceptable.

Lionel tu tournes en rond, si tu es incapable d'adapter la macro pour tes 3 fichiers dépose-les ici.

Et si tu regardes la macro tu verras que la macro ouvre et ferme les 3 fichiers.

OUI et c'est super

 

[Usine à gaz]

Bonjour Gérard, Le Forum

J'ai testé hier soir le fichier code modifié qui fonctionne très bien.
J'ai 1 p'tite demande :
1 - Partant du principe que les 3 fichiers sont toujours ouverts, ce serait mieux que le code
- n'ouvre pas les fichiers,
- et ne les ferme pas,
car après la recherche d'un n°, je continue à travailler avec les fichiers,
Voici le code modifié qui fonctionne :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual

If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Dim cible, chemin$, x$, fichier, lig&, fich, wb As Workbook, w As Worksheet, tablo, ub%, i&, j%
cible = CStr([B1])
'cible = [B1].Value 'à adapter
chemin = ThisWorkbook.Path & "\" 'à adapter
x = Format(Date, " yyyy mm dd") & ".xlsb" 'à adapter au besoin
fichier = Array("isiTel_lionel_ExpRealty" & x, "isiTel_lionel_Global" & x, "isiTel_lionel_Mael" & x) 'à adapter
'isiTel_lionel_ExpRealty 2022 03 15
'isiTel_lionel_Global 2022 03 15
'isiTel_lionel_Mael 2022 03 15

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("D2:F" & Rows.Count).ClearContents 'RAZ
lig = 2
For Each fich In fichier
    If Dir(chemin & fich) = "" Then MsgBox "créez le fichier '" & fich & "' !", 48: Exit Sub
    Set wb = Workbooks.Open(chemin & fich)
    For Each w In wb.Worksheets
        tablo = w.Range("A1:A2", w.UsedRange) 'matrice, plus rapide, au moins 2 éléments
        ub = UBound(tablo, 2) 'nombre de colonnes
        For i = 1 To UBound(tablo)
            For j = 1 To ub
                If CStr(tablo(i, j)) = cible Then
                'If tablo(i, j) = cible Then
                    Cells(lig, 4) = wb.Name
                    Cells(lig, 5) = w.Name
                    Cells(lig, 6) = w.Cells(i, j).Address(0, 0)
                    lig = lig + 1
                End If
    Next j, i, w
    wb.Close 'ferme le fichier
Next fich
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim chemin$, wb As Workbook, lig&
chemin = ThisWorkbook.Path & "\" 'à adapter
lig = Target.Row
On Error Resume Next
Set wb = Workbooks.Open(chemin & Cells(lig, 4))
Application.Goto wb.Sheets(CStr(Cells(lig, 5))).Range(Cells(lig, 6))
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

J'ai bien vu où "ça ouvre" et où "ça ferme" mais quand j'ai neutralisé les 2 codes, le code ne fonctionne plus.
Encore merci Gérard,
lionel

 

[job75]

Bonjour Lionel,

Ce n'est pas une bonne idée de laisser les fichiers ouverts.

Car quand on double-clique pour aller voir un résultat que fait-on ensuite ?

L'utilisateur sera tenté de fermer le fichier concerné et pour une nouvelle recherche il faudra donc le rouvrir.

Ouvrir et fermer les fichiers ne prend pas beaucoup de temps, ce n'est donc pas gênant.

Pour moi cette discussion est terminée.

A+

 

[Usine à gaz]

Re-Gérard,
Ensuite ton code m'amène sur le bon fichier.
Il me faut laisser les fichiers ouverts :
1 - car je continue mes appels et les codes de mes fichiers doivent rester actifs,
2 - j'ai a rechercher d'autres n° selon les gens qui me rappellent et que je ne décroche pas.

Si c'est possible, ce serait super nickel

 

[job75]

Bon je joins ce fichier (2).

Il n'ouvre pas et ne ferme pas les 3 fichiers du jour.

Mais je pense que l'utilisateur en aura vite marre des messages d'alerte !

 

[Usine à gaz]

Merci Gérard
Je teste dès que j'ai un moment.
LOL pour ce fichier, le seul utilisateur, c'est moi

 

[ChTi160]

Bonjour Lionel
Bonjour le Fil ,le Forum

Lionel , qu'entends-tu par :

1 - car je continue mes appels et les codes de mes fichiers doivent rester actifs,
2 - j'ai a rechercher d'autres n° selon les gens qui me rappellent et que je ne décroche pas.

Une fois les fichiers ouverts pour la première fois
Des données sont récupérées en fonction de la cellule [B1] si j'ai bien compris !
Ensuite tu veux pouvoir modifier [B1] pour rechercher d'autre données, c'est ça ?
y'a t'il des choses qui sont modifiées dans les 3 Fichiers Source ?
Dans la tente
Bonne fin de journée
Jean marie

 

[TooFatBoy]

Moi, ce que je me demande, c'est ce que Usineàgaz veut dire par "les 3 fichiers sont ouverts", sachant que :

Ce sont des fichiers identiques mais pour 3 personnes différentes qui travaillent sur chaque fichier.

Est-ce que "les 3 fichiers sont ouverts" veut dire que chacun des trois fichiers est ouvert sur un PC différent ?

 

[ChTi160]

Re
Moi j'en suis resté à ces trois fichiers(ci-dessous) , mais sont-ce les Bons Lol

fichier = Array("isiTel_lionel_ExpRealty" & x, "isiTel_lionel_Global" & x, "isiTel_lionel_Mael" & x)

mais dans #16
On a trois fichier joins par Gérard.
Qui se nomme :
" isiTel_lionel_fichier1 2022 03 15 " " isiTel_lionel_fichier2 2022 03 15 "
" isiTel_lionel_fichier3 2022 03 15 "
Donc faut m'éclairer Lol
Jean marie

 

[job75]

Moi j'en suis resté à ces trois fichiers(ci-dessous) , mais sont-ce les Bons Lol
Donc faut m'éclairer Lol

Au post #35 on voit que Lionel a modifié les noms des 3 fichiers.

J'en ai tenu compte dans mon fichier (2) du post #38.

 

[ChTi160]

Merci Gérard
Bonne fin de journée
Jean marie

 

[Usine à gaz]

Bonjour Lionel
Bonjour le Fil ,le Forum

Lionel , qu'entends-tu par :

Une fois les fichiers ouverts pour la première fois
Des données sont récupérées en fonction de la cellule [B1] si j'ai bien compris !
Ensuite tu veux pouvoir modifier [B1] pour rechercher d'autre données, c'est ça ?
y'a t'il des choses qui sont modifiées dans les 3 Fichiers Source ?
Dans la tente
Bonne fin de journée
Jean marie

Bonjour Jean-Marie,

Ces 3 fichiers sont des fichiers sont mes fichiers de travail avec lesquels j'appelle des Prospects.
Quand je suis au téléphone avec un Prospect et qu'un autre me rappelle, pour aller vite et le rappeler dès que j'ai fini mon appel, j'ai besoin de trouver rapidement "vitesse grand V" qui m'a rappelé et sur quel fichier.

Il me faut faire "dare-dare" et au plus vite une recherche qui m'anème direct sur le numéro qui m'a rappelé.
Ensuite, je continue à travailler pour appeler d'autres Prospects sur mes fichiers.

Et OUI, il y a des choses modifiées selon chaque résultat de mes appels dans le fichier avec lequel j'appelle et c'est pour ça que les macros de mes 3 fichiers doivent rester actives.

En fait, la recherche doit juste me trouver le numéro qui m'a rappelé et m'amener sur le fichier qui contient le numéro et "SURTOUT" ne rien toucher d'autre ni entraver le fonctionnement, ni bloquer les macros de mes fichiers.

Suis-je clair ... lol pas sûr