Discussion :

[Dédé6621]

Bonjour,

Le code suivant me donne l'erreur d'exécution '438': Propriété ou méthode non gérée par cet objet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        ReDim TblFls(2)
        TblFls(1) = Workbook.Worksheets("nom de la feuille")

Qu'est-ce qui ne joue pas?

Cordialement

[jurassic pork]

Hello,
Workbook n'est pas un objet affecté. Cela devrait mieux fonctionner avec activeWorkbook à la place par exemple.

Renvoie un objet Workbook qui représente le workbook dans la fenêtre active.

Ami calmant J.P

[Dédé6621]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        ReDim TblFls(2)
        TblFls(1) = ActiveWorkbook.Worksheets("nom de la feuille")

Cordialement

[jurassic pork]

il manque un Set d'affectation d'objet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Test()
    ReDim TblFls(0 To 1)
    Set TblFls(0) = ActiveWorkbook.Worksheets("Sheet1")
End Sub

[Dédé6621]

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 !