Script bloquant sur extrairevaleur

wilfrid18

XLDnaute Nouveau
Bonjour,
Je dispose d'un script qui va récupérer des données dans des classeurs fermés.Il bloque sur :With wsSource
.Cells(NumeroLigne, 1) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H4"). Auparavant, il bloquait sur DossierOk, NomFichier, NomFeuille qu'il ne reconnaissait pas, n'étant pas désigné comme variable. Ce que j'ai fait, mais il continue à bloquer sur ExtraireValeur. Je ne suis pas assez professionnel pour la réparer.
Je vous expédie, le fichier récap, un fichier où sont écrit les données, et deux classeurs sources.
Merci de m'aider à y voir un peu plus clair.
 

Pièces jointes

  • essai1.xlsm
    31.3 KB · Affichages: 20
  • essai1.xlsm
    31.3 KB · Affichages: 22
  • essai1.xlsm
    31.3 KB · Affichages: 21
  • 1998-01-510.xlsm
    76.8 KB · Affichages: 30
  • 1998-01-510.xlsm
    76.8 KB · Affichages: 27
  • 1998-01-510.xlsm
    76.8 KB · Affichages: 29
  • 2003-01-511.xlsm
    76.9 KB · Affichages: 25
  • 2003-01-511.xlsm
    76.9 KB · Affichages: 25
  • 2003-01-511.xlsm
    76.9 KB · Affichages: 25
  • Etatcomptable.xlsm
    25.5 KB · Affichages: 30
  • Etatcomptable.xlsm
    25.5 KB · Affichages: 31
  • Etatcomptable.xlsm
    25.5 KB · Affichages: 33

Statistiques des forums

Discussions
314 025
Messages
2 104 767
Membres
109 141
dernier inscrit
nathalie MARTIN