Bonjour à tous et à toutes,
Je cherche à récupérer dans un tableau le nom des classeurs que mon utilisateur va choisir d'ouvrir avec la macro afin de faciliter le codage des actions à effectuer sur chaque classeur par la suite.
Pour cela, j'utilise le code suivant :
ChDrive DASHB
ChDir DASHB
Tables = Application.GetOpenFilename(MultiSelect:=True)
ReDim DataTableName(UBound(Tables), 1)
For i = LBound(Tables, 1) To UBound(Tables, 1)
Workbooks.Open (Tables(i))
' C'est ici que je compte récupérer le nom des classeurs dans mon tableau
DataTableName(i, 1) = ActiveWorkbook.Name
Next
Workbooks(DataSetName).Activate
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Testi"
Range(Cells(1, 1), Cells(UBound(Tables), 1)).Value = DataTableName
MsgBox ("Done")
End Sub
Toutefois, lorsque je vais vérifier les résultats dans la feuille "Testi", elle est totalement vide. J'en déduis que mon tableau ne s'incrémente pas dans la boucle For, mais je ne comprends pas pourquoi...
L'un d'entre vous a une idée?
Merci d'avance
Mateo