export de requete vers excel(pb de mise en forme)

**syl221** · 18/10/2004, 16h31

Bonjour

J'ai access97 sous win NT4.
Dans un script VBA j'exporte le resultat de requêtes vers des excel. Je génére une quinzaine de fichiers excel avec chacun 8-9 onglets.
J'utilise la commande suivante
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, NomPartielRequete & result2("site"), PathFileXLS, False

NomPartielRequete & result2("site")= nom de ma requête qui est variable puisque je fais une boucle, les requêtes sont créées juste avant dans une boucle par le script.
En gros dans une boucle je génére des requetes spécifiques puis je les exporte dans des onglets excel.

Les fichiers excels sont bien générés avec les onglets mais la mise en forme n'est pas terrible. Par exemple dans l'excel la colonne contenant le champs MARQUE n'est pas assez large(il faut l'elargir à la main pour lire la marque complète). Je ne sais pas si on peut spécifier la largeur de la colonne en faisant l'export vers excel.
Qqun aurait il une idée?

merci

PS: je sais que c 'est un cas avancé et spécifique

**Tofalu** · 18/10/2004, 17h03

A prioris y a aucune solution a ton problème. En effet, c'est juste de la mise en forme et l'exportation de données comme cont nom l'indique, n'exporte que les données.
Y aurais possibilité de faire ça avec les objets de la librairie Excel. Avec notemmant le Worksheet. Mé la c'est s'aventurer vers pas mal de code.

**ricou-62** · 18/10/2004, 17h14

Voila ce que j'ai fait pour mettre en forme un fichier EXCEL. Si ca peut t'aider ...

Set DocExcel = CreateObject("EXCEL.Application")
DocExcel.Workbooks.Open FileName:="chemin.xls", Editable:=True

'on change la largeur des colonnes
DocExcel.Columns("A:A").ColumnWidth = 8
DocExcel.Columns("B:B").ColumnWidth = 9
DocExcel.Columns("C:C").ColumnWidth = 7

DocExcel.Visible = True

**Tofalu** · 18/10/2004, 17h21

L'actuce de Ricou est bonne sauf qu'il faut connaitre par avance la taille de cahque colonne. Il faudra donc calculer pour chaque colonne et chaque feuille la largeur adaptée en fonction de la plus grande valeurs ou bien alors definir des largeurs maximum

**syl221** · 18/10/2004, 17h39

C'est du bien spécifique en effet.

Le type EXCEL.Application n'est pas reconnu dans le script, est-ce en rapport avec ma version 97 d'access?? ou faut il un module que je n'ai pas?

**Tofalu** · 18/10/2004, 17h44

Il te faut ajouter la référence :

Microsoft Excel 9.0 Object Library

**sasmira_** · 18/10/2004, 18h37

Bonjour,
Et ceci?

Code :

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

Columns("A:A").EntireColumn.AutoFit

pour adapter la largeur à la taille du champ maxi de la colonne
En espérant t'aider

**Tofalu** · 18/10/2004, 18h42

Envoyé par sasmira_

Bonjour,
Et ceci?

Code :

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

Columns("A:A").EntireColumn.AutoFit

pour adapter la largeur à la taille du champ maxi de la colonne
En espérant t'aider

En effet, ça limite la galère. Y a pu qu'a boucler sur chaque colonne et chaque classeur et hop c'est finit.

**BlakSun** · 19/10/2004, 11h00

Bonjour,
une solution que j'utilise:

-une macro de mise en forme dans excel
-apres l'export éxecution de cette macro via access ou a la main

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
 
Sub Mise_en_forme()
'****************************************************************************************************************
'                                      ***     Macro Mise_en_forme     ***
'
'mise en forme de tous les entetes de colonne de toutes les feuilles du fichier excel
'
'16/12/2003 V1                                                                                           BlakSun
'****************************************************************************************************************
 
Dim colonne, num_page As Double
 
    num_page = 1 'initialisation 1eme feuilles du classeur
 
    While (num_page <= Worksheets.Count) 'tant que toutes les pages pas effectuée
 
        Worksheets(num_page).Activate 'met la page active
        Set CurrentPage = ActiveSheet 'selection page active
        colonne = 1 'initialisation colonne 1
 
        While (Not (IsEmpty(Cells(1, colonne).Value) Or Cells(1, colonne).Value = "")) 'tant que cellule non vide
 
            Cells(1, colonne).Select 'selection cellule
 
            '***mise en forme cellule***
 
            With Selection.Interior
                .ColorIndex = 39
                .Pattern = xlSolid
            End With
 
            Selection.Font.Bold = True
            Cells.Select
            Cells.EntireColumn.AutoFit
            Cells.EntireColumn.AutoFit
 
            '***************************
 
            colonne = colonne + 1 'changement de colonne
 
        Wend
 
        Cells(1, 1).Select 'on selectionne la premiére cellule
        num_page = num_page + 1 'on change de feuille
 
    Wend
 
End Sub

note:*num_page permet d'indiquer a partire de quelle page la mise en forme est nécessaire.
*ce code est pour excel il demande donc quelque modification pour access
*la commande .Application.Run ("non macro") te permet de ne pas modifier ce code car avec tu peux executer une macro ce trouvant dans un fichier excel

en esperrant t'aider un peut.
@+
BkS.

**syl221** · 19/10/2004, 12h26

merci ça marche impec.( j'ai la version Microsoft Excel 8.0 Object Library)
Mais maintenant dans ma boucle j'ai un message qui me demande si je veux sauvegarder le doc excel qui a été modifié apres le docexcel.Workbooks.Close, comment eviter ce message?

(Je suis pas tres fort dans la manip de fichier)

**BlakSun** · 19/10/2004, 15h43

ah oui j'ai oublier:

Code :

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

Application.DisplayAlerts = False

de mémoire il me semble que c'est cela (pour excel).

@+
BkS.

**syl221** · 19/10/2004, 17h10

Code :

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

Application.DisplayAlerts = False

fonctionne bien et me supprime les message mais le pb est que cela doit répondre NON à la question car quand j'ouvre mon excel les colonnes ne sont pas redimensionnées.

PS: en tout cas merci de vos réponses à mon ignorance

**Tofalu** · 19/10/2004, 17h34

Remplace ta ligne par :

Code :

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

1
2
 
DocExcel.ActiveWorkbook.Close(true)

**syl221** · 20/10/2004, 15h15

merci ça marche impeccable
mon pb est résolu

export de requete vers excel(pb de mise en forme)

Access

Vue hybride

Discussions similaires

Partager

Partager