Discussion :

[Renardo]

bonjour a tous
je voudrai savoir si il possible d'exporter une requete sur excel avec cette mise en page

Entete ........Donnee.........donnee

Epaisseur :....15 ............... 23
Largeur :.......70................120
Longueur :.....1200.............900
ect..

Si cela est possible que faut il modifier dans se code

Code :

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

1
2
3
4
5
6
7
 ' les entetes
    '  .Fields(Index).Name renvoie le nom du champ
    For J = 0 To rec.Fields.Count - 1
        xlSheet.Cells(4, J + 2) = rec.Fields(J).Name
        ' Nous appliquons des enrichissements de format aux cellules
        With xlSheet.Cells(4, J + 1)
            end With

Merci d'avance pour votre aide

[Heureux-oli]

Tu nous donnes le format final, mais on aurait aussi besoin du format de départ.
Avec la comparaison de l'entrée et de la sortie, il est alors possible de définir ce qu'il faut faire.

[Renardo]

Au depart j'ai cela
Epaisseur......Largeur.....Longueur.......Exct...
....15.............70...........1200
....23.............120...........900

et je voudrais avoir ceci

Entete ........Donnee.........donnee

Epaisseur :....15 ............... 23
Largeur :.......70................120
Longueur :.....1200.............900

je pense que sais cela que tu voulais savoir
merci pour ton aide

[Heureux-oli]

Ici il y a un exemple qui pourrais peut-être te convenir.

[Renardo]

peut etre que je m'y prend mal mais avec se 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
23
24
25
Private Sub BoutonExport_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("TaTable", dbOpenTable)
Set AppliExcel = CreateObject("Excel.Application")
AppliExcel.Visible = True
Set FichierExcel = AppliExcel.Workbooks.Open("Chemin Fichier.Xls")
AppliExcel.Sheets("FeuilleDeTonFichier").Select
Row = 1
 While Not rst.EOF
AppliExcel.cells(Row, 1) = rst.Fields(0)
Row = Row + 1
AppliExcel.cells(Row, 1) = rst.Fields(1)
Row = Row + 1
AppliExcel.cells(Row, 1) = rst.Fields(2)
Row = Row + 1
AppliExcel.cells(Row, 1) = rst.Fields(3)
Row = Row + 1
rst.MoveNext
Wend
...
End Sub

J'obtien cela

Epaisseur
15
23
Largeur
70
120
longueur
1200
900

se n'est pa tout a fait se que je voeux

[Heureux-oli]

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
Private Sub TestOli()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim AppliExcel As Excel.Application
Dim FichierExcel As Excel.Workbook
Dim col As Integer
Dim row As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("qestions", dbOpenTable)
Set AppliExcel = CreateObject("Excel.Application")
AppliExcel.Visible = True
Set FichierExcel = AppliExcel.Workbooks.Open("c:\local data\Chemin Fichier.Xls")
AppliExcel.Sheets("FeuilleDeTonFichier").Select
 
col = 1
 While Not rst.EOF
row = 1
col = col + 1
AppliExcel.cells(row, col) = rst.Fields(0)
row = row + 1
AppliExcel.cells(row, col) = rst.Fields(1)
row = row + 1
AppliExcel.cells(row, col) = rst.Fields(2)
row = row + 1
AppliExcel.cells(row, col) = rst.Fields(3)
row = row + 1
rst.MoveNext
Wend
 
End Sub

Essaie comme ça

correction (Heureux-oli) : avant le while, col = 0

[Renardo]

Merci beaucoup pour ton aide s'est cela qu'il me fallait
Maitenant j'essai de creer un cadre autour de chaque cellule est il possible de le faire avec with
je voudrais aussi que les cellules se reduise ou s'agrandisse par raport au contenu
encore merci pour se que tu m'apprend

[Heureux-oli]

Pour ça, tu peux utiliser l'enregistreur de macro de Excel.