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

 

[Phil69970]

Bonjour Lionel

Perso au vu de ton énoncé je raisonnerais à l'envers de toi c'est à dire :

A chaque fois que tu as un repondeur et que tu laisses un message.

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

Donc quand tu laisses un message un clic sur un bouton copie dans un autre fichier le nom du contact et le
nom du fichier avec un tri alpha pour avoir ton contact dans l'ordre.
Quand il rappelle tu regardes le "fichier des absents" et tu auras le nom du contact et de quel fichier il vient d’être appelé. Il te resteras à le supprimé de la liste des absents pour avoir ton fichier à jour.

Si je ne t'ai pas perdu en route ..... voici mon point de vue.

@Phil69970

 

[Usine à gaz]

Bjr Phil
"Si je ne t'ai pas perdu en route ..... voici mon point de vue."

Hé ben non, tu ne m'as pas perdu et je trouve l'idée géniale .
Mais Bon sang, je n'y avais pas pensé
Il faudrait dans ce cas, basculer dans un nouveau classeur.
Je vais tenter de le faire ... mais lol, si c'est facile pour toi ......
lionel

 

[job75]

Bonsoir Lionel, Phil69970,

J'ai 2 questions :

- dans chacun des 3 fichiers combien de lignes et colonnes sont occupées au maximum ?

- les 3 fichiers sont toujours ceux de la date du jour ?

A+

 

[Usine à gaz]

Bonsoir Gérard,

Les fichiers peuvent avoir généralement maxi 10 000 lignes.
Effectivement, ceux qui sont ouverts sont toujours ceux du jour.

lionel

 

[job75]

Regarde ce que donne ce fichier avec ces macros :

Private Sub Worksheet_Change(ByVal Target As Range)
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 = [B1].Value 'à adapter
chemin = ThisWorkbook.Path & "\" 'à adapter
x = Format(Date, " yyyy mm dd") & ".xlsx" 'à adapter au besoin
fichier = Array("isiTel_lionel_fichier1" & x, "isiTel_lionel_fichier2" & x, "isiTel_lionel_fichier3" & x) 'à adapter
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 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
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
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))
End Sub

J'ai supposé que l'extension des 3 fichiers est .xlsx, modifie-la au besoin.

Bonne nuit.

 

[Usine à gaz]

Merci Gérard

Je teste demain matin et je reviendrai te dire.
Bonne nuit à toi aussi ,
lionel

 

[Usine à gaz]

Bonjour Phil69970, Bonjour Gérard, le Forum

@Gérard : Pas sûr d'avoir tout compris lol (comme d'hab)

- Je mets ton fichier et mes fichiers dans le même dossier,
- J'ouvre le tout et
1 - Je colle (ou je saisi) mon n° à trouver en B1,
2 - Il me demande

3 - clic ok

Il ne se passe rien.
Ai-je zappé un truc ?
lionel

 

[job75]

Bonjour Lionel, le forum,

Le message d'alerte est clair, agis en conséquence !

A+

 

[Usine à gaz]

Bonjour Gérard
Merci pour le retour ...
Mais "Le message d'alerte est clair, agis en conséquence !"
Pas compris ce qu'il faut faire, à part cliquer sur ok .... lol je suis tjrs aussi nul

 

[TooFatBoy]

Bonjour,

Si tu cliques sur OK et que tu as toujours le même message qui apparait, c'est probablement parce que, contrairement à ce que le message peut éventuellement laisser croire, le programme n'a pas créé le fichier quand tu as cliqué sur "OK", et donc il faut que tu le crées toi-même manuellement.

ps : le message dit "créez". C'est un peu comme un ordre qu'il te donne.
S'il disait "créer", il le ferait probablement lui-même quand tu cliques sur "OK".

 

[job75]

La macro ne crée aucun fichier, si les fichiers du jour n'existent pas il faut en effet les créer manuellement.

 

[Usine à gaz]

Les fichiers existent bien et sont bien ouverts dans le même dossier

Je ne comprends pas pourquoi il me pose la question ?

 

[Usine à gaz]

Bonjour,

Si tu cliques sur OK et que tu as toujours le même message qui apparait, c'est probablement parce que, contrairement à ce que le message peut éventuellement laisser croire, le programme n'a pas créé le fichier quand tu as cliqué sur "OK", et donc il faut que tu le crées toi-même manuellement.

ps : le message dit "créez". C'est un peu comme un ordre qu'il te donne.
S'il disait "créer", il le ferait probablement lui-même quand tu cliques sur "OK".

Bjr Marcel
Voire ma réponse #post 13

 

[TooFatBoy]

T'es sûr que le fichier existe et qu'il a bien l'extension xlsX ??? J'ai comme un doute.