Ouvrir et aller chercher données dans un sous dossier

Bonjour,

Je viens vers vous afin de trouver la solution à mon petit problème.

Je suis assez novice en langage VBA, je commence à connaître pas mal de chose, mais là je sèche, et je n'ai trouvé la réponse nul part !

Je m'explique:

J'ai un fichier (dans dossier 1) dans lequel j'aimerai coller des données provenant d'un autre fichier (présent dans un le dossier 2 qui est un sous dossier du dossier 1). Jusque là j'ai réussi.

Ensuite par contre le fichier où je doit aller chercher l'information change selon la ligne du tableau de mon premier fichier (voir fichier joints). et c'est là qu'arrive le problème. je ne sais pas quelle syntaxe utiliser ..

Voici mon code:

Private Sub CommandButton1_Click()
Dim sh As Worksheet '(Onglet destination)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet source)
Dim Chemin_Dossier As String 'variable chemin_Dossier (Chemin d’Accès)
Dim Fichier_parcouru As String
Dim c, p, q, h, m, r As Range
Dim n, i As Long
Dim Col, fichier As String

n = 1
i = 8

'Col = Range("U2").Value
Set sh = ThisWorkbook.ActiveSheet
'Set p = sh.Range("L2:L" & Range("L" & Rows.Count).End(xlUp).Row)

sh.Range("A8:B1000").ClearContents
Chemin_Dossier = InputBox("Saisir le chemin du dossier dans lequel se trouve les fiches points i des bassins :  (Exemple : K:\DOSSIERS\AFFAIRES\01_BIBLIOTHEQUE\ETUDES - DONNEES GENERALES\Fichiers excel liés)")

While n <= sh.Cells(2, "C")
    sh.Cells(i, "B") = "BC" & n
    Fichier_parcouru = Chemin_Dossier & "\" & sh.Cells(i, "B").Value & ".xls"
    MsgBox (Fichier_parcouru)
    Workbooks.Open Filename:=Chemin_Dossier & "\" & sh.Cells(i, "B").Value & ".xls"
    fichier = sh.Cells(i, "B").Value
    CS = Worbooks(fichier)
    sh.Cells(i, "C") = CS.Sheets(1).OS.Range("F40")

    n = n + 1
    i = i + 1
Wend

End Sub

et je sais que l'erreur de syntaxe arrive au niveau des lignes suivantes :

fichier = sh.Cells(i, "B").Value CS = Worbooks(fichier)

Avez vous une idée pour m'aider ?

Bonjour,

je n'ai pas regardé en détail, mais ceci m'a sauté aux yeux, mets set car c'est un objet

set CS = Worbooks(fichier)

ah oui merci beaucoup !

Ca marche nickel maintenant!