F
Fabienne
Guest
Bonjour le Forum,
J'aimerais bien dans ma macro pouvoir 'forcer' l'enregistrement
d'un fichier classeur.xls dans une macro (vb word)
sans que l'on y voie dans excel...qu'il nous ne demande pas..
bref que ça soitautomatique
Merci pour votre aide et bonne journée
Fabienne
Voici mon code:
Sub OpenWithCreadteObjectExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject('Excel.Application')
xlApp.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select
ActiveCell.Value = nodem$
ActiveCell.Offset(0, 1).Value = datedem$
ActiveCell.Offset(0, 2).Value = name_$
xlApp.ActiveWorkbook.SaveAs FileName:='C:\\Temp\\Classeur.xls'
xlApp.Quit
End Sub
J'aimerais bien dans ma macro pouvoir 'forcer' l'enregistrement
d'un fichier classeur.xls dans une macro (vb word)
sans que l'on y voie dans excel...qu'il nous ne demande pas..
bref que ça soitautomatique
Merci pour votre aide et bonne journée
Fabienne
Voici mon code:
Sub OpenWithCreadteObjectExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject('Excel.Application')
xlApp.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select
ActiveCell.Value = nodem$
ActiveCell.Offset(0, 1).Value = datedem$
ActiveCell.Offset(0, 2).Value = name_$
xlApp.ActiveWorkbook.SaveAs FileName:='C:\\Temp\\Classeur.xls'
xlApp.Quit
End Sub