[XL-2010] Erreur 424 après fermeture fichier word [Résolu]

[AidezMoiSvp]

Bonjour,

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

Code :

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 :

1
2
3
Private Sub CommandButton2_Click()
Application.Quit
End Sub

ou

Code :

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

[fring]

Bonjour,

Essaye comme ceci :

Déclaration de la variable Doc en tête de module (avant les procédures) afin de pouvoir appeler cette variable dans toutes les procédures du module UserForm

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Doc As Object
 
Private Sub CommandButton2_Click()
Dim AppWord 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

Fermeture du document Word (avant la fermeture du UserForm)

Code :

1
2
3
4
Private Sub CommandButton3_Click()
Doc.close
Unload me
End Sub

[AidezMoiSvp]

Nouveau message d'erreur : "Incompatibilité de type"

[fring]

Sorry je n'avais pas gratté plus loin dans ton code

1. Active la référence "Microsoft Word xx Object Library" (Dans le menu Outils\Références du projet VBA)

2. Déclare ta variable Doc comme ceci :

Code :

Dim Doc As Document

3. Vérifie les noms de tes boutons, dans ton code initial tu as 2x le bouton2

[AidezMoiSvp]

La réponse me semblait bizarre mais j'ai quand même essayé

Mon premier message n'est peut être pas assez clair.
Je reprends.

Je ferme mes fichiers word à l'aide de bouton présents dans le fichier word.

Fichier excel : bouton "Demande" ouvre le fichier word "01_Demande".

Fichier word "01_Demande" : bouton "Fermer" ferme le fichier word. J'utilise ce code :

Code :

1
2
3
4
Private Sub CommandButton2_Click()
unload me
activedocument.close
End Sub

Le fichier word s'ouvre sans problème (aucun message d'erreur). C'est quand je ferme le fichier word qu'excel m'affiche le message d'erreur.

MErci

[fring]

Envoyé par AidezMoiSvp

Mon premier message n'est peut être pas assez clair.
Je reprends.

Je ferme mes fichiers word à l'aide de bouton présents dans le fichier word.

On ne pouvait pas le deviner...
Dans ce cas tes deux lignes de code pour fermer le document Word sont corrects. Juste un petit détail mais qui ne changera rien au fonctionnement du code, évite d'utiliser les "ActiveMachin", un jour où l'autre ça coincera. Au lieu d'utiliser ActiveDocument, utilise plutôt ThisDocument.

A mon avis tu ne nous dis pas encore tout ou ne montre pas l'entièreté des codes...parce qu'à priori je ne vois pas ci qui pourrait créer cette erreur.
L'erreur se produit sur quelle ligne de code ?

[AidezMoiSvp]

Bonjour,

Envoyé par fring

On ne pouvait pas le deviner...

Je ne disais pas ça méchamment

A mon avis tu ne nous dis pas encore tout ou ne montre pas l'entièreté des codes...parce qu'à priori je ne vois pas ci qui pourrait créer cette erreur.
L'erreur se produit sur quelle ligne de code ?

L'erreur se produit au niveau du "set Doc" :

Code :

1
2
3
4
 
...
Set Doc = AppWord.Documents.Add(fichier)
End Sub

A mon avis tu ne nous dis pas encore tout ou ne montre pas l'entièreté des codes...

Ce code fait partis d'un ensemble.
Cependant j'ai essayé avec fichier excel comprenant seulement le code d'ouverture (voir plus haut) et un fichier word (modèle) avec un USF et un bouton "quitter" comprenant le code plus haut.
J'ai le même message d'erreur quand je veux juste fermer le document et pas de message quand je quitte complétement l'application.

[fring]

J'ai créé le fichier Excel et le document Word au format *.dot avec USF et je n'arrive pas à reproduire l'erreur.

Pourquoi ne veux-tu pas fermer l'application Word ? Si tu relances 10x ton code d'ouverture via Excel, tu vas avoir 10 instances Word ouvertes vu que à chaque fois tu passes par la ligne de code "Set AppWord = CreateObject("Word.Application")"

[AidezMoiSvp]

Bon... Bizarre.

Je voulais juste quitter le document actif et non pas l'application parce que si l'utilisateur a d'autres fichiers word d'ouverts et qu'il clique sur le bouton "quitter" du document word actif word va vouloir fermer tous les documents word.

[fring]

Envoyé par AidezMoiSvp

si l'utilisateur a d'autres fichiers word d'ouverts et qu'il clique sur le bouton "quitter" du document word actif word va vouloir fermer tous les documents word.

Non vu que tu ouvres le *.dot dans une nouvelle instance Word, uniquement celle-ci sera fermée.

[AidezMoiSvp]

Bah non justement. Avec

Code :

application.quit

chez moi il me ferme tout...
Je comprends pas....

[ZebreLoup]

C'est

Code :

appword.Quit

qu'il faut faire. (enfin, j'ai lu le fil en diagonale, je peux me tromper)

[AidezMoiSvp]

bon. J'avance un peu.
Quand j'ai plusieurs documents word d'ouverts et que je veux quitter j'ai un message me demandant si je veux modifier le modèle...
Bizarre vu que je ne fais aucune référence à "Normal"... Cependant Outlook 2010 est ouvert. J'ai croisé quelques topics traitant du sujet mais pas de solution sur ces topics...
Je précise que je travaille sur réseau.

J'avance encore un peu plus.
Mon fichier word s'ouvre sur un USF

Code :

userform1.show 0

en désactivant ce USF je n'ai plus le message me demandant si je veux modifier "Normal".
Par contre, toujours le problème de l'erreur 424...

Je pense avoir trouvé.
J'ai remplacé

Code :

Dim AppWord As Object

par

Code :

Dim AppWord As word.application

Je vous tiens au courant

[AidezMoiSvp]

Bonjour,

Je confirme que je n'ai plus l'erreur 424.
Par contre j'ai toujours le message me demandant si je veux modifier "Normal"... (ce message ne s'affiche que quand j'ai d'autres documents word ouverts et que quand j'ouvre le document modèle depuis la macro excel).

Merci


_____________________________________

Je pense avoir enfin trouvé la solution.
J'ai changé le code pour ouvrir le modèle word

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim fichier As String
 
Mypath = ThisWorkbook.Path
fichier = Mypath & "\" & "01_Demande.dot"
 
Set oWord = New Word.Application
 
Set oDoc = oWord.Documents.Add(fichier)

Merci pour votre aide