[VBA-E] Questions d'ordre generale

Bonjour, voici mes questions qui sont je pense relativement simplistes.

1) Je voudrais savoir si il est possible de declarer et parametrer une variable disponible pour toutes les procedures evenementielle ou generales?
Par exemple: le chemin pour d'une base de donnee utilises par de nombreuses procedure dans mon code.
Si oui, ou est-ce que je dois declarer ces variables? Module special qui contient que des constantes?

2) Je souhaiterais qu'a l'ouverture du fichier mon formulaire se lance automatiquement et que toutes les feuilles soit cachees. Quelle est la commande qui me permet de lancer le formulaire par defaut a l'ouverture du fichier?

Bonjour

1. Question basique de VB6. Va voir les tutos pour bien comprendre la déclaration des variables, la portée d'une variable ... Cela me semble nécessaire... :(

Pour qu'une variable soit utilisable par tous tes modules, toutes tes feuilles et tes userforms, il faut la déclarer

Code:

---

public MaVariable as ...

---

dans un module standard (ni un module de classe, ni un module de feuille ou de classeur).

2. Tu ne peux pas cacher toutes les feuilles en Excel. Il faut toujours qu'il y en ait une visible.

Code:

---

1 2 3 4 5 6

Sub Cacher_Feuilles() Dim i As Integer For i = 2 To Sheets.Count Sheets(i).Visible = xlHidden Next i End Sub

---

Si par formulaire, tu entends un userform, gère l'évènement Open de thisworkbook, en utilisant la procédure ci-dessus pour cacher tes feuilles sauf la première. Tu appelles cette procédure dans le code de gestion de l'évènement Open.

Code:

---

1 2 3 4

Private Sub Workbook_Open() Cacher_Feuilles UserForm1.Show End Sub

---

Si ton formulaire est une feuille spécifique, tu peux modifier la procédure développée plus haut comme suit, puis l'appeler dans l'évènement Open de Thisworkbook.

Code:

---

1 2 3 4 5 6 7 8

Sub Cacher_Feuilles() Dim i As Integer For i = 1 To Sheets.Count If Sheets(i).Name <> "Feuil2" Then Sheets(i).Visible = xlHidden End If Next i End Sub

---

Attention que, personnellement, je préfère jouer dans ce cas avec la propriété Codename d'une feuille, car la propriété Name d'une feuille (en fait le nom de l'onglet excel) est susceptible d'être modifiée par un utilisateur et la macro ne fonctionnerait plus...

Bon travail

Pierre Fauconnier

Ok Merci.

Cependant je pense m'etre mal exprimer pour la premiere question.
Ok je peux declarer une variable pour toutes les procedures avec Public.

Le probleme c'est que je suis obliger de la redefinir dans chaque sub qui l'utilise.

Exemple:

Code:

---

StrConn = "Provider = Microsoft.Jet.OLEDB.4.0;" & " Data Source = C:\Documents and Settings\Administrator\My Documents\myDB.mdb"

---

En gros si l'emplacement de ma base change je ne veux pas avoir a changer son chemin d'acces dans toutes les procedures... Est-ce que je peux la definir dans un module a part et utiliser simplement la string StrConn dans mes autres modules.

oui

Ou

Code:

---

...Data Source = " & MaVariable

---

Si tu veux utiliser un module dans lequel tu regroupes toutes tes données, tu peux. Par exemple, dans un module "Constantes", tu mets:

Code:

---

Public Const MaVariable As String = "Coucou !!"

---

A partir de là, si dans un autre module, tu fais :

Code:

---

1 2 3

Sub test() MsgBox MaVariable End Sub

---

tu auras bien "Coucou!!" dans ta message-box.

Citation:

---

Envoyé par Tartenpion

Le probleme c'est que je suis obliger de la redefinir dans chaque sub qui l'utilise.

Exemple:

Code:

---

StrConn = "Provider = Microsoft.Jet.OLEDB.4.0;" & " Data Source = C:\Documents and Settings\Administrator\My Documents\myDB.mdb"

---

---

Je ne comprends pas ce que tu veux dire par "redéfinir"...
Tu dimensionnes une variable publique dans un module standard. Comme c'est une variable, elle peut... varier :wink:
Donc, dans un module, tu peux adapter la valeur de cette variable.
Note que si ton code s'arrête suite à un bug et que tu mets fin à son exécution, ta variable meurt et tu dois lui attribuer à nouveau une valeur. C'est pourquoi il est important de bien gérer tes erreurs pour ne pas devoir stopper ton code.
Essaie donc de préciser ton souhait si tu veux obtenir une aide efficace... :lol:

Pierre Fauconnier