[VBA-E]Problème entre Excel et Word

Bonsoir à tous

J'ai effectué une macro sous Excel qui me permet d'ouvrir un document Word, jusque là c'est bon cela marché seulement lorsque que je créé une macro sous Word pour fermer le document Word, ma macro sous excel ne fonctionne plus.

Code:

---

1 2 3 4 5

Private Sub CommandButton12_Click() Set WordObject = CreateObject("C:\travaux excel vba\LETCART.DOC") WordObject.Application.Visible = True Unload Me End Sub

---

Donc si quelqu'un a une solution à me proposer, je suis preneur

Tu veux dire que la macro sous Excel ne continue pas au delà de

Citation:

---

WordObject.Application.Visible = True

---

?

A+

Bon, sous Excel, j'ai ça qui fonctionne

Code:

---

1 2 3 4

critère2 = CheminLettres "\" + critère2 + ".doc" 'je crée le nom du fichier sachant qu'il existe n = "WINWORD.EXE " + critère2 DemWord = Shell(n, 3) AppActivate DemWord

---

critère2 étant le nom reconstitué de mon .doc

Sous Word, pour quitter, j'ai ça

Code:

---

1 2 3 4 5 6

sub Quitter() Set MonAppli = Application MonAppli.Visible = True MonAppli.Quit SaveChanges:=wdDoNotSaveChanges end sub

---

La macro "quitter" étant lancée après une fusion lancée en auto_Open

Dans Excel, la macro continue après "AppActivate DemWord", désactive un bouton sur un form et ouvre une grille de saisie... Bref, elle continue...

Si ça peut t'aider...

A+

Je te remercie de ton aide mais cela ne fonction pas

Je vais te résumé le problème inial en deux phases

La macro sous excel marche pour ouvrir le document word donc aucun problème (la feuille excel est toujours ouverte)

Mais lorsque je crée une macro sous word pour fermer le document word et revenir sur la feuille excel, la macro sous excel elle mets un message "Erreur d'exécution '57121' et la ligne

WordObject.Application.Visible = True passe en jaune

tu a une macro qui dit que

Code:

---

WordObject.Application.Visible = True

---

ta page word doit etre visible... donc effectivement quand tu la ferme il ne comprend plus et te met une erreur

tu ne dois pas tous nous dire car cela marche...
- comment ferme tu le fichier word...?

Je mets

Code:

---

Application.quit

---

Si j'ai mis "Set MonAppli = Application", c'est que j'avais un pb avec "Application.quit"
En outre, si ton fichier n'est pas enregistré, il attend tes ordres...
A tout hasard

A+

J'ai essayer avec "Set MonAppli = Application", j'obtient toujours le même résultat.

si j'utilise

Code:

---

1 2 3 4

critère2 = CheminLettres "\" + critère2 + ".doc" 'je crée le nom du fichier sachant qu'il existe n = "WINWORD.EXE " + critère2 DemWord = Shell(n, 3) AppActivate DemWord

---

c'est DemWord = Shell(n, 3)qui en jaune et le message d'erreur '53'

et si je mets

Code:

---

1 2 3

n = "F:\Program Files\Microsoft Office\Office\WINWORD.EXE " + ("C:\image msn\excel test\carte1\LETCART.DOC") DemWord = Shell(n, 3) AppActivate DemWord

---

il ouvre un document vierge

Je crois qu'avec les nouvelles versions, tu peux faire

Call Shell(...

Vérifie dans la FAQ, je pense que la réponse s'y trouve.
Sinon, voici un code founi par SilkyRoad et je n'ai jamais eu de réclamation :wink:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ouvrirDocWord_Impression() 'necesite d'activer la reference Microsoft Word xx.x Object Library Dim appWrd As Word.Application Dim DocWord As Word.Document Dim Fichier As String   Fichier = "C:\Documents\monDocument.doc"   Set appWrd = CreateObject("Word.Application") 'creation session Word appWrd.Visible = False 'pour que word reste masqué pendant l'operation Set DocWord = appWrd.Documents.Open(Fichier)   DocWord.PrintOut 'impression   DocWord.Close 'fermer le document Word appWrd.Quit 'fermer la seesionWord End Sub

---

Mais tu as bien des difficultés !!! :lol:

Tu nous tiens au courant

A+

J'ai obtenu par l'intermédiaire d'un formateur le code suivant

Code:

---

1 2 3 4 5

Dim wrdApp Dim wrdDoc Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open("C:\image msn\excel test\carte1\LETCART.DOC") wrdApp.Visible = True

---

cela fonctionne et il fonctionne avec le code Word que tu m'as donné

Je te remercie grandement pour avoir aidé dans cette macro et je remercie aussi les autres membres du forum.