XL 2019 Problème pour récupérer variable

[netparty]

Bonjour à tous
Je rencontre un soucis pour récupérer une valeur qui devrait être stockée.
J'utilise ce code pour récupérer les valeurs d'un objet dans un dessin :

Private Sub BP_Bloc_Destination_Click()
'   *****************************************
'   *   Choix du bloc destination
'   *****************************************

    Dim BlocDestination As AcadEntity
    Dim attributsdestination As Variant
    
On Error Resume Next
If Lbl_Onglet_Source_Actif = "" Then
    MsgBox "Veuilliez activer une présentation !"
Else

USR_BlocsATT.Hide
ThisDrawing.Utility.GetEntity BlocDestination, "pick Label stn block : "
         attributsdestination = BlocDestination.GetAttributes



End If

'   *   Remplir les TextBox destination

LblD_att1 = attributsdestination(0).TagString ' Etiquette attribut
TbD_att1 = attributsdestination(0).TextString ' Valeur attribut
LblD_att2 = attributsdestination(1).TagString ' Etiquette attribut
TbD_att2 = attributsdestination(1).TextString ' Valeur attribut
LblD_att3 = attributsdestination(2).TagString ' Etiquette attribut
TbD_att3 = attributsdestination(2).TextString ' Valeur attribut

USR_BlocsATT.show




End Sub

Et un bouton pour actualiser les nouvelles données :

Private Sub Bp_Save_Nouveau_Attributs_Click()

    attributsdestination(0).Update
End Sub

Mais quand je clique sur le bouton j'ai un méssage d'erreur :
Erreur de compilation Sub ou function non définie

Auriez-vous une idée.

Merci d'avance

 

[Dranreb]

Bonjour.
Les variables déclarées dans les procédures sont toujours locales et donc volatiles. Elles supplantent d'éventuelles variables globales de mêmes noms.
Les variables devant être conservées, dites globales, doivent être déclarées en têtes d'un module standard, par une instruction Public si elle être doivent être connues dans tous le projet, Private si elle ne doivent être partagées que par les procédures du module.