P
Phil
Guest
Bonjour,
J'ai un problème avec bout de mon code.
En effet, depuis une macro VBA word je désire retourner à un fichier
excel qui est et doit être déja ouvert (NewGestionTest.xls) et donc le code ci-dessous ouvre une '2ème excel' et donc ne retourne pas dans mon fichier que j'aimerais.....et j'ai il me semble tout essayé !!??
Merci d'avance et bonne après-midi
Phil
le 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(1)
xlApp.Application.Windows('newGestionTest.xls').Activate
xlApp.Visible = True
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select
J'ai un problème avec bout de mon code.
En effet, depuis une macro VBA word je désire retourner à un fichier
excel qui est et doit être déja ouvert (NewGestionTest.xls) et donc le code ci-dessous ouvre une '2ème excel' et donc ne retourne pas dans mon fichier que j'aimerais.....et j'ai il me semble tout essayé !!??
Merci d'avance et bonne après-midi
Phil
le 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(1)
xlApp.Application.Windows('newGestionTest.xls').Activate
xlApp.Visible = True
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select