éxécution d'une macro excel sous access

[freddo6]

Bonjour à tous,

je n'arrive pas à éxécuter la macro suivante, sous access j'écris ceci:


Sub freddo6()
Dim MonExcel As Object
Set MonExcel = CreateObject("Excel.Application")

With MonExcel.Application
.Visible = True
.workbooks.Open "D:\officeXP\freddo1.xls"
.Columns("A:A").Select
Call Macro
End With

End Sub

Sub Macro()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(12, 9), Array(19, 1))
End Sub


Et j'ai le message suivant:"Sub ou Function non définie" en me surlignant le mot Range,
Si Quelqu'un pouvait m'expliquer pourquoi cette macro (qui s'éxécute sans problème sous excel) ne fonctionne pas

Merci beaucoup,
Cordialement

 

[wape]

Bonjour,

La référence "Microsoft Excel X.0 Object Library" a-t-elle été sélectionnée ? (cf. Outils/Références... dans l'éditeur VBA)


Slts

wape

 

[chris]

Bonjour,
Je pense qu'il faut faire précéder chaque ligne de macro() de la référence à l'objet excel application
MonExcel.etc
Il faut donc le déclarer en global ou passer l'argument à la fonction.
Chris