Fermeture connexion Access

**victorzecat** · 28/09/2016, 17h54

Bonjour, Code qui fonctionne, permettant de filtrer une connexion Query vers une base Access, en revanche je ne parviens pas à trouver la solution pour couper la connexion avec la BDD après rafraichissement. (afin que la base soit dispo pour un autre utilisateur)... Des solutions? Merci d'avance!....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub REQSQL()
 
'-------------------------------------------------PRINCIPE DE FONCTIONNEMENT----------------------------------------------------'
'                                                                                                                               '
' Permet d'extraire des données d'une requête/table selon une variable précise (exemple convention)                             '                                             '
'                                                                                                                               '
'-------------------------------------------------------------------------------------------------------------------------------'
 
Dim Nomconnect As Variant   'Nom de la connexion établie dans excel
Dim connect As Variant      'Chemin et nom de la BDD Access
Dim reqconv As Variant      'Emplacement de la variable recherchée
Dim dimconv As Variant      'Dimension de la table/requête selectionnée
Dim rq As Variant           'table/requête selectionnée
Dim cmdsql As Variant       'Commande SQL
 
Application.ScreenUpdating = False
 
 '                                                        **
 '                                                    **********
 '                                                        **
'----------------------------------------------------PARAMETRAGES------------------------------------------------------
 
Nomconnect = "DataTest - CONDITIONS"
connect = "\\mg21\DataTest.accdb"
reqconv = ActiveWorkbook.Worksheets("CONTRAT").Range("C3").Value
dimconv = "CONV"
rq = "CONDITIONS"
cmdsql = "SELECT * FROM " & rq & " WHERE " & rq & "." & dimconv & " = (""" & reqconv & """)" 
 
 '                                                        **
 '                                                    **********
 '                                                        **
'-------------------------------------------------------REQUETE----------------------------------------------------------
 
 
    With ActiveWorkbook.Connections(Nomconnect).OLEDBConnection
        .CommandText = Array(cmdsql)
        .Connection = Array("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & connect)
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
    End With
 
    ActiveWorkbook.Connections(Nomconnect).Refresh
 
'-------------------------------------------------------FIN--------------------------------------------------------------
 
    Application.ScreenUpdating = True
 
End Sub

**victorzecat** · 28/09/2016, 21h49

J'ai écrit ce code, il fonctionne très bien, mais je ne parviens pas à fermer la connexion avec ma base (Access), tant que le fichier Excel est ouvert.

J'aimerai que la connexion se ferme après le rafraichissement : merci par avance pour votre aide quant à ce dernier point!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub REQSQL()
 
'-------------------------------------------------PRINCIPE DE FONCTIONNEMENT----------------------------------------------------'
'                                                                                                                               '
' Permet d'extraire des données d'une requête/table selon une variable précise (exemple convention)                             '                                             '
'                                                                                                                               '
'-------------------------------------------------------------------------------------------------------------------------------'
 
Dim Nomconnect As Variant   'Nom de la connexion établie dans excel
Dim connect As Variant      'Chemin et nom de la BDD Access
Dim reqconv As Variant      'Emplacement de la variable recherchée
Dim dimconv As Variant      'Dimension de la table/requête selectionnée
Dim rq As Variant           'table/requête selectionnée
Dim cmdsql As Variant       'Commande SQL
 
Application.ScreenUpdating = False
 
 '                                                        **
 '                                                    **********
 '                                                        **
'----------------------------------------------------PARAMETRAGES------------------------------------------------------
 
Nomconnect = "DataTest - CONDITIONS"
connect = "\\mg21\DataTest.accdb"
reqconv = ActiveWorkbook.Worksheets("CONTRAT").Range("C3").Value
dimconv = "CONV"
rq = "CONDITIONS"
cmdsql = "SELECT * FROM " & rq & " WHERE " & rq & "." & dimconv & " = (""" & reqconv & """)" 
 
 '                                                        **
 '                                                    **********
 '                                                        **
'-------------------------------------------------------REQUETE----------------------------------------------------------
 
 
    With ActiveWorkbook.Connections(Nomconnect).OLEDBConnection
        .CommandText = Array(cmdsql)
        .Connection = Array("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & connect)
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
    End With
 
    ActiveWorkbook.Connections(Nomconnect).Refresh
 
'-------------------------------------------------------FIN--------------------------------------------------------------
 
    Application.ScreenUpdating = True
 
End Sub

**joe.levrai** · 28/09/2016, 22h34

Bonjour,

la méthode Delete ?

Simple lecture de l'aide

, je n'ai jamais utilisé ce type de connexion

**victorzecat** · 29/09/2016, 10h17

J'ai essayé avec les méthodes delete et close, ça ne fonctionne pas (erreur 438)

**victorzecat** · 29/09/2016, 11h04

La méthode delete fonctionne, mais çela supprime la liaison de mon classeur. - n'y a-t-il pas une autre méthode pour fermer la connexion sans la supprimer? j'ai essayé avec Close mais erreur 438

Invité · 29/09/2016, 12h00

Nom : Sans titre.png
Affichages : 822
Taille : 60,2 Ko

**Jean-Philippe André** · 29/09/2016, 12h05

Salut,

pour fermer une connexion, tu peux utiliser la methode Delete

Code :

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

ActiveWorkbook.Connections(NomConnect).Delete

Invité · 29/09/2016, 12h11

http://www.developpez.net/forums/d16...b/#post8755248

**victorzecat** · 29/09/2016, 12h58

ok ça fonctionne!

**victorzecat** · 29/09/2016, 13h03

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub REQSQL()
 
'-------------------------------------------------PRINCIPE DE FONCTIONNEMENT----------------------------------------------------'
'                                                                                                                               '
' Permet d'extraire des données d'une requête/table selon une variable précise (exemple convention)                             '                                             '
'                                                                                                                               '
'-------------------------------------------------------------------------------------------------------------------------------'
 
Dim Nomconnect As Variant   'Nom de la connexion établie dans excel
Dim Piloteodc As Variant    'liaison du pilote odc (créer liaison enregistrer sous)
Dim connect As Variant      'Chemin et nom de la BDD Access
Dim reqconv As Variant      'Emplacement de la variable recherchée
Dim dimconv As Variant      'Dimension de la table/requête selectionnée
Dim rq As Variant           'table/requête selectionnée
Dim cmdsql As Variant       'Commande SQL
 
Application.ScreenUpdating = False
 
 '                                                        **
 '                                                    **********
 '                                                        **
'----------------------------------------------------PARAMETRAGES------------------------------------------------------
 
Nomconnect = "DataTest - CONDITIONS"
Piloteodc = "\\mg21\ODC\" & Nomconnect & ".odc"
connect = "\\mg21\DataTest.accdb"
reqconv = ActiveWorkbook.Worksheets("CONTRAT").Range("C3").Value
dimconv = "CONV"
rq = "CONDITIONS"
cmdsql = "SELECT * FROM " & rq & " WHERE " & rq & "." & dimconv & " = (""" & reqconv & """)" 
 
 '                                                        **
 '                                                    **********
 '                                                        **
'-------------------------------------------------------REQUETE----------------------------------------------------------
 
ActiveWorkbook.Connections(Nomconnect).Delete
 
ActiveWorkbook.Connections.AddFromFile Piloteodc
 
    With ActiveWorkbook.Connections(Nomconnect).OLEDBConnection
        .CommandText = Array(cmdsql)
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
    End With
 
    ActiveWorkbook.Connections(Nomconnect).Refresh
 
 
'-------------------------------------------------------FIN--------------------------------------------------------------
 
    Application.ScreenUpdating = True
 
End Sub

**victorzecat** · 29/09/2016, 17h58

Dernière question :
Lorsqu'un utilisateur obtient ce type de message; quelle est la raison du symptome?

Nom : err.jpg
Affichages : 766
Taille : 25,4 Ko

Merci pour vos réponses!

**Jean-Philippe André** · 30/09/2016, 10h01

Salut,

je pencherais pour un mot de passe incorrect.

Invité · 30/09/2016, 10h32

bonjour,
personnellement j'opterais pour un connecteur ODBC (on la détermine dans le gestionnaire ODBC{panneau de configuration} de Windows) via un dsn fichier sur le serveur et je ne modifiais pas ma connexion dans Excel!

je vérifiais le mode exclusif de ma base Access et tout le toutim!

attention voir dans le option Excel si un connexion interne à XLS ne verrouille quand même pas le base de données ça je suis moins compétant!