Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Rechercher dans plusieurs fichiers

Usine à gaz

XLDnaute Barbatruc
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
 

Pièces jointes

  • Recherche_classeurs.xlsm
    33.5 KB · Affichages: 23
Dernière édition:
Solution
Bonjour Lionel, le forum,

Je disais que ce fil était sans fin !!!

Pour traiter plusieurs feuilles il suffit d'ajouter une boucle sur les noms des feuilles :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Dim cible$, chemin$, fichier, feuille, plage As Range, lig&, i%, col As Range, x$, n&
cible = Right([B1], 9) 'à adapter
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Dir(chemin & "isiTel*.xlsb") '1er fichier du dossier
feuille = Array("Appels", "Sextant", "Dr House") 'liste des feuilles où l'on recherche
Set plage = [D1:G10000] 'référence de la plage de recherche à adapter
lig = 2
Application.ScreenUpdating = False
Application.EnableEvents = False
While fichier <> ""...

ChTi160

XLDnaute Barbatruc
Re

Suis-je clair ... lol
Oui!
pour éviter de tenter de réouvrir les fichiers , peut être vérifier s'ils sont déjà ouverts !
et ainsi continué à travailler dessus !
un lien : Fichier Open Or Not
à adapter peut être !
oupss Autre question
Tes trois fichiers ne contiennent ils, que des numéros à rappeler ou alors ces numéros à rappeler ont-ils un format ou une particularité qui permettrait de tous les récupérer en même temps que leur emplacement ?
Jean marie
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Ils sont obligatoirement ouverts en 1er
 

ChTi160

XLDnaute Barbatruc
re
J'avais bien compris, mais il était question soit de les refermer et réouvrir, tu as décidé si j'ai bien compris de les laisser ouvert d'où ma question.
car les macros d'ouverture se lance dès la recherche !
Ou alors je n'ai rien compris Lol (ce qui est possible lol)
Bonne fin de journée
Jean marie
 

Usine à gaz

XLDnaute Barbatruc
"Tes trois fichiers ne contiennent ils, que des numéros à rappeler ou alors ces numéros à rappeler ont-ils un format ou une particularité qui permettrait de tous les récupérer en même temps que leur emplacement ?"

Mes fichiers contiennent bien d'autres colonnes et informations et d'autres feuilles en plus de la feuille "Appels". et "bourrés" de codes "Usine à Gaz oblige" lol
Surtout pas récupérer tous les numéros mais uniquement atteindre le numéro qui m'a rappelé
 

Usine à gaz

XLDnaute Barbatruc
NON NON ils sont ouverts en 1er et il ne faut surtout pas les fermer lol
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…