XL 2016 Activeworkbooks à partir d'une cellule

[Acher12]

Bonjour,
Je sollicite votre aide sur un point bloquant.
j'ai plusieurs fichiers que je les traites avec des macros.

J'ai développé une macro pour traiter tout les fichier au mêmes temps.
mais dans je dois dupliquer l'accés aux fichiers ( noms)

Je souhaite créer un tableau avec tout les noms de mes fichiers qui sont déjà ouverts et faire appel à ce tableau pour agir sur mes fichier sauf je bloque
******
Dim classeur1,classeur2,classeur3 As String

'classeur1 = "fichier1.xlsm"
'classeur2 = "fichier2.xlsm"
'classeur3 = "fichier3.xlsm"
' comment je peux changer
Application.Run "'" & classeur1 & "'!refreshTCD"
Application.Run "'" & classeur2 & "'!refreshTCD"
Application.Run "'" & classeur3 & "'!refreshTCD"

' comment je peux changer ça en
sFiles="'feuil1'!(C5:C19") \\\\\ C5:C19 c'est les cellules qui contient les noms des fichiers
classeur=SFiles


Merci d'avance

 

[sousou]

Bonjour
A main levé et sans fichier essaie quelque chose comme ceci

set zone=sheets("feuil1").range("C5:C19")
for n=1 to zone.count
Application.Run "'" & zone.rows(1) .value & "'!refreshTCD")
next