XL 2016 Récupérer variable dans un onglet d'un autre classeur

[Hogwarts]

Bonjour à tous,

Je suis tout nouveau sur le forum et je suis débutant en VBA.

Je vous explique mon dilemme, je cherche à récupérer plusieurs variables se trouvant en colonne D dans un onglet nommé "Données" dans des fichiers que je ne souhaite pas ouvrir(trop grand nombre de fichier). Dans l'objectif après de tracer des courbes d'une même variable présent sur différents fichiers et donc de superposer toutes ces variables sur une même courbe.

Ce que j'ai réussi à faire jusqu'à maintenant : Parcourir tous les fichiers présents dans le sous-dossier de ma macro, récupérer le nom du fichier pour l'afficher sous forme d'onglet dans mon code et là je bloque. J'ai tenté quelque chose pour aller récupérer la colonne D de mes fichiers dans l'onglet "Données" mais ça ne fonctionne pas.

Voici mon code :

Sub test()

Dim nomFeuille As String
Dim start As Single

Dim ws As Worksheet
Dim monFichier As String
Dim wb As Workbook
Dim chemin As String
Dim i As Integer
Dim nom As String

Set wb = Workbooks(ThisWorkbook.Name)
Dim sh As Worksheet
chemin = ThisWorkbook.Path & "\l'emplacement_en_sous_dossier_de_mes_fichiers_excel\"

monFichier = Dir(chemin & "*.xlsx", vbNormal)

Do While monFichier <> ""
    Debug.Print monFichier
        onglet = Split(monFichier, "_")(4) 'je retiens que la fin du fichier
        
        wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = onglet
        'Cette boucle ne fonctionne pas et j'aimerais quelle récupère les valeurs de la colonne D commençant à la ligne 4 et colonne 2
        For Each sh In ActiveWorkbook.Worksheets
            For i = 8 To 150
                'colonne D
                j = 4
                Cells(i - 4, j - 2) = "='" & ThisWorkbook.Path & "\[" & monFichier & "]Données'!R" & i & "C" & j:
            Next
        Next sh
    monFichier = Dir
Loop

End Sub

Merci d'avance pour votre aide.

 

[CHALET53]

Bonjour,
Si tu mettais ton fichier maître et un des fichiers se trouvant dans le sous répertoire, quelqu'un pourrait peut-être t'aider en les enregistrant dans un répertoire et sous répertoire. Ainsi, voir ce qui se passe.
Le tout sans données confidentielles
a+

 

[Hogwarts]

Bonjour,
Merci pour votre réponse, mais j'ai trouvé la réponse, le souci venait de la ligne 29, j'ai remplacé le début par :

Cells(i - 4, j - 2).Formula = "='"