[VBA-E] manipuler un doc Word

Version imprimable

17/04/2007, 19h35
pikapikapoil

[VBA-E] manipuler un doc Word
Bonjour a tous,

Mon premier post sur ce site (qui je connais depuis seulement qq jours...) sera une demande d'aide!!
Voila ma macro:
Code:

1 2 3 4 5 6 7 If Tasks.Exists(Name:="dummyFile - Microsoft Word") Then Tasks("dummyFile").Activate Word.Application.WindowState = wdWindowStateMaximize Else MsgBox "no file" End If
Donc je regarde si le fichier word "dummyFile" est ouvert, si oui alors je le "maximize" sinon un message "no File".

Ca me parraissait simple et d'ailleurs ca a marché.

Je ferme tout et je re ouvre et run again ma macro: et la je tombe sur erreur '429' ActiveX component can't create object.
Bon je n'aime pas trop l'aide de VBA mais je tente...je découvre plusieurs reponse : "system registery has no mention of the class", "a DLL required by the object can't be used"(dsl c'est en anglais) bref pas grand chose pour m'aider...Ose esperer une explication plus interessante sur ce forum??

Pika
17/04/2007, 19h47
SfJ5Rpw8

sur qu'elle ligne l'erreur ..?
c'est quoi ton objet Tasks..?
17/04/2007, 19h56
pikapikapoil

Premiere ligne.
Tasks = represente les applications encours d'utilisation.
17/04/2007, 21h05
ouskel'n'or

Question basique : Es-tu allé voir dans Outils -> Référence dans l'éditeur VB
A tout hasard, puisque ton code a eu fonctionné... Tu n'as pas changé de micro entre temps ?

PS - Bienvenue sur le forum ;)
17/04/2007, 22h27
pikapikapoil

Merci.

Tu parles surement de le reference Microsoft Word 10.0 Object Library. Elle est cochée et je n'y ai pas touché depuis que ca a marché.
Je n'ai pas changé de PC. Par contre le fichier word se trouve sur un serveur est ce que ca peut venir de la?

Etrange: j'ai reouvert mon fichier XL et la macro a remarché pendant plusieurs essai. Puis comme la derniere fois y a un moment ou je retombe sur l'erreur. Je referme tout et reouvre et pareil erreur. Je reouvre mon fichier qq hrs apres et ca marche. J'ai l'impression que c'est cyclique.

Et avec ?

Code:

1
2
3
4
5
6
7
8
9
10
    Dim wd As Word.Application
    On Error Goto errHandler
    Set wd = GetObject(, "Word.Application") ' Si Word n'est pas ouvert, ca provoque une erreur
    If wd.Tasks.Exists("dummyFile - Microsoft Word") Then
        wd.Tasks("dummyFile").Activate
        wd.WindowState = wdWindowStateMaximize
    Else
        MsgBox "no file"
    End If
errHandler:

En fait, je crois que meme si la reference Word est activee, il faut declarer l'objet. D'ailleurs si tu as plusieurs instances de Word ouverte, ca ne marchera pas...