Re : extraction entre fichier
J'ai rentré l'adresse du dossier qui contiens tout les fichier et ça ne marche pas, mais mes feuilles ont toutes des noms particuliers.
C'est pas les lignes qui suives qui pose un problème?
.Cells(NumeroLigne, 3) = CDate(ExtraireValeur(NomDossier, NomFichier, NomFeuille, "C2"))
.Cells(NumeroLigne, 4) = ExtraireValeur(NomDossier, NomFichier, NomFeuille, "E13")
.Cells(NumeroLigne, 4).NumberFormat = "0.00%"
.Cells(NumeroLigne, 5) = ExtraireValeur(NomDossier, NomFichier, NomFeuille, "D9")
.Cells(NumeroLigne, 6) = ExtraireValeur(NomDossier, NomFichier, NomFeuille, "D10")
.Cells(NumeroLigne, 7) = ExtraireValeur(NomDossier, NomFichier, NomFeuille, "D11")
.Cells(NumeroLigne, 8) = ExtraireValeur(NomDossier, NomFichier, NomFeuille, "D13")
.Cells(NumeroLigne, 8).NumberFormat = "0.00%"
Merci