XL 2016 Activeworkbooks à partir d'une cellule

Acher12 · 6 Décembre 2023

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 · 6 Décembre 2023

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

XL 2016 Activeworkbooks à partir d'une cellule

Acher12

XLDnaute Nouveau

sousou

XLDnaute Barbatruc

Discussions similaires