Discussion :

[jfn]

Bonjour,

1.Pour faire mon export Excel je n'utilise pas le code decrit dans la faq http://access.developpez.com/faq/?pa...ataAccessExcel car je fais un clicK droit sur l'etat, puis Exporter au format xls en donnant le path.
mais comment automatiser cette routine Avec du code VBA ?

2.dans mon etat a exporter, j'ai rempli de champs du Style

Code :

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

 =A5 * B5

et ce , dans le but d'avoir des formules pre-ecrites dans le futur document Excel. Cela fonctionne mais pour activer ces formules dans le nouveau Document Excel, je suis oblige d'aller dans chaque case, de faire un double clic dessus et de taper entrer.
Donc ma question est Comment automatiser tout ca ?

merci

[MC2]

Salut,
en VBA, l'instruction que tu cherches c'est 'OutputTo'.
Et pour "actualiser" toutes tes formules d'une feuille de calculs, tu peux faire un remplacement général des "=" par des "=".

Exemple (il te faut impérativement ajouter l'objet Microsoft Excel dans tes références) :

Code :

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

1
2
3
4
5
6
7
    Dim wk As Excel.Workbook
 
    DoCmd.OutputTo acOutputReport, "R_Table1", acFormatXLS, "D:\Temp\Table1.xls"
    Set wk = GetObject("D:\Temp\Table1.xls")
    wk.Sheets(1).Cells.Replace "=", "="
    wk.Application.Visible = True
    Set wk = Nothing

A+

[Tofalu]

Tu peux aussi rafraichir l'objet workbook avec :

Code :

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

1
2
3
 
Dim wk As Excel.Workbook 
    wk.refreshall

Cela devrait t'éviter de remplacer les "=" par des "=" dans toutes les cellules de toutes les feuilles

Ou encore, pour recalculer la feuille1

Code :

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

wk.sheets(1).calculate

[MC2]

Salut,
Tofalu : quelle(s) option(s) dans Excel dois-tu mettre pour que tes solutions fonctionnent ? (je suis sous Excel 2000)
A+

[Tofalu]

Ben aucune a priori

[jfn]

merci MC2, ta solution fonctionne correctement.

desolé tofalu mais le rafraichissement de la feuille ou le recalcul de l'objet ne fonctionne pas chez moi ( office 2003 eng./ reference Excel 11.0 )

encore merci les gars