Bonjour à tous,
je suis en train de créer une macro qui utilise des infos contenues dans plusieurs classeurs (à un format bien établi).
Le fonctionnement est simple : l'utilisateur ouvre les classeurs nécessaires à l'analyse, puis lance la macro. J'affiche dans une listbox le nom de tous les classeurs susceptibles d'être utilisés (leur nombre est indéterminé).
Là où mon problème se pose, c'est que une fois que l'utilisateur a sélectionné les noms des classeurs, je voudrais les stocker dans des variables de type "workbook" (parce que je vais devoir les utiliser par la suite).
Comme leur nombre est indéterminé, j'ai créé un tableau de workbook, du style :
dim FUsheets() as Workbook
le bout de code que j'utilise pour les récupérer est le suivant :
j = 0
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
For Each wb In Workbooks
If wb.Name = ListBox1.List(i) Then
Set FUSheets(j) = wb
j = j + 1
End If
Next wb
End If
Next i
Mais ce dernier me renvoie le message d'erreur "Sub ou Function non définie".
J'ai fait un essai, sans définir de tableau, mais juste une variable de type workbook. Dans ce cas, le code fonctionne (en faisant un essai avec un seul fichier), mais pour ce que je veux faire, ça ne peut pas fonctionner, puisque je ne sais pas à l'avance de combien de variables je vais avoir besoin, et surtout, je ne pourrais pas utiliser de boucle For....
Si quelqu'un a une idée pour m'aider, ça serait formidable !!
Un grand merci d'avance !
Maxime
je suis en train de créer une macro qui utilise des infos contenues dans plusieurs classeurs (à un format bien établi).
Le fonctionnement est simple : l'utilisateur ouvre les classeurs nécessaires à l'analyse, puis lance la macro. J'affiche dans une listbox le nom de tous les classeurs susceptibles d'être utilisés (leur nombre est indéterminé).
Là où mon problème se pose, c'est que une fois que l'utilisateur a sélectionné les noms des classeurs, je voudrais les stocker dans des variables de type "workbook" (parce que je vais devoir les utiliser par la suite).
Comme leur nombre est indéterminé, j'ai créé un tableau de workbook, du style :
dim FUsheets() as Workbook
le bout de code que j'utilise pour les récupérer est le suivant :
j = 0
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
For Each wb In Workbooks
If wb.Name = ListBox1.List(i) Then
Set FUSheets(j) = wb
j = j + 1
End If
Next wb
End If
Next i
Mais ce dernier me renvoie le message d'erreur "Sub ou Function non définie".
J'ai fait un essai, sans définir de tableau, mais juste une variable de type workbook. Dans ce cas, le code fonctionne (en faisant un essai avec un seul fichier), mais pour ce que je veux faire, ça ne peut pas fonctionner, puisque je ne sais pas à l'avance de combien de variables je vais avoir besoin, et surtout, je ne pourrais pas utiliser de boucle For....
Si quelqu'un a une idée pour m'aider, ça serait formidable !!
Un grand merci d'avance !
Maxime