éxécution d'une macro excel sous access

  • Initiateur de la discussion freddo6
  • Date de début
F

freddo6

Guest
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
 
C

chris

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib