Discussion :

[SansFAP]

Bonjour tout le monde,

J'ai une base de données sous format Excel avec 2 feuilles.

Sur un autre fichier Excel j'aimerais pouvoir importer des données à partir de cette base (de la feuille 1) avec des requêtes SQL en Visual Basic.

En gros, j'aimerais faire en VBA ce que fait MS Query.

Quelqu'un aurait une idée ?

PS : Je suis débutant

Merci d'avance.

[aereno]

Bonjour,

Tu peux enregistrer une macro et créer une requête MS QUERY que tu pourra éditer par la suite.

Tu peux aussi utiliser une requête paramétrée.

Mais pour manipuler les données d'un onglet dans un autre, il y a probablement une solution moins lourde.

Peut être les filtres avancés...

[SansFAP]

Merci pour ta réponse, mais j'ai pas compris.


J'ai mis ça mais ça marche pas ...

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
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Microsoft Office Database;DBQ=C:\Database\BaseDonnees.xls;DefaultDir=C:\Database;DriverId=25;FIL=Microsoft Office;Ma" _
        ), Array("xBufferSize=2048;PageTimeout=5;")), Destination:=Range("B3"))
        .CommandText = Array( _
        "SELECT `Cours`.Com, `Cours`.Mail " & Chr(13) & "" & Chr(10) & "FROM `C:\Database\BaseDonnees`.`Cours$` `Cours$`" & Chr(13) & "" & Chr(10) & "WHERE (`Cours``.Mail='toto@toto.fr')")
        .Name = "Requête Test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
End With

[Michel_M]

Bonjour

As tu regardé ce tuto sur ADO-SQL ?

http://silkyroad.developpez.com/VBA/ClasseursFermes/