Bonjour,

J'ai un fichier excel.
À partir de celui-ci j'ouvre des fichiers word avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
Dim AppWord As Object
Dim Doc As Object
Dim fichier As String
 
Set AppWord = CreateObject("Word.Application")
 
AppWord.Visible = True
 
Mypath = ThisWorkbook.Path
 
fichier = Mypath & "\" & "01_Demande.dot"
Set Doc = AppWord.Documents.Add(fichier)
End Sub
Ces derniers se ferment à l'aide d'un bouton présent dans un USF.

Deux codes pour les fermer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub CommandButton2_Click()
Application.Quit
End Sub
ou

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub CommandButton2_Click()
unload me
activedocument.close
End Sub
Quand j'utilise le deuxième code et que je retourne sous excel j'ai le message d'erreur 424 "Objet requis".
D'où peut venir le problème ? (fichier word non protégé)
Je n'ai pas trouvé de soluce sur le net.

Je précise que j'aimerai que soit seulement fermer le document word actif et non pas l'application word.

Merci