Discussion :

[Tartenpion]

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?

[Pierre Fauconnier]

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 :

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

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 :

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

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 :

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

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 :

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

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

[Tartenpion]

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 :

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

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.

[ThierryAIM]

oui

[AlainTech]

Ou

Code :

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

...Data Source = " & MaVariable

[Megaxel]

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 :

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

Public Const MaVariable As String = "Coucou !!"

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

Code :

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

1
2
3
Sub test()
    MsgBox MaVariable
End Sub

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

[Pierre Fauconnier]

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

Exemple:

Code :

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

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
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...

Pierre Fauconnier