F
freddo6
Guest
bonjours à tous,
voila je débute en VBA et j'aurai sans doute une question simple pour vous:
voilà je suis en train de faire un module sous access me permettant d'envoyer une table vers un fichier excel
une fois cette table envoyée (ce que j'arrive encore à faire..)
je voudrais que mon programme fasse:
-afficher ma feuille de calcul
-puis (et surtout) effectuer une macro enregistrer sous excel (c'est une macro qui me permet de convertir une colonne)
donc si quelqu'un pourrai m'aider je lui serai infiniment reconnaissant
PS: voilà ce que j'essaye de faire
Function boulanger()
Dim objXL As Object, x
Set objXL = CreateObject("Excel.Application")
With objXL.Application
.Visible = True
.Workbooks.Open "C:\Mes documents\essai.XLS"
.Sheets("feuille1").select
.Range("A1").select
Selection.TextToColumns Destination:=.Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(12, 9), Array(19, 1))
.Range("A13").select
End With
Set objXL = Nothing
End Function
voila je débute en VBA et j'aurai sans doute une question simple pour vous:
voilà je suis en train de faire un module sous access me permettant d'envoyer une table vers un fichier excel
une fois cette table envoyée (ce que j'arrive encore à faire..)
je voudrais que mon programme fasse:
-afficher ma feuille de calcul
-puis (et surtout) effectuer une macro enregistrer sous excel (c'est une macro qui me permet de convertir une colonne)
donc si quelqu'un pourrai m'aider je lui serai infiniment reconnaissant
PS: voilà ce que j'essaye de faire
Function boulanger()
Dim objXL As Object, x
Set objXL = CreateObject("Excel.Application")
With objXL.Application
.Visible = True
.Workbooks.Open "C:\Mes documents\essai.XLS"
.Sheets("feuille1").select
.Range("A1").select
Selection.TextToColumns Destination:=.Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(12, 9), Array(19, 1))
.Range("A13").select
End With
Set objXL = Nothing
End Function