Bonjour,
Depuis un script .batch je lance un fichier Word sur un horaire. Cela est fonctionnel.
A l'intérieur je veux écrire une macro qui à l'ouverture de se fichier ferme tous les Word ouvert sans enregistrement.

J'ai tenté ceci, mais non fonctionnel et la macro en plus ne se lance pas en automatique :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
    WordDoc.Close False 'ferme le document word en sauvegardant les données
    WordApp.Quit 'ferme la session Word
    Application.DisplayAlerts = False
    Application.Quit
 
End Sub
Avec erreur d'exécution 91