exportation d une requete vers Excel

**lolipop65** · 29/08/2008, 10h24

Bonjour,

je souhaite exporter le resultat d une requete sur excel et j ai trouve le code suivant :

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
 
message = MsgBox("Do you want to export the relative data to an Excel application ?", vbYesNo)
 
If message = vbYes Then
 
    Dim appexcel As Excel.Application
    Dim wbexcel As Excel.Workbook
    Dim wsexcel As Excel.Worksheet
 
 
'Appel du fichier Excel
 
    Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True
    Set wbexcel = appexcel.Workbooks.Open("....xls")
 
'Appel de la feuille correspondante
 
    appexcel.Sheets("Daily").Select
 
 
'Remplissage dans Excel (Exemple à partir d'une requête), sur des cellules bien précises
    For I = 2 To 31
 
    appexcel.Cells(1, I) = rst![Nomduchamp1]
    appexcel.Cells(3, I) = rst![Nomduchamp2]
etc...
 
     Next I
End If

seulement je ne vois pas a quel moment on dit a partir de quelle requete on exporte...

Pourriez vous m eclairer ??

Merci pour votre aide

**lolipop65** · 29/08/2008, 10h27

j ai egalement trouve ce code :

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
Dim rec As Recordset
 
    Set rec = CurrentDb.OpenRecordset("Clients", dbOpenSnapshot)
 
    ' recopie des données à partir de la ligne 3
    I= 3
    Do While Not rec.EOF
 
                xlSheet.Cells(..., I) = rec.Fields(J)
 
        I = I + 1
        rec.MoveNext
    Loop
 
    ' code de fermeture et libération des objets
    xlBook.Save
    xlApp.Quit
    rec.Close
    Set rec = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

**6ril25** · 29/08/2008, 10h31

Salut,

tu as tout ce qu'il te faut (le 2ème post suffit

)
Donne moi ta requête et je te le modifie pour que tu puisses l'utiliser.

**lolipop65** · 29/08/2008, 10h39

Ma requete ???

elle s appelle "Daily ALL"

J ai une feuille Excel deja prete...avec environ 20 lignes a remplir...(oui mon remplissage doit se faire en lignes et pas en colonnes sinon on ne comprend rien)

**6ril25** · 29/08/2008, 10h43

Tu peux me donner le détail de ta requête, que je puisse faire en fonction du nombre de champs

**lolipop65** · 29/08/2008, 10h57

je comprends pas...

tu veux les noms des champs ??
il y en a 15...
disons champ1, champ2, champ3, etc...non ?

**6ril25** · 29/08/2008, 11h12

ok, donc:

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
 
Dim rec As Recordset
 
    Set rec = CurrentDb.OpenRecordset("Daily ALL", dbOpenSnapshot)
 
    ' recopie des données à partir de la ligne 1
    I= 1
    Do While Not rec.EOF
 
                xlSheet.Cells(1, I) = rec.Fields("champs1").value
                xlSheet.Cells(2, I) = rec.Fields("champs2").value
[...]
                xlSheet.Cells(15, I) = rec.Fields("champs15").value
 
        I = I + 1
        rec.MoveNext
    Loop
 
    ' code de fermeture et libération des objets
    xlBook.Save
    xlApp.Quit
    rec.Close
    Set rec = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

**lolipop65** · 29/08/2008, 12h17

merci ca marche

par contre une petite question .... ca veut dire quoi quand excel te dit que tu ne peux ouvrir ton fichier qu en mode "read only"...??

En fait a chaque fois que j exporte, il m ouvre de nouveau mon fichier Excel, et il me dit qu il ne peut pas le sauver car il est en mode "read only"...