Discussion :

[soeursourire]

Bonjour,

Je suis en train d'essayer de faire un code VBA pour pouvoir:
-1. initialiser une camera (connection)
-2. regler le flou de cette meme camera
-3. lancer l'enregistrement

Du coup j'ai fait 3 modules init, focus, et record. Mais ces 3modules font appel aux memes variables:

Dim cam As OLEObject
Dim sess As Object
Dim path As String

par exemple.. Dans ce cas si je connecte la camera ds init() j'utilise cam et que je veux lancer l'enregistrement avec record() est-ce que je dois remettre la déclaration de ces variables de la meme manière Dim cam As OLEObjects ou ne surtout pas faire ca pour que les variables de depart ne soient pas ecrasées? Si je les declare pas ds record() mais qu'elles ont ete initialisées dans init() avant record va les reconnaitre??

Merci pour votre aide

[pgz]

Bonjour.

Il y a, à mon avis, 2 solutions :
1. Déclarer ces variables publiques

Code :

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

Public maVariable as ...

en tête d'un module standard, en dehors de toute procédure.
2. S'il y a n procédures, et qu'une appelle les autres, déclarer les variables dans cette première procédure puis les passer en paramètres lors des appels des autres.

Cordialement,

PGZ

[decondelite]

Perso, j'opterais bien pour un modèle objet: c'est le cas rêvé.

Je serais toi je créerais une classe de type Camera, avec dedans "Class_Initialise", une propriété pour le flou et une méthode pour lancer l'enregistrement, et bien sûr ton OLEObject, ton Object et ta variable String. Ainsi, tout ce que tu auras à faire dans ton code sera de créer une nouvelle caméra:

Code :

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

Dim ma_camera As Camera

Et tu l'utiliseras comme ça:

Code :

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

1
2
3
4
' Réglage du flou
ma_camera.Flou = 10
' Lancement de l'enregistrement
ma_camera.LancerEnregistrement