ouvrir word + executer macro depuis excel
Joėl
J'essaye d'ouvrir word depuis excel 2000 et d'exécuter une macro word
("MacroTest").
Sur le site http://xlbysteph.free.fr//aideinformatique/interactionappli.htm
J'ai trouvé la macro suivante qui ne fonctionne pas !
La condition d'erreur est la suivante : erreur d'exécution '-21473525735
(80020003) impossible exécuter la macro spécifiée.
Sub PilotMacroWord()
Dim Wd As New Word.Application
Wd.WindowState = wdWindowStateMaximize
Wd.Visible = True
Wd.Run "MacroTest"
Wd.Quit
Dim oApp As Word.Application
On Error Resume Next
Set oApp = GetObject(, "Word.application.9")
If Err = 0 Then
oApp.Quit
End If
Set oApp = Nothing
End Sub
Quelqu'un a t-il une solution ?
Merci Joël
Joėl
Désolé!
Joël
"Joël" <aj...@planetis.com> a écrit dans le message de news:
aetemk$sau$1...@news6.isdnet.net...
Pierre Fauconnier
"Joël" <aj...@planetis.com> a écrit dans le message de news:
aetfau$sqf$1...@news6.isdnet.net...
Denis Michon
Voici une macro qui devrait faire l'affaire :
--------------------------
Sub ExcuteMacroWord()
Dim Dc As Object
Dim Old As String
'conserve dans une variable le nom
'du classeur actif.
Old = ActiveWorkbook.Name
On Error Resume Next
'Si l'application est déjà ouverte, cette ligne va
'utiliser l'instance déjà ouverte pour ouvrir le fichier
Set Dc = GetObject(, "Word.application")
If Err <> 0 Then
Err.Clear
'si pas ouvert, un nouvelle instance de Word sera créée
Set Dc = CreateObject("Word.Application")
End If
Dc.documents.Open "C:\test.doc" 'Ouvrir le fichier Test.doc
Dc.Visible = True 'Or False 'Selon tes désirs
Dc.Run "toto" 'Exécuter la macro toto
Dc.documents("Test.doc").Close 'Ferme le document
Dc.Quit ' Ferme l'application Word
Set Dc = Nothing 'Libère la mémoire
Workbooks(Old).Activate 'Réactive le classeur d'origine
End Sub
----------------------
"Joël" <aj...@planetis.com> a écrit dans le message de news: aetemk$sau$1...@news6.isdnet.net...
Philippe Tulliez
Ce code fonctionne parfaitement
(ne pas oublier de référencer au préalable la bibliothèque d'objets de
Word ("Microsoft Word X.0 Object Library")
Sub PilotMacroWord()
Dim Wrd As Word.Application
Set Wrd = New Word.Application
Wrd.Visible = False ' ou True (au choix)
Wrd.Run "MacroTest"
Wrd.Quit
Set Wrd = Nothing
End Sub
Philippe
"Joël" <aj...@planetis.com> a écrit dans le message news:
aetemk$sau$1...@news6.isdnet.net...
Philippe Tulliez
question se trouve dans Normal.dot
Philippe
"Philippe Tulliez" <ptul...@be.tf> a écrit dans le message news:
e2NVjNKGCHA.2484@tkmsftngp10...
Pierre Fauconnier
C'est pour cela que je m'étonnais de l'absence d'un document ouvert dans
Word. Cela étant, même si la macro se trouve dans normal.dot, elle fait
peut-être référence à un document tel que le document actif, ou quelque
chose du genre. Il faudrait donc que Joël vérifie que sa macro dans Word
peut fonctionner sans document ouvert.
--
Bon travail
Pierre Fauconnier
pierre.f...@idealgestion.com
"Les sept laids tuent" (Lewis Carol)
P.S. : Merci de signaler si les réponses sont satisfaisantes...
--
"Philippe Tulliez" <ptul...@be.tf> a écrit dans le message de news:
ePpG5eNGCHA.2096@tkmsftngp12...
Joėl
Bonjour Pierre .....(Hips.....Personnellement je préfère le Bordeaux....(au
moins il sent pas la banane, mais à chacun son truc....)
Bonjour Denis,
Merci à tous les trois de vos conseils.....
La réponse de Denis fonctionne parfaitement sur mon poste....
Au fait ces histoires d'ouverture d'instance ne me sont pas familière....
Si je comprend bien il faut créer une instance avec CreateObject lorsque
Word n'est pas ouvert.
A contrario si word est ouvert j'utilise GetObject.....Est ce bien cela?
Cordialement Joël
"Denis Michon" <denis....@cgocable.ca> a écrit dans le message de news:
cssQ8.20$BR6....@charlie.risq.qc.ca...