Discussion :

[pikapikapoil]

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 :

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

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

[SfJ5Rpw8]

sur qu'elle ligne l'erreur ..?
c'est quoi ton objet Tasks..?

[pikapikapoil]

Premiere ligne.
Tasks = represente les applications encours d'utilisation.

[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

[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.

[dadavyvy]

Et avec ?

Code :

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

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