Macro VBA sous Access

salut,

voici une procédure pour créer une instance Excel.
suivant ce que tu veux faire, il te faudra peut-être déclarer les variables objet XL et WB au niveau module.

Sub LiaisonEXCEL()
Dim XL As Excel.Application
Dim WB As Excel.Workbook

On Error GoTo Err_

' utilisation d'une instance EXCEL existante
Set XL = GetObject(, "Excel.Application")
' ajout d'un classeur
XL.Workbooks.Add

' pour ouvrir un classeur, c'est
' XL.Workbooks.Open("C:\chemin\MonClasseur.xls")

Set WB = XL.ActiveWorkbook

' sélectionnner tout le document
Selection.ExtendMode = False
Selection.HomeKey Unit:=wdStory
Selection.Expand Unit:=wdStory
Selection.Copy

' coller dans Excel
WB.ActiveSheet.Paste
' répartir les données sur plusieurs colonnes
WB.ActiveSheet.Columns(1).TextToColumns DataType:=xlDelimited, semicolon:=True

Set XL = Nothing: Set WB = Nothing
Exit Sub

Err_:
If Err = 429 Then
' création d'une instance EXCEL
Set XL = GetObject("", "Excel.Application")
Resume Next
Else
MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical, ActiveDocument.Name
Resume
End If
Set XL = Nothing: Set WB = Nothing
End Sub


A+,
Kobaya.

utilises index avec mois(monmois)+n pour déterminer la colonne