Discussion :

[scully2501]

bonjour,

voici mon 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 enregistre(sql)
Dim Message, Title, MyValue
 
..........
 
DocExcel.Workbooks.Open FileName:="C:\Documents and Settings\philippe\Bureau\access 5\Copie de access 5 full\excel.xls", Editable:=True
 
Set DocExcel = CreateObject("EXCEL.Application")
 
'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.Columns("D:D").ColumnWidth = 8
DocExcel.Columns("E:E").ColumnWidth = 9
DocExcel.Columns("F:F").ColumnWidth = 7
DocExcel.Columns("G:G").ColumnWidth = 8
DocExcel.Columns("H:H").ColumnWidth = 9
DocExcel.Columns("I:I").ColumnWidth = 7
DocExcel.Columns("J:J").ColumnWidth = 0
 
DocExcel.Visible = True
 
End Sub

après export de access vers excel j'ai mis un code permetttant d'ajuster la largeur des colonnes avec

Code :

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

1
2
 
DocExcel.Columns("E:E").ColumnWidth = 9

j'ai trouver ce code dans un sjet. Mais il marche à moitié.

voici un exemple:

si j'exporte les données sur une feuille qui s'appelle "requête", les colonnes ne sont pas ajusté.
Je recommence avec "requête1" , et pareil sauf que cette fois "requête" à les colonnes ajuster.

comme si il y avait un probleme d'emplacement du code.

merci d'avances de vos aides

[Frank]

Utilises ceci:

Code :

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

DocExcel.Cells.EntireColumn.AutoFit

[scully2501]

cela ne marche pas non plus.

mais je ne veux pas ce code car mon but est de mettre des cellule à zero pour cacher des champs.

[120]

sélectionne la feuille sur laquelle tu veux régler la largeur avant de le faire...

Code :

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

1
2
3
4
5
 
DocExcel.Sheets("requete1").select
DocExcel.Columns("A:A").ColumnWidth = 8 
DocExcel.Columns("B:B").ColumnWidth = 9 
...

[scully2501]

ok merci ca marche

[zenas]

Bonjour,

La solution

Code :

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

DocExcel.Cells.EntireColumn.AutoFit

m'intéresse, mais je ne suis pas parvenu à la mettre en oeuvre. Mon code est :

Code :

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

1
2
3
4
5
6
Private Sub excel_Click()
    DoCmd.TransferSpreadsheet acExport, 0, "assurances", "\\Noun\pvci_pvd_notification\rapports", False, ""
    DocExcel.Cells.EntireColumn.AutoFit
Dim ret As Long
ret = Shell("C:\Program Files\Microsoft Office\Office10\excel.exe \\Noun\pvci_pvd_notification\rapports\assurances.xls", vbNormalFocus)
End Sub

mais j'ai le message d'erreur : "Erreur d'exécution 424 - Objet requis".

Quelqu'un sait quoi faire ?

[scully2501]

peux tu commenter ton code stp.
peux être que tu auras plus de réponse.