Discussion :

[Renardo]

Bonjour a tous
J'aimerais savoir si il est possible d'exporter une requete avec une sous requete sur excel.
Actuellement la requete est exporte mais pas ma sous requete
Merci d'avance pour vos Info

[loufab]

Bonjour,

Que ce soit un requete ou une sous requete il s'agit toujours de requete, utilise la même méthode pour les 2 mais l'une après l'autre.

Cordialement,

[Renardo]

Merci pour ta reponse mais elle ne m'arrange pas vraiment
je pensais pouvoir utiliser ma requete (sans doublon) pour creer mes onglets
et ma sous requete pour ranger mes donnees dans chaque onglets correspondant.
J'ai essayer d'autre astuce, mais je bloque au niveau de la selection des onglets
Mais onglet porte un N°Serie et je voudrais que chaque Enregistrement qui porte le meme N°Serie se range sur la feuille correspondante

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
Private Sub Commande0_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim AppliExcel As Excel.Application
Dim FichierExcel As Excel.Workbook
Set db = CurrentDb
Set rst = db.OpenRecordset("Excel", dbOpenSnapshot)
Set AppliExcel = CreateObject("Excel.Application")
AppliExcel.Visible = True
Set FichierExcel = AppliExcel.Workbooks.Open("c:\Sauvegarde\control1.xls")
 AppliExcel.Sheets(rst.Fields(7)).Select
col = 1
Row = 1
 While Not rst.EOF
 
 col = col + 1
AppliExcel.Cells(5, col) = rst.Fields(1)
Row = Row + 1
AppliExcel.Cells(6, col) = rst.Fields(2)
Row = Row + 1
AppliExcel.Cells(7, col) = rst.Fields(3)
Row = Row + 1
AppliExcel.Cells(8, col) = rst.Fields(4)
Row = Row + 1
rst.MoveNext
Wend
End Sub

le probleme vient de la ligne qui selectione l'onglet
AppliExcel.Sheets(rst.Fields(7)).Select
Erreur incompatibilite de type
merci pour toute l'aide que vous pourrez m'aporter

[loufab]

Bonjour

Sheets est un objet de FichierExcel et non de AppliExcel.

Le paramètre attendu pour sheets est du texte donc faire ceci :

Code :

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

FichierExcel.Sheets(CStr(rst.Fields(0))).Select

Cordialement,

[Renardo]

Merci pour ton aide sa fonctione
mais j'ai un autre petit souci comme tu peux le voir dans le code j'ajoute une colonne apres chaque enregistrement se qui fait que
Exemple
sur la page 1 je vais avoir la colonne 1 et 2 de remplis
et sur la page 2 les enregistrements vont commencer a la colonne 3
voix tu une solution pour que sur la page 2 les enregistrements commence a la colonne 1
Merci encore

[ft035580]

Salut,

voix tu une solution pour que sur la page 2 les enregistrements commence a la colonne 1

et si tu mettais:

Code :

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

1
2
3
4
5
6
7
...
AppliExcel.Cells(8, col) = rst.Fields(4)
Row = Row + 1
rst.MoveNext
Col=1
Wend

[Renardo]

Resolu
Merci a vous pour votre aide et bon week end

[Renardo]

Bonjour a tous
Desole je pensais que FTO35580 avait resolu mon probleme mais non
Code FTO35580

Code :

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

1
2
3
4
5
6
...
AppliExcel.Cells(8, col) = rst.Fields(4)
Row = Row + 1
rst.MoveNext
Col=1
Wend

cela me copie bien les donnees sur la premiere colonne de chaque feuilles mais si j'ai plusieur donnees pour une feuille il me les copie aussi sur la premiere colonne

Je joint mon ancien post

comme vous pouvez le voir dans le code j'ajoute une colonne apres chaque enregistrement se qui fait que
Exemple
sur la page 1 je vais avoir la colonne 1 et 2 de remplis
et sur la page 2 les enregistrements vont commencer a la colonne 3
je cherche une solution pour que sur la page 2 les enregistrements commence a la colonne 1

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
Private Sub Commande1_Click()
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim AppliExcel As Excel.Application
Dim FichierExcel As Excel.Workbook
Set db = CurrentDb
Set rst = db.OpenRecordset("Excel", dbOpenSnapshot)
Set AppliExcel = CreateObject("Excel.Application")
AppliExcel.Visible = True
Set FichierExcel = AppliExcel.Workbooks.Open("c:\Sauvegarde\control1.xls")
 
col = 1
Row = 1
 While Not rst.EOF
 FichierExcel.Sheets(CStr(rst.Fields(7))).Select
 col = col + 1
AppliExcel.Cells(5, col) = rst.Fields(1)
Row = Row + 1
AppliExcel.Cells(6, col) = rst.Fields(2)
Row = Row + 1
AppliExcel.Cells(7, col) = rst.Fields(3)
Row = Row + 1
AppliExcel.Cells(8, col) = rst.Fields(4)
Row = Row + 1
rst.MoveNext
Wend
End Sub

merci d'avance pour votre aide