Discussion :

[leloup84]

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

[Souriane]

Bonjour,


Pour fermer sans enregister :

WordDoc.Close wdDoNotSaveChanges

Souriane