Code VBA : RechercheV à partir d fichiers Excel dans un repertoire

Bonjour,

Je dispose d'une liste exhaustive de comptes, desquels je veux ramené les soldes journaliers à partir d'un répertoire de fichiers excel respectant la même structure.

les soldes provenant d'un fichier donné doivent déposés sur une même colonne, le choix de la ligne est en foction de la correspondance du numéro du compte (Variable clé de la rechercheV)

Le code que j'utilise est le suivant. A son exécution je reçois un message d'erreur : l'indice n'appartient pas à la selection

Option Explicit

Sub Getter()

Dim Fso As Object, MonRepertoire As String

Dim f1 As Object

Dim i As Integer

Dim name As String

Dim k As Integer

Set Fso = CreateObject("Scripting.FileSystemObject")

MonRepertoire = "C:\Users\alaaeddine.bennani\Desktop\STAGE ECOULEMENT\HIST ECHANTILLON"

i = 8

For Each f1 In Fso.GetFolder(MonRepertoire).Files

Workbooks.Open f1

name = f1.name

ThisWorkbook.Sheets("Data").Cells(1, i) = Right(Left(name, 17), 8)

For k = 2 To 2760

With Sheets("Data")

.Range(Cells(k, i)).Value = WorksheetFunction.VLookup(.Range(Cells(2, i)).Value, _

Workbooks(name).Sheets(name).Range("B1:H4000"), 7, False)

End With

Next k

Workbooks(name).Close SaveChanges:=False

i = i + 1

Next f1

End Sub

Merci d'avance pour votre aide.

Bonjour,

si le but du jeu est de deviner sur quelle instruction tu reçois le message d'erreur, je parie pour celle-ci

With Sheets("Data")

Si c'est le cas, complète l'instruction ainsi

With Thisworkbook.Sheets("Data")

Bonjour h2so4, et merci pour ta réponse.

En remplaçant Sheets("Data") par Thisworkbook.Sheets("Data"), je reçois une nouvelle erreur :

"erreur définie par l'application ou par l'objet"

en fait, pour répondre à ta question, je ne sais pas comment détecter la source de l'erreur (le curseur se place à la fin du code)

Merci.

Bonjour,

quand tu reçois le message d'erreur, tu as l'option d'arrêter l'exécution ou d'entrer en mode débogage. Entre en mode débogage, l'instruction donnant l'erreur sera surlignée en jaune.

ceci dit, si je dois à nouveau parier, je dirais que l'erreur survient sur l'instruction

.Range(Cells(k, i)).Value = WorksheetFunction.VLookup(.Range(Cells(2, i)).Value, _
Workbooks(name).Sheets(name).Range("B1:H4000"), 7, False)

et la cause probable est qu'il n'y a pas de feuille nommée du contenu de la variable name dans le classeur dont le nom est contenu dans la variable name.