Bonjour,
J'ai un fichier excel.
À partir de celui-ci j'ouvre des fichiers word avec ce code :
Ces derniers se ferment à l'aide d'un bouton présent dans un USF.
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
Deux codes pour les fermer :
ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub CommandButton2_Click() Application.Quit End Sub
Quand j'utilise le deuxième code et que je retourne sous excel j'ai le message d'erreur 424 "Objet requis".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub CommandButton2_Click() unload me activedocument.close End Sub
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
Partager