Comment extraire des données d'une base de données à l'aide de macros Excel

Presse "Alt" et "F11" à partir de la page Excel à laquelle vous souhaitez importer les données. Cela ouvre l'éditeur Visual Basic (VBE).

Cliquer sur "Insérer" et puis "Module." Cela ouvre une fenêtre vierge pour votre code.

Tapez le code de votre extraction dans la fenêtre vide de base de données. Par exemple, le code suivant extrait les données à partir d'une base de données Access et importe dans un tableur:

Sous proSQLQuery1 ()
Dim varConnection
Dim varSQL

 Gamme ("A1".CurrentRegion.ClearContents)
varConnection = "ODBC- DSN = MS Access Database-DBQ = C: test.mdb- Driver = {Pilote faire Microsoft Access (* .mdb)}"
varSQL = "SELECT tbDataSumproduct.Month, tbDataSumproduct.Product, tbDataSumproduct.City FROMtbDataSumproduct"



Avec ActiveSheet.QueryTables.Add (Connection: = varConnection, Destination: = ActiveSheet.Range ("A1"))
.CommandText = varSQL
.Name = "Query-39008"
.Actualiser BackgroundQuery: = False
End With

End Sub

Presse "F5" pour exécuter le code.

Cliquer sur "Fichier," puis cliquez sur "Fermer et retourner à Microsoft Excel" sur le menu Fichier.