piloter excel depuis word

Bonsoir,

comment puis je ameliorer mon code en n'ouvrant excel que si celui est ouvert sinon j'active juste le classeur pour lancer la macro svp:


Application.DisplayAlerts = False
chemin = ThisDocument.Path
Dim LesMails As Object
Dim LeMail As Outlook.MailItem
Dim xlApp As Object
Dim wbk As Object
Set Activdoc = ActiveDocument
Set xlApp = CreateObject("excel.application")
Set wbk = xlApp.Workbooks.Open(ThisDocument.Path & "\vali.xlsm") ' Définit le fichier EXCEL à ouvrir
xlApp.Visible = False
wbk.Sheets("parametre").Activate
'on affecte les parametres absences au classeur excel
wbk.Sheets("parametre").Range("A22").Value = ActiveDocument.Shapes("rectangle 12").TextFrame.TextRange.Text
wbk.Sheets("parametre").Range("B22").Value = ActiveDocument.Shapes("rectangle 13").TextFrame.TextRange.Text
wbk.Sheets("parametre").Range("C22").Value = ActiveDocument.Shapes("rectangle 14").TextFrame.TextRange.Text
wbk.Sheets("parametre").Range("D22").Value = ActiveDocument.Shapes("rectangle 15").TextFrame.TextRange.Text


nom = ActiveDocument.Shapes("rectangle 22").TextFrame.TextRange.Text



'va dans excel supprimer l'absence
Dim objWApp As Object
'Crée une nouvelle instance de l'application
Set objWApp = GetObject(, "Word.Application")

chemin = (chemin)

classeur = ActiveDocument.Name
Dim xls As Excel.Application
Dim wkb As Excel.Workbook

Set xls = New Excel.Application
xls.Visible = False

Set xlApp = GetObject(, "Excel.Application")
nom = ActiveDocument.Name


xlApp.Application.Run "vali.xlsm!valid"
'wkb.Activate

'wbk.Application.Run "'" & nom & "'" & "!Module1.test"
xlApp.Workbooks("vali.xlsm").Save
Set xls = Nothing
wbk.Close True
xlApp.Quit
End If
Set xlApp = Nothing
'ActiveDocument.Close True
Application.Quit False


Set objWApp = Nothing

'ActiveDocument.Close True
Application.DisplayAlerts = True



est il possible egalement depuis excel d'appeler ma variable nom afin de connaitre sa valeur merci d'avance bonne soirée