XL 2021 Rechercher dans plusieurs fichiers

Usine à gaz · 17 Janvier 2024

Bonjour à toutes et à tous

En mars 2022, j'avais posté sur ce sujet et en août 2022, j'avais retenu la proposition (#Post144) de job75 (Gérard) qui fonctionne toujours nikel bien.

Microsoft 365 - Rechercher dans plusieurs fichiers

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...

excel-downloads.com

Merci à tous les intervenants et à Gérard

Mon besoin ayant évolué et je reviens sur le sujet...
Mon besoin d'aujourd'hui
- Quand quelqu'un m'appelle, c'est toujours que je l'ai appelé auparavant et je dois le rappeler au plus vite pendant qu'il est dispo.
Il me faut savoir, avant de le rappeler, ce j'ai mis dans les commentaires de mon appel précédent pour savoir comment je dois lui parler,

- Pour le savoir, il me faut ouvrir le classeur à l'aide du code de Gérard. Mais mon fichier est gros et l'ouverture est un peu longue.

Le code de Gérard est quasi instantané et me permettrait de rappeler presque immédiatement
- Il me faudrait dans le classeur qui contient le code de Gérard avoir les infos suivantes :
- (Le nom du réseau (col A du classeur de travail) - le nom de l'agent (col B du classeur de travail) - et mes commentaires (col L du classeur de travail)

Ma demande
J'ai tenté de modifier le code mais jusqu'à maintent, je n'ai pas réussi.

Pourriez-vous m'aider ? (lol ça m'arrangerait bien )
En cas, je joins les troix classeurs
- Le classeur avec le code de gérard qui contient les n° tests à chercher en feuille "n° à chercher"
- N° à coller "simple clic" en "M1"
- 2 classeurs de travail test (isiTel_Lionel Sextant 2024 01 17 et isiTel_Lionel Sextant2 2024 01 17 e )

Un très grand merci pour ce code qui me permettrait de rappeler au plus vite.
Entre temps, je continue à bidouiller...

job75 · 26 Janvier 2024

Bonjour Lionel, le forum,

Usine à gaz à dit:
- Est-il possible que ça fonctionne aussi si classeurs ouverts ?

C'est une très bonne question.

En effet si le classeur .xlsx est ouvert ExecuteExcel4Macro crée un bug quand la feuille n'existe pas.

Je ne comprends pas la raison de ce bug mais pour y remédier utilise les fichiers joints avec :

VB:

            On Error Resume Next
            If IsError(ExecuteExcel4Macro(x & "R1C1")) Then 'vérifie que la feuille existe
            Else
                On Error GoTo 0

A+

job75 · 17 Janvier 2024

Bonjour Lionel,

Revenir 2 ans après sur un fil de 137 posts c'est un peu... pénible non ?

A+

Usine à gaz · 17 Janvier 2024

Bonjour Gérard
OUi, c'est vrai, mais j'ai fait un nouveau post car le besoin à évolué

Usine à gaz · 20 Janvier 2024

Bonjour le Forum

Bon sang, je bidouille depuis plusieurs jours et j'ai toujours pas trouvé comment résoudre mon nouveau besoin
Si quelqu'un passe par là...
Merci à toutes et à tous

job75 · 25 Janvier 2024

Bonjour Lionel, le forum,

Je repasse par ici car j'étais ennuyé de t'avoir laissé tomber.

Mais j'étais aussi dépité de voir comment tu maltraites les codes que je te donne.

Pour ce problème j'ai simplement remis dans la feuille "Recherche" la macro écrite il y a 2 ans.

En la complétant pour entrer les données supplémentaires que tu veux en colonnes A B et J.

A+

Usine à gaz · 26 Janvier 2024

Bonjour gérard , le Forum

Je confirme, ton code est super génial et fonctionne nickel comme d'habitude.

Mais la, je pense que tu vas vraiment m'arracher la tête car en testant cette nuit dans toutes les situations possibles, il m'est apparu un nouveau besoin, plutôt un besoin complémentaire .... oserais-je ??

Bon, sauf ma tête, je ne risque rien à demander, alors, je me lance :
- le code fonctionne donc nickel si classeurs fermés,

J'aurais également besoin qu'il puisse fonctionner si les classeurs sont ouverts
- Est-il possible que ça fonctionne aussi si classeurs ouverts ?

job75 · 26 Janvier 2024

Bonjour Lionel, le forum,

Usine à gaz à dit:
- Est-il possible que ça fonctionne aussi si classeurs ouverts ?

C'est une très bonne question.

En effet si le classeur .xlsx est ouvert ExecuteExcel4Macro crée un bug quand la feuille n'existe pas.

Je ne comprends pas la raison de ce bug mais pour y remédier utilise les fichiers joints avec :

VB:

            On Error Resume Next
            If IsError(ExecuteExcel4Macro(x & "R1C1")) Then 'vérifie que la feuille existe
            Else
                On Error GoTo 0

A+

Usine à gaz · 26 Janvier 2024

Merci encore Gérard
le "C'est une très bonne question" me rassure lol
Je craignais un peu ta réaction sur mes élucubrations.

Je teste dès que j'ai un moment et je reviens "au rapport"..

Usine à gaz · 26 Janvier 2024

Alors là !!!
Magique super
Merci Gérard,
Cette fois, c'est complet génial.

Usine à gaz · 26 Janvier 2024

Et testé en situation réelle = Génial !!!

job75 · 27 Janvier 2024

Bonjour Lionel, le forum,

Il n'est pas nécessaire de supprimer les formules.

D'autant que la protection les masque.

Le code est plus court et c'est un peu plus rapide.

Edit 1 : j'ai aussi ajouté une macro Worksheet_Activate :

VB:

Private Sub Worksheet_Activzte()
Worksheet_Change [M1] 'lance la macro
End Sub

Edit 2 : non elle ne sert à rien, je l'ai supprimée.

A+

Usine à gaz · 27 Janvier 2024

Bonjour Gérard
Je te remercie pour ce nouveau code.
Je vais tester et je reviendrait au rapport

Usine à gaz · 27 Janvier 2024

Re-Gérard

Testé et adopté...
Encore merci

job75 · 27 Janvier 2024

J'ai supprimé la macro Worksheet_Activate, elle ne sert à rien.

Usine à gaz · 27 Janvier 2024

lol : J'avais remarqué

XL 2021 Rechercher dans plusieurs fichiers

Usine à gaz

XLDnaute Barbatruc

Microsoft 365 - Rechercher dans plusieurs fichiers

Pièces jointes

job75

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires