Discussion :

[AMVBA]

Bonjour,


J'ai deja poste deux messages sur le forum concernant un code qui ne foctionne pas ( dt un message intitule #verifcation de mon code#) : aucune reponse en trois jours :-(

Je re-formule donc ma demande,

J'aimereais importer une requete en SQl sur une bd Access (via OLEDB ou ODBC grace a ADO) sur un feuille Excel a un endroit precis

Qq1 pourrait-il me donner un modele de code en exemple ? (NB j'ai deja la requete forulee en SQL donc ok pour ca


Merci d'avance et en esperant que j'aurai au moins une reponse cette fois ci

Am

[MasterSleepy]

Salut,

J'aimereais importer une requete en SQl sur une bd Access (via OLEDB ou ODBC grace a ADO) sur un feuille Excel a un endroit precis

Je suppose que tu voulais dire
"depuis Access vers Excel"

Pourquoi ne pas utiliser la fonction prévu a cette effet dans Access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 DoCmd.OutputTo acOutputQuery, "le nom de ta query", acFormatXLS

A+,
MasterSleepy.

[AMVBA]

Bonjour,


Merci infiniment pour ta reponse.

Toutefois, je souhaite programmer la requete directement dans le code, via du SQL

Je n'ai donc pas de requete pre faite sur access

Aurait-tu une autre idee?

[MasterSleepy]

Voici un bout de code qui devrait d'aiguiller.

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
Sub extract(lconADO As ADODB.Connection, lstrSQL As String)
    Dim lrecRead As Recordset
    Dim lfldField As Field
    Dim llngCol As Long
    Dim llngRow As Long
 
    Dim lappExcel As Excel.Application
    Dim lwkbWorkbook As Excel.Workbook
    Dim lwksWorkSheet As Excel.Worksheet
 
    Set lappExcel = New Excel.Application
    Set lwkbWorkbook = lappExcel.Workbooks.Add
    Set lwksWorkSheet = lwkbWorkbook.Worksheets.Add
 
    lwksWorkSheet.Name = "Extract"
 
    Set lrecRead = lconADO.Execute(lstrSQL)
 
    For llngCol = 1 To lrecRead.Fields.Count
 
        lwksWorkSheet.Cells(1, llngCol) = lrecRead.Fields(llngCol).Name
 
    Next llngCol
 
    llngRow = 2
    While Not lrecRead.EOF
        For llngCol = 1 To lrecRead.Fields.Count
 
            lwksWorkSheet.Cells(llngRow, llngCol) = lrecRead.Fields(llngCol).Value
 
        Next llngCol
 
        llngRow = llngRow + 1
 
        lrecRead.MoveNext
    Wend
 
    lrecRead.Close
 
    lappExcel.Visible = True
 
 
End Sub

Il faut avoir la référence vers Excel de cocher.
Je ne l'ai absolument pas testé.

A+,
MasterSleepy.

[AMVBA]

Re-,

Merci beaucoup pour ton aide. Cependant, j'ai teste la macro, et j'obtients un message d'erreur:

Run-time error '-2147467259 (80004005)'
The Microsoft Jet Database engine could not open the file 'chemin d'acces de ma base de donnees'.
It is opened exclusively by another user or you need permission to view these data.

Je commence vraiement a deprimer, cela fait une semaine que j'y arrive pas



Merci d'avance
PS: cette macro se fait un poste au bureau, ou les PC sont en reseau, cela peut-il expliquer le probleme? En sachant que la base de donnee manipulee est situee sur mon disque dur prive de mon PC

[MasterSleepy]

Salut,

Il faut bien sur que le connexion à la base de donnée soit ouvert et fonctionnel.
Il faut que tu testes ta connexion.

Comment ouvres-tu ta connexion?

A+,
MasterSleepy.

[AMVBA]

Bonjour,


Voici un bout de mon code ou je declare mes variables et definit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Cnn1 As ADODB.Connection, Cmd1 As ADODB.Command, MonRs As ADODB.Recordset
Dim ColNum As Long, LigNum As Long
'Declaration des variables'
 
Set Cnn1 = New ADODB.Connection 'Assignation de l'objet Connection'
    With Cnn1
    .Provider = "Microsoft.Jet.OLEDB.4.0;" 'Defintion du Provider/Fournisseur de donnees'
    .ConnectionTimeout = 30 'Definition du temps de rafraichissement des donnees
    .Mode = adModeRead
    .Open "Data Source=C:\PB AM;User Id=Admin; Password="
End With

J'avais aussi pense que peut-etre c 'etait lie au fait que je bosse sur un PC en reseau ?

Qu'en penses tu ?


Merci d'avance
AM

[Invité]

Bonjour

As-tu lus ce tuto de Caféine http://cafeine.developpez.com/access/tutoriel/excel/

Starec