Discussion :

[fleur_d_eden]

Bonjour,
j'ai un Gros soucis , je vous explique
je suis débutante en VBA Excel , j'ai commencé a programmer une application avec une connexion à la BD ACCESS

et j'ai un problème c'est que j'ouvre la connexion et la ferme dans chaque "évènement" comme "Private Sub ComboBox2_Change()" ou "Private Sub MultiPage1_Change()" alors que normalement l'ouverture de la connexion doit se faire une seule fois a l'ouverture de l'application et la fermeture une seule fois a la fin de l'application.

je voudrais le faire mais je ne sais pas comment y procéder et ça me sort des erreurs comme "Cette Opération n'est pas autorisé si l'objet est Ouvert" quand je change de page avec des combobox sélectionnés

SVP quelle est la procédure a suivre pour ouvrir la connexion a la BD dés l'ouverture de l'application

HELP -HELP

[kiki29]

Salut, voir ici, si cela peut t'aider.

[fleur_d_eden]

Merci pour votre réponse, je viens de consulter le lien mais ça ne répond pas a ce que je veux exactement .

peut être que je n'ai pas été assez clair dans ma question?

[kiki29]

Re, fondamentalement pourquoi cette interface via Excel et non Access directement ? Bref sinon connection dans Private Sub Workbook_Open()
et fermeture dans Private Sub Workbook_BeforeClose(Cancel As Boolean) ? Mais sans garantie.

[fleur_d_eden]

Merci pour la réponse

si je met les déclarations dans le "workbook open ()"
est ce que la variable de connexion va être reconnu dans tout le projet ?

voila la procédure que je suis pour la connexion

Code :

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

1
2
3
4
5
6
7
8
Dim cnn As New ADODB.Connection
 
'Connection à la base
Set cnn = New ADODB.Connection
 strconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:\Users\XX\xxx\BD1.accdb"
 
    cnn.Open strconnect

donc si je copie ce code dans le Workbook open ça va marcher?

[kiki29]

Gente Dame, à lire, et surtout Public

Donc qqch comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public cnn As ADODB.Connection
 
Private Sub Workbook_Open()
Dim strconnect As String
    Set cnn = New ADODB.Connection
    strconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                 "Data Source=C:\Users\XX\xxx\BD1.accdb"
 
    cnn.Open strconnect
End Sub

[ZebreLoup]

Et j'ajouterais juste qu'autant il est vrai qu'il n'est pas optimal d'ouvrir la connexion à chaque requête lors d'une procédure qui en fait plusieurs, autant l'ouvrir pour toute la durée d'ouverture du classeur n'est sans doute pas nécessaire non plus et peut même poser quelques problèmes.
Si ça ne fonctionnait pas avant c'était sans doute un petit souci de conception, tu devais essayer d'ouvrir une connexion déjà ouverte.
Par contre déclarer la connexion en variable globale pour son initialisation, très bien, il n'y a plus qu'à faire des Open et des Close au bon endroit.

[fleur_d_eden]

Bonjour

j'ai lu les tutoriel que vous m'aviez mis en lien hypertexte , j'ai essayé de faire ceci dans le "Private Sub Workbook_Open()"

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
UserForm1.Show
 
Public cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:\Users\XX\xxx\BD1.accdb"

mais ça me sort une erreur

"Attribut Incorrect dans une procédure Sub ou Fonction"

devrais je faire autre chose?

[fleur_d_eden]

Gente Dame, à lire, et surtout Public

Donc qqch comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public cnn As ADODB.Connection
 
Private Sub Workbook_Open()
Dim strconnect As String
    Set cnn = New ADODB.Connection
    strconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                 "Data Source=C:\Users\XX\xxx\BD1.accdb"
 
    cnn.Open strconnect
End Sub

Merci Kiki , j'ai appliqué ce que tu ma montré mais sans succés

car il me sort une erreur
"les arguments sont de type incorrect en dehors des limites autorisées ou en conflit les uns avec les autres "

faut il ajouter un bout du code dans chaque evenement comme "comboboxChange"??

SVP je ne sais vraiment pas quoi faire

[Tweelight]

faut il ajouter un bout du code dans chaque evenement comme "comboboxChange"??

SVP je ne sais vraiment pas quoi faire

Hello Miss,
Pourquoi ne pas envisager un sous programme dans un module que tu appelles quand tu veux?...

Ton programe:

Code :

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

1
2
3
4
5
6
7
 
Option Explicit
Public cnn As ADODB.Connection
 
Private Sub Workbook_Open()
   Call connexion()
End Sub

Le module standard:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub connexion()
  Dim strconnect As String
  Set cnn = New ADODB.Connection
  strconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                 "Data Source=C:\Users\XX\xxx\BD1.accdb"
 cnn.Open strconnect
End Sub

Public Sub deconnexion()
 (ton code de déconnexion)
end Sub

Cela te permettra de lancer ta connexion et déconnexion juste avec le "Call sous-programme"...

[fleur_d_eden]

Hello Miss,
Pourquoi ne pas envisager un sous programme dans un module que tu appelles quand tu veux?...

j'ai suivi vos conseil à la lettre mais j'ai tjrs la mm erreur

"les arguments sont de type incorrect en dehors des limites autorisées ou en conflit les uns avec les autres "

avez vous deja vu cette erreur?
j'ai cherché cette erreur sur les forum sur internet mais je ne trouve pas grand chose .

logiquement avec le code que vous m'avez donné , la variable "cnn" est globale et publique donc elle doit etre reconnu dans tous le projet , sauf que c'est pas le cas , car l'erreur se trouve au niveau des requetes que je fais genre

Code :

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

1
2
3
4
5
Dim rst1 As New ADODB.Recordset
 
 
     rst1.Open "SELECT DISTINCT typemateriel.[nom_type] FROM typemateriel INNER JOIN materiel ON (typemateriel.[id_type] =  materiel.[type]) WHERE ( materiel.[affecte] = ('0')) ORDER BY typemateriel.[nom_type];", _
cnn, adOpenStatic

faut il que je rajoute qqch avant ou après ?

[Tweelight]

"CNN" ne peut qu'être globale et publique ; ok je sors...

Sinon est-ce que dans une autre partie de ton programme l'objet "cnn" est déclarée? cela pourrait être le conflit...

[fleur_d_eden]

"CNN" ne peut qu'être globale et publique ; ok je sors...

Sinon est-ce que dans une autre partie de ton programme l'objet "cnn" est déclarée? cela pourrait être le conflit...

j'ai choisi "cnn" pr ça :p


j'ai vérifié , ya aucune déclaration qui pourrait faire conflit !!!


je galère

[Tweelight]

Désolé mais là je sèche complet... Vaut mieux attendre une réponse d'un expert sur la question...

[ZebreLoup]

Le message d'erreur ressemble plus à un problème au niveau de la requête elle-même, pas de la connexion. Elle marche la requête quand tu la fais au niveau de la base ? Essaie de passer par un string intermédiaire, histoire de pouvoir récupérer dans le debug la requête exacte.