Bonjour,
Le code suivant me donne l'erreur d'exécution '438': Propriété ou méthode non gérée par cet objet:
Qu'est-ce qui ne joue pas? :weird:Code:
1
2 ReDim TblFls(2) TblFls(1) = Workbook.Worksheets("nom de la feuille")
Cordialement
Version imprimable
Bonjour,
Le code suivant me donne l'erreur d'exécution '438': Propriété ou méthode non gérée par cet objet:
Qu'est-ce qui ne joue pas? :weird:Code:
1
2 ReDim TblFls(2) TblFls(1) = Workbook.Worksheets("nom de la feuille")
Cordialement
Hello,
Workbook n'est pas un objet affecté. Cela devrait mieux fonctionner avec activeWorkbook à la place par exemple.
Ami calmant J.PCitation:
Renvoie un objet Workbook qui représente le workbook dans la fenêtre active.
Bonjour,
Merci de la réponse.
Il s'agit d'un extrait de code et c'est vrai, pour une meilleure compréhension, j'aurais dû écrire ActiveWorkbook.
Le code est donc:
CordialementCode:
1
2 ReDim TblFls(2) TblFls(1) = ActiveWorkbook.Worksheets("nom de la feuille")
il manque un Set d'affectation d'objet :
Code:
1
2
3
4 Sub Test() ReDim TblFls(0 To 1) Set TblFls(0) = ActiveWorkbook.Worksheets("Sheet1") End Sub
Ah top !
C'est une variable tableau, mais la valeur affectée n'en est pas moins un objet, donc il faut utiliser Set.
C'est juste. Merci beaucoup !