Script récupération données sur classeurs fermés ne fonctionne plus

[wilfrid18]

Bonjour,
Je dispose d'une macro qui fait la récupération de données dans des classeurs fermés appartenant tous au même répertoire. Elle ne fonctionne plus, sauf que je ne vois pas ce qui ne marche plus.
"erreur de compilation-incompatibilité de type"
Il est prévu pour fonctionner sur des centaines de classeurs.
Je vous expédie trois classeurs pour le test.
Un coup de main sera le bienvenu. Merci d'avance.

 

[pierrejean]

Re : Script récupération données sur classeurs fermés ne fonctionne plus

Bonjour Wilfrid

Concernant la macro Creer_Recapitulatif (en module 1)
mettre en commentaire la ligne
'Set wlSource = "z"
Remplacer:
'Workbooks.Open F1.Name par
Workbooks.Open F1

 

[wilfrid18]

Re : Script récupération données sur classeurs fermés ne fonctionne plus

Bonjour Pierrejean,
Merci d'avoir répondu à mon message. J'ai fait ce que vous m'avez dit de faire. Effectivement, cela refonctionne, mais pas comme avant, certaines données manquent. Je dois vous dire que cette macro a été écrite il y a quelques mois, mais juste testée(et un peu oubliée).
Je crois que je vous ai induit en erreur involontairement. Je viens de découvrir une macro encore plus importante dans la feuille(y)- Creer_Recapitulatif2(). Je crois que c'est elle la vraie macro; celle du module1 devait être la 1ère.
de plus, il manquait un autre fichier du nom "etatcomptable".
Dans Private Sub CommandButton1_Click() ; j'ai dù changer "Creer recapitualtif" en "Creer_Recapitulatif2" (chose que je ne comprends pas, car j'ai repris la macro, telle qu'elle m'a été livrée)
La macro récapitulatif2 devrait fonctionner mieux que celle du module1, mais me fait cette erreur : Set wsRecap = wbRecap.Sheets("y"), je ne sais pas pourquoi. Il s'agit bien de la feuille (y).
Je vous réexpédie "essai.xlsm", et les autres qui l'accompagnent.
Merci de me sortir de ce passage difficile.