Discussion :

[Ritter]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

WordObject.Application.Visible = True

?

A+

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Ritter]

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

[ogenki]

tu a une macro qui dit que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[Ritter]

Je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.quit

[ouskel'n'or]

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+

[Ritter]

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

si j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

Tu nous tiens au courant

A+

[Ritter]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.