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