Importer des données à partir d'un fichier excel

Version imprimable

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:

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

21/06/2011, 03h33
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 :mur:

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

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:

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

21/06/2011, 10h20
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

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:

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,

25/06/2011, 19h05
AlainTech

Il faut tout lire dans les tutos:

Citation:

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.