Discussion :

[crashtib]

Bonjour à tous,

j'utilise trois objets, Demande, Site et Tranche, ainsi que trois autres objets, qui sont des collections d'objets suscités (donc CollectionDemande, Collectionsite, CollectionTranche).



Le code de l'objet Demande, par exemple, est constitué entre autres de ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
' Stockage de la priorité
Private pNomTranche As String
 
 
Public Property Get NomTranche() As String
    Dim NomProcApp As String   'Stockage de la procédure appelante
 
    NomProcApp = NomProc
    NomProc = "NomTranche ( Get )"  'Gestion des erreurs (procédure en cours)
     NomTranche = pNomTranche
 
Sortie:
' Remettre la procédure appelante
    NomProc = NomProcApp
    Exit Property
 
End Property
 
Public Property Let NomTranche(ByVal NNomTranche As String)
    Dim NomProcApp As String   'Stockage de la procédure appelante
 
    NomProcApp = NomProc
    NomProc = "NomTranche ( Let )"  'Gestion des erreurs (procédure en cours)
     pNomTranche = NNomTranche
 
 
Sortie:
' Remettre la procédure appelante
    NomProc = NomProcApp
    Exit Property
 
End Property

Qui ne sont donc que des propriétés privées munies de leurs accesseurs et constructeurs.

Les objets Collection, quand à eux, sont constitués du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Option Explicit
 
 
 
Private Demandes As Collection
 
Public Sub ImporterCollectionDemandes()
    Dim NomProcApp As String   'Stockage de la procédure appelante
 
    NomProcApp = NomProc
    NomProc = "ImporterCollectionDemandes"  'Gestion des erreurs (procédure en cours)
 
    'Initialiser collection
    Set Demandes = New Collection
    'Charger la collection dans fichier
    'Ouvrir le fichier
    'Lire le fichier
    'Ajouter les éléments à la collection, avec comme index : concaténation de nom de la tranche, date de la demande, durée de la demande
 
 
Sortie:
    ' Remettre la procédure appelante
    NomProc = NomProcApp
    Exit Sub
 
End Sub

Ainsi que de fonctions d'ajout, suppression, export, modification... toutes publiques.

Je délclare donc mon objet CollectionDemande dans Thisworkbook :

Code :

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

Public DemandesEnCours As CollectionDemandes

Puis cherche, dans l'évènement Activate(), à utiliser la méthode d'import :

Code :

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

Call DemandesEnCours.ImporterCollectionDemandes

VB me crache alors l'erreur suivante :

Variable objet ou variable de bloc With non définie

Et je vois pas du tout, mais du tout le rapport étant donné que pas une seule fois j'utilise l'instruction With.

aurai-je mal conçu mon architecture? à votre avis pourquoi VB me crache-t-il cette erreur?

Merci à tous

[pgz]

Bonjour.

Le message d'erreur indique qu'il peut s'agir d'une variable objet non définie. Donc, tu peux laisser tomber a priori l'histoire du bloc With...
La procédure appelée ne contient qu'une instruction qui concerne tes objets

Code :

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

Set Demandes = New Collection

, ou alors, tu n'as pas mis tout le code...
Par contre tu as mis la propriété LET et GET de NomTranche de Demande, mais cet objet n'est pas utilisé dans la procédure incriminée...
Du coup, juste un conseil : met un point d'arrêt sur

Code :

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

Call DemandesEnCours.ImporterCollectionDemandes

et F8.

A mon avis, il manque quand même un

Code :

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

Set DemandesEnCours = New CollectionDemandes

Ce qui ferait que DemandesEnCours = Nothing, et le message d'erreur serait justifié.

Cordialement,

PGZ

[crashtib]

C'était le cas, il manquait effectivement l'instruction "Set Demandes = New Collection". Pour être plus précis, elel était présente mais non exécutée puisque placée dans thisworkbook.open() et suivant des instructions buggées, donc non exécutée. Résultat, l'objet n'était pas instancié.

Merci en tout cas pour ton aide.
Bon week-end !