fermer excel depuis word

[GHISLAIN]

bonjour a tous,

j effectue du publipostage et j essaie un fois celui ci effectue et imprimer fermer en meme temps excel avec word

dans l aide de word il me propose ceci qui ne fonctionne pas

For Each myTask In Tasks
If InStr(myTask.Name, "Microsoft Excel") > 1 Then
myTask.Activate
myTask.Close
End If
Next myTask


j ai également testé ceci

Application.Quit
ActiveDocument.Save
Application.Quit

ça me ferme seulement word mais pas excel en meme temps

si quelqu un pouvait pouvé venir me donner un coup de pousse je le remercie par avance

amicalement ghislain

 

[tototiti2008]

Re : fermer excel depuis word

Bonjour Ghislain,

une proposition basée sur celle de MichelXLD dans le fil
https://www.excel-downloads.com/threads/activer-fichier-ouvert-sur-excel-de-word.105515/

à tester :

[FONT=Times New Roman][SIZE=3]Dim xlApp As Object[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]Set xlApp = GetObject(, "Excel.Application")[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]xlApp.Quit[/SIZE][/FONT]

 

[Catrice]

Re : fermer excel depuis word

Bonjour,

Ou bien :

Sub Test()
For Each myTask In Tasks
If myTask.Name Like "*Microsoft Excel*" Then myTask.Close
Next
End Sub

en revanche, je ne vois pas pourquoi tu dois fermer le fichier Excel.
Lors du publipostage, Word gere le fichier Excel tout seul ...