Extraire valeurs de cellules de plusieurs fichiers vers un principal VBA

Bonjour,

Je travaille actuellement sur un code pour récupérer des données précises d'environ 70 fichiers ayant la même structure. Pour l'instant j'ai construit le code ci-dessous. Donc j'ai attribué le chemin d'accès à une variable. Le code récupère le nom de chaque fichier entré dans la colonne A et le colle au chemin d'accès et retourne le contenu de la cellule indiquée sur mon document principal. Seulement, j'ai remarqué que ce ne sont pas les valeurs effectives qui sont collées, notamment lorsque la cellule source contient elle-même une formule. Le problème classique du collage spécial, mais je ne trouve pas avec quelle fonction ou quelle parenthèse contourner le problème sur VBA...

Quelqu'un pour une petite astuce?

Sub actualiser plage ()
'
'
Dim Pfad As String
Dim name As String
Dim link As String
Dim MyDate As Date

Dim I As Long

'Date
MyDate = Int(Now)
ActiveSheet.Cells(5, 2) = Format(MyDate, "YYYY-MM-DD")

'Importation des données 

Ch = "='C:\Users\"

For I = 11 To 13                           
    name = CStr(Cells(I, 1))                'Le nom du fichier est récupéré dans la colonne A, changé en string et attribué à la variable name.

    If Cells(I, 2).Value = 1 Then           'Loop dans la colonne B. Si un 1 se trouve dans la colonne B, les données demandées sont importées dans le tableau. 

        '2 
        link = Ch & "[" & name & "]Start'!R13C4"    
        Cells(I, 3).FormulaR1C1 = link                

        '3 
        link = Ch & "[" & name & "]DK1'!R11C2"   
        Cells(I, 4).FormulaR1C1 = link

        'x-80

End If
Next I

End Sub

Hello,

Pour récupérer des données de plusieurs fichiers ayant une même structure je te recommande PowerQuery

@+

Fausse alerte, mon code est bien correct. Il y a juste eu quelques erreurs de frappe dans les chemins pour certaines cellules sources 8-)

Bonne soirée