Discussion :

[debmlc]

Bonjour,
Je dois travailler,à partir d'excel, sur un fichier supérieur au nbre de lignes gérés(65000)
pour résoudre le problème , je souhaite à partir d'une macro d'excel :
lancer access
importer un fichier format dbf
exécuter une requête qui sélectionne les enregistrements à partir d'une date donnée
exporter les résultats de cette requête dans un fichier excel
merci

[Pierre Fauconnier]

Bonjour.

Je ne comprends pas pourquoi tu veux extraire des données d'Access via un fichier BDF.

Le plus simple à mon avis, réside dans deux solutions.

Solution san VBA
Utiliser Microsoft Query via le menu Données/Données Externes/Créer une requête qui t'ouvre l'environnement MSQUERY, proche de l'assistant requêtes de Access.

Solution avec VBA
Travailler via des objets ADO qui permettent de générer des requêtes "attaquant" des bases Access. Pour cela, tu peux t'inspirer de ceci:

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
 
Sub RequeteAccess()
    Dim Connexion As New ADODB.Connection
    Dim RS As New ADODB.Recordset
    Dim Cellule As Range
 
    Connexion.Open "DSN=MS Access Database;DBQ=C:\DONNÉES\Contacts.mdb;FIL=MS Access;"
    Set RS = Connexion.Execute("select * from tcontacts")
 
    Do While Not RS.EOF
        Set Cellule = Range("a65536").End(xlUp)(2)
        With RS
            Cellule(1, 1) = !conid
            Cellule(1, 2) = !connom
            Cellule(1, 3) = !conprenom
            .MoveNext
        End With
    Loop
 
End Sub

qui attaque une table tContacts contenant les champs ConID, ConNom et ConPrenom, la table étant contenu dans un fichier renseigné dans le DBQ de la chaîne de connexion.

Ok?