Discussion :

[atk_49]

Bonsoir.

Je souhaiterais exploiter les données d'un fichier .mdb, contenant un peu plus d' 1100000 lignes.

La structure de la bdd est la suivante :
Table1 :
Champ1 = Numéro de série
Champ2 = Info produit 1
Champ3 = Info produit 2
Champ4 = Info produit 3
Champ5 = Info produit 4

Dans un fichier excel, j'écris un numéro de série dans la cellule A1 de la Feuille1, j'aimerais alors que les lignes correspondantes au numéro de série soient collées dans la feuille 2 du classeur excel.
Exactement comme ce qui est indiqué sur cette page, mais avec un filtrage préalable des données.

Pouvez-vous m'aider ?

Merci d'avance et bonne fin de journée.

[78chris]

Bonjour

Une solution sans VBA ici http://www.excel-formations.fr/Trucs...s/ACCESS01.php mais qui peut aussi être évoquée via VBA...

[atk_49]

Merci 78chris, je vais creuser dans cette direction.

[atk_49]

La solution de Chris fonctionne parfaitement. Il faut juste prévoir de rafraîchir les données au bon moment et de désactiver la mise à jour en arrière plan.

Merci !

[atk_49]

Une dernière remarque toujours à ce sujet.

J'ai remarqué que depuis la mise en place de cette méthode, le processus excel.exe ne se termine pas toujours (problème aléatoire) à la fermeture du classeur excel.
Il semblerait que ça soit la liaison avec la base de donnée access qui ne se clôture pas à la fermeture d'excel.

Comment puis-je résoudre ce problème qui empêche le bon fonctionnement du classeur lors de sa réouverture ?

Merci.

[78chris]

Bonjour

Utilises-tu juste la liaison vers la requête Access ou y a-t-il du code VBA ?

[Invité]

]Bonsoir,
Personnellement j'ai une base access utilisée par une quinzaine d'utilisateurs sens problème.

Il faut aller dans les paramètre Access et rendre la base partagé sens verrouillage des enregistrements.

En revanche Excel a la fâcheuse habitude à ouvrir ses connectons en mode exclusive !

Je ne laisse jamais Excel gérer les choses pour moi. J'utilise Ado.

D'ailleurs, je n'ai prévu aucune commande pour fermer la bdd, en existe il une ?

Quand tu quittes ton fichier Excel la connexion est rendu au {Garbage collecteur}, la connexion n'est pas a proprement parlé clôturée, c'est Windows qui la referme après quelque temps plus ou moins long!

[atk_49]

Bonjour.

Voici les paramètres d'Access à ce sujet, ils me semblent corrects.



Je ne connais pas du tout ADO, penses-tu que ma demande soit réalisable avec cette méthode ?

Merci.

[Invité]

Bonjour,
dans Access décoche avec enregistrement verrouillés.

Code Module de classe1 :

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
Private Cn As Object, Base_ As String
Private Sub Class_Initialize()
Set Cn = CreateObject("Adodb.connection")
End Sub
Public Property Let Base(Value As String)
Base_ = Value
End Property
Private Sub connection()
On Error Resume Next
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base_
If Err Then MsgBox Err.Description
On Error GoTo 0
End Sub
Private Sub Class_Terminate()
If Cn.State <> 0 Then Cn.Close
Set Cn = Nothing
End Sub
Public Function OpenRecordset(Sql) As Object
If Cn.State = 0 Then connection
If Cn.State <> 0 Then
    On Error Resume Next
    Set OpenRecordset = Cn.Execute(Sql)
    If Err Then MsgBox Err.Description
    On Error GoTo 0
End If
End Function
Public Function Execute(Sql) As Object
If Cn.State = 0 Then connection
If Cn.State <> 0 Then
    On Error Resume Next
   Cn.Execute (Sql)
    If Err Then MsgBox Err.Description
    On Error GoTo 0
End If
End Function

Code Module standard :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Cn As New Classe1
Sub test()
Cn.Base = "C:\Users\dysorthographie\Documents\Base de données1.mdb"
Set Rs = Cn.OpenRecordset("SELECT Toto.* FROM Toto WHERE Toto.Identifian='ad';")
If TypeName(Rs) = "Nothing" Then Exit Sub
With Rs
    For i = 0 To .Fields.Count - 1
        ActiveSheet.Range("A1").Offset(, i) = .Fields(i).Name
    Next
        ActiveSheet.Range("A2").CopyFromRecordset Rs
End With
End Sub

[atk_49]

Enorme merci à toi dysorthographie

Cette technique est merveilleuse, j'ai suivi le tuto dispo sur cette page, et tout fonctionne mieux, plus fluide, plus fiable, bref, le top !

Excellent week-end à vous !