Retour sur fichiel Excel ouvert

[Phil]

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

 

[Robert]

Bonjour Phil, bonjour le forum,

Essaie en rajoutant à la fin de la macro :
ThisWorkbook.Activate
comme la macro est créée dans le classeur d'origine, elle devrait revenir à celui-ci,

 

[Phil]

Merci....mais malheureusement ne fonctionne toujours pas..??
de plus j'ai remarqué que dans mon premier message je n'ai pas envoyé le code complet..
A+


Sub OpenWithCreadteObjectExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject('Excel.Application')
'xlApp.ThisWorkbook.Activate
' 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').Activate
' xlApp.Visible = True
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select
'Call TableauDonneeDPB
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveCell.Value = nodem$
'Range('A1').Value = nodem$
ActiveCell.Offset(0, 1).Value = datedem$
ActiveCell.Offset(0, 2).Value = name_$
xlApp.ThisWorkbook.Activate
'xlApp.Quit
End Sub

 

[Robert]

Bonjour Phil, bonjour le forum,

Désolé alors Phil... je vois pas.