Pb sur CreateObject (Scripting.Dictionary)

Bonjour a vous tous,

Il y a un truc que je ne pige pas !!!!
je suis sous access 2000

J'ai un module de classe nommé "Obj1" qui ressemble a ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private ListA Private ListB   Private Sub Class_Initialize() 'creation des collections Set ListA = CreateObject(Scripting.Dictionary) Set ListB = CreateObject(Scripting.Dictionary) End Sub   Public Sub test() ListA.Add "A", "Ligne1" End Sub   Public Sub test2() msgbox "toto" End Sub

---

Et quand je fait dans une de mes fonctions:

Code:

---

1 2 3

Dim O1 As New Obj1 Osql.test

---

J'ai une Erreur : 424 - Objet requis :bug:

alors que si je fais:

Code:

---

1 2 3

Dim O1 As New Obj1 Osql.test2

---

ça fonctionne impecc !!!!!!!!????????

Quelqu'un a une idée ?

Bonjour,


il s'agit d'objets donc il faut les déclarer en type objet (la non mention du type implique un type variant).

Code:

---

1 2	Private ListA as Object Private ListB as Object

---

Merci....
Mais c'est pareil !

J'ai essayé juste une petite fonction:

Code:

---

1 2 3 4

Dim a As Object Set a = CreateObject(Scripting.Dictionary) a.Add "r", "rrrr"

---

Et sur la ligne "Set...." j'ai erreur 424 ( la meme )

Merci encore

Code:

---

Set a = CreateObject("Scripting.Dictionary")

---