Discussion :

[angelevil]

Bonjour à tous.

J'aimerais savoir s'il est possible de prendre le contenu d'une requête SQL venant d'un BD Access et l'envoyer dans une feuille EXCEL ????

Merci

AngelEvil!

[Skalp]

Oui, c'est possible.
Quel est ton point de blocage ? Quel est ton niveau de connaissance sur les accès base de données ?

[angelevil]

Je sais programmer en mode connecté (lecture et action dans les enregistrement) et non connecté (lecture seulement) en .NET.

J'ai aussi programmé dans le passé en DAO et ADO avec VB 6.0.

C'est la première fois que je vais travailler avec du EXCEL dans un programme.

Je cherche un bout de code pour me montrer comment créer en mémoire un classeur excel et l'insertion des données venant d'une requête faite sur des tables dans une BD Access.

Voilà la raison de ma question.

Merci.

AngelEvil!

[Skalp]

Une FAQ répond à ta question : Comment importer les données d'une table Access vers un nouveau classeur Excel ?
C'est du VBA, mais tu devrais pouvoir le transcrire en VB.

[angelevil]

Merci

je vais lire cela avec attention!

AngelEvil!

[angelevil]

Bonjour!

Je sais que ça fait quelques jours que j'ai posté ici.... mais j'ai essayé de transférer le contenu d'une requête dans un fichier Excel....

J'ai codé ceci et ca bloque quelque part....

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
39
40
41
42
43
44
45
46
47
48
49
 
        Dim requete As String = vbEmpty
        Dim nom_fichier As String = vbEmpty
 
        If Radio_Btn_Date.Checked = True Then
            requete = "select * [Excel 8.0;" & _
            "Database=" & Chemin_XLS & "\" & nom_fichier & "].[" & "Resultat requete" & "] from Boites where date_boite between #" & Me.DTP_Date_Depart_Rapport.Value.Date & "# and #" & Me.DTP_Date_Fin_Rapport.Value.Date & "# order by date_boite"
            nom_fichier = "Liste_Entitees_Date_Debut_Fin_" & System.DateTime.Now & ".xls"
        ElseIf Radio_Btn_Tout.Checked = True Then
            requete = "select * [Excel 8.0;" & _
            "Database=" & Chemin_XLS & "\" & nom_fichier & "].[" & "Resultat requete" & "]from Boites order by date_boite"
            nom_fichier = "Liste_Complete_Entitees_" & System.DateTime.Now & ".xls"
        ElseIf Radio_Btn_Erreurs.Checked = True Then
            requete = "select * [Excel 8.0;" & _
            "Database=" & Chemin_XLS & "\" & nom_fichier & "].[" & "Resultat requete" & "] from Boites order by date_boite where probleme = " & True & ""
            nom_fichier = "Liste_Entitees_En_Probleme_" & System.DateTime.Now & ".xls"
        End If
 
        ' Mode non connecté
 
        Dim strCon$ = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & chemin & BD & ";")
        Dim CnRapp As New OleDb.OleDbConnection
        Dim CmdR As OleDb.OleDbCommand
        Dim DtAdapteurRapp As New OleDb.OleDbDataAdapter
        Dim DtsetRapp As New DataSet()
 
        CnRapp.ConnectionString = strCon
        CnRapp.Open()
        CmdR = CnRapp.CreateCommand() 'Creation de commande
        'Transfert les données d'Access vers Excel
        CmdR.CommandText = requete
 
        Try
            DtsetRapp = New DataSet
            DtAdapteurRapp = New OleDb.OleDbDataAdapter
            DtAdapteurRapp.SelectCommand = CmdR
            DtAdapteurRapp.Fill(DtsetRapp, "Boites")
            CmdR = Nothing
            CnRapp = Nothing
            DtsetRapp = Nothing
            DtAdapteurRapp = Nothing
 
        Catch
            CmdR = Nothing
            CnRapp = Nothing
            DtsetRapp = Nothing
            DtAdapteurRapp = Nothing
 
        End Try

Le code bloque dans try avec cette ligne de code : DtAdapteurRapp.Fill(DtsetRapp, "Boites") Ca me renvoie dans le catch....

Avez-vous une idée ou serait le problème ?

Merci!

AngelEvil