XL 2016 Lire dans classeurs fermés et copie si trouve

[Usine à gaz]

Bonjour à toutes et à tous,

Me voici devant un nouveau souci de codification que je ne sais vraiment pas faire.
Malgré mes recherches j'ai pas trouvé de solution sur le site et sur le net.
J'ai tenté beaucoup de codes que j'ai tenté d'adapter sans succès.

Je ne tourne "naturellement" LOL vers nos ténors toujours si efficaces pour solliciter de l'aide.

Voici mon problème :
ici, pour l'exemple, j'ai créé 3 classeurs (si solution il y a, il me sera facile de modifier pour inclure tous les classeurs dans le code)

Je souhaiterai qu'à partir du fichier "Import_Valeur_Cherchée" onglet "Résultat" :

1 - je clique sur le bouton "recherche",
2 - je colle le N° qui appelle,
3 - le code va lire tous les classeurs (fermés) et s'il trouve, il me copie la ligne (où les lignes si plusieurs) dans ce classeur dans l'onglet "Résultat"

Pour tests codes, je joins les classeurs :
Import_Valeur_Cherchée (qui contient dans l'onglet "Ce que je voudrais faire", l'explication détaillée de mon besoin)
Classeur_1 - Classeur_2 - Classeur_3
+ classeur qui contient d’excellents codes de SilkyRoad qui me semblent proches de mon besoin.

En espérant que vous pourrez, une nouvelle fois m'aider et vous en remerciant,
Je vous souhaite à toutes et à tous une très belle journée.
Amicalement,
Lionel,

 

[Usine à gaz]

J'ai repris les fichiers du post 26 sans rien modifier et ça beugue toujours au même endroit.

Vraiment merci Gérard

1 - n'y aurait-il pas un souci d'extension dans excel ?
2 - h = ExecuteExcel4Macro("MATCH(9^99," & f & "C14)") = pkoi "C14 ?

 

[job75]

Tu dois être fatigué, les en-têtes des fichiers sources et du fichier de destination ne correspondent pas...

 

[Usine à gaz]

OUI, je dois être très fatigué LOl car je les vois pareil au classeur destination

 

[job75]

1. Donc ce sont les fichiers du post #26, il n'y a que 27 colonnes à copier et pas 51.

2. Bien sûr aucun bug chez moi, je ne peux pas t'aider davantage.

 

[Usine à gaz]

oui, je l'ai laissé à 27 colonne pour voir si ça marchait mais je ne sais pas pkoi ça beugue au même endroit

Quand j'ai fait la modif pour les fichiers à 51 colonnes :

"Quand tu es dans VBA, menu Edition => Remplacer :
- Rechercher : 27 - Remplacer par : 51
- Rechercher : 35 - Remplacer par : 59"

ça n'a plus marché
Je voulais repartir des fichiers de ton post 26 sur 27 colonnes sans rien toucher pour voir ce qu'il en était et c'est pareil ... bon sang

1 - n'y aurait-il pas un souci d'extension dans excel ?
2 - h = ExecuteExcel4Macro("MATCH(9^99," & f & "C14)") = pkoi "C14 ?

 

[job75]

Je pense que tu te mélanges les pédales avec tes multiples fichiers :

- crée un dossier vide sur le bureau

- colle dans ce dossier uniquement les 4 fichiers de mon post #26.

 

[Usine à gaz]

ok, je m"y remets
merci vraiment pour ta patience

 

[Usine à gaz]

Vraiment, j'y comprends rien

J'ai téléchargé à nouveau tes classeurs du post 26
ça marche nickel

Je copie le classeur "Import_Valeur_Cherchée" dans le dossier qui contient mes classeurs de recherche.
Mes classeurs de recherche (de travail) sont exactement identiques sauf que 51 colonnes, soit :
- Classeurs test colonnes à copier de I à AI = 27 col,
- Classeurs travail colonnes à copier de I à BG = 51 col,
Je modifie le code en :
"Quand tu es dans VBA, menu Edition => Remplacer :
- Rechercher : 27 - Remplacer par : 51 (+24)
- Rechercher : 35 - Remplacer par : 59" (+24)

et plouffff ça beugue toujours sur la même ligne de code :
h = ExecuteExcel4Macro("MATCH(9^99," & f & "C14)")

J'en perd la raison Lol

 

[job75]

J'en perd la raison Lol

Ce que tu ne comprends pas c'est qu'il ne faut pas faire cohabiter dans le même dossier des classeurs sources avec la feuille "Donnees" et des classeurs sources avec une feuille portant un autre nom.

 

[Usine à gaz]

OUI, j'ai oublié de te le signaler dans mon post précédent mais j'ai fait la modification :
J'ai le même nom de feuille dans le classeur "Import_Valeur_Cherchée"
f = "'" & chemin & "[" & fichier & "]Donnees'!"
=
f = "'" & chemin & "[" & fichier & "]RendezVous'!"
Identique aux Classeurs dans lesquels il cherche.

 

[job75]

Donc dans le dossier les classeurs sources doivent tous avoir une feuille nommée RendezVous.

 

[Usine à gaz]

exactement = ils sont strictement pareils.
Vraiment, je ne comprends pas.
Je ne sais pas si c'est important mais il y a 6 classeurs et il pourra y en avoir plus alors que les tests ont été faits pour 3 classeurs.

Mais je t'ai tellement pris de temps ... j'en suis vraiment désolé

 

[job75]

J'ai bien dit tous les classeurs (sources) c'est à dire tous les classeurs autres que celui de la macro.

Alors il ne doit pas y avoir de bug, sinon joins tes fichiers.

 

[Usine à gaz]

OUI, OUI : exactement = ils sont strictement "TOUS" pareils.
Et pourtant ......

Je vais refaire un contrôle

 

[Usine à gaz]

je crois que j'ai trouvé et je vais me faire incendier

je reviens dans un petit moment.