Bonjour,
j'ai un problème pour importer des données d'une base de données excel ,je veux recupérer des colonnes de la base et les coller dans mon fichier


je suis arrivé à faire la meme chose, par contre la base est un fichier access

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 Bouton1_Clic()
 
 
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim strSQL As String
 
    'Set Db = DAO.OpenDatabase("P:\base de données radio\Update_ODBC.mdb", False, False)
    Set Db = DAO.OpenDatabase("c:\Update_ODBC.mdb", False, False)
    'strSQL = "SELECT * FROM [dbo]"
    strSQL = "SELECT region,Alerte_data FROM [dbo] "
 
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
 
   Feuil3.Range("A4").CopyFromRecordset Rs
 
    Db.Close
 
'End If
End Sub