Discussion :

[aminee1666]

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

[Invité]

Bonjour

Et où est le problème ?
Le résultat n'est pas celui attendu ?
Un message d'erreur ? Si oui lequel ?

Pourquoi ne pas donner tous les détails tout de suite

Es-tu sûr de ta requête ? As tu bien une table qui se nomme dbo avec les champs region et Alerte_data ?

Philippe

[aminee1666]

bonjour,
le resultat est juste ,je veux faire la meme macro pour une base donner excel
j'ai une base en excel :base_1.xls, est je veux importer la colonnes (A) de la feuil 1 de la base,dans mon classeur

je ne sais pas est ce que le principe de DAO fonctionne pour importer des données provenants d'une base excel

j'ai fais la même procédure mais sa marche pas:erreur format de base de donnée non reconnu

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
Sub Bouton5_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\base_1.xls", False, False)
    strSQL = "SELECT Region FROM [feuil1] "
 
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
 
   Feuil3.Range("O4").CopyFromRecordset Rs
 
    Db.Close
 
 
End Sub

je ne sais pas est ce que il y a une autre méthode pour importer les données


Merci pour votre aide

[Invité]

Re

Effectivement ce n'était pas clair, lis cela : http://silkyroad.developpez.com/VBA/ClasseursFermes/

Tu verras comment utiliser le SQL avec Excel.

Philippe

[aminee1666]

Merci pour votre réponse Philippe


j'ai suvie la méthode ADODB pour importer les données , le programme me génère une erreur " type défini par l'utilisateur non défini"

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Bouton5_Clic()
 
Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "P:\base de données radio\Donnees_3G2G.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "REGIONS_S"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Range("O2").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Merci d'avance,

[AlainTech]

Il faut tout lire dans les tutos:

Vous devez préalablement activer la référence Microsoft ActiveX Data Objects x.x Library pour utiliser les exemples présentés dans ce tutoriel.