pb enregistr ds excel:assez urgent

bonjour,
voila mon prob,j'ai fait un prog qui enregistr des données dans une base acces avec adodc et requetes sql et je voudrai en meme temps écrire et enregistrer certaines de ces données(pas ttes) dans un fichier excel bien défini.
Si qq'un peu m'aider ca serait cool.merci d'avance

Dim sheet As Object
Dim exldoc As Object
Dim i As Integer
Dim j As Integer

Set exlapp = CreateObject("excel.application")
Set exldoc = exlapp.workbooks.Open("p:\logement\doc\test.xls")
Set sheet = exlapp.ActiveWorkbook.ActiveSheet
i = 0
For i = 0 To votre_rst.Fields.Count - 1
sheet.Cells(1, i + 1).Value = votre_rst.Fields(i).Name
Next i

i = 0
j = 2

Do While votre_rst.EOF = False

For i = 0 To votre_rst.Fields.Count - 1

If IsDate(votre_rst.Fields(i)) Then
sheet.Cells(j, i + 1).NumberFormat = "dd/mm/yyyy"
End If

If VarType(votre_rst.Fields(i)) = 5 Then
sheet.Cells(j, i + 1).NumberFormat = "#########0.00"
End If

sheet.Cells(j, i + 1).Value = votre_rst.Fields(i)

Next i

j = j + 1

votre_rst.MoveNext
Loop

exldoc.Close
exlapp.quit


Set exlapp = Nothing
Set exldoc = Nothing
End Function


Le code ci-dessus devrait te guider pour arriver à ce que tu veux.

il est indépendant de la verion d'excel.

la connaissance se partage