Phénomène bizarre lors de la manipulation de Word avec VB6

Question

Voil&#224;, je vais tentrer d'&#234;tre le plus clair possible.



J'ai une appli VB6 qui ouvre un document .doc, remplace des signets &#224;
l'int&#233;rieur de ce document puis ensuite ex&#233;cute une macro enregistr&#233;
sous mon document word depuis VB6.



Depuis VB6, le code est tr&#232;s simple : 

WordApp.Run("mamacro")



Ma macro Word utilise en fait l'outil base de donn&#233;es de Word. La macro
ouvre un fichier de donn&#233;es au format txt et affiche les
enregistrements sous forme de tableau. 



Public Sub MaMacro()       

        

     Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _

        Connection:="", SQLStatement:="" &amp; "", PasswordDocument:="", _

        PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _

        "", DataSource:= _

        "c:\monFichierDeDonnees.txt" _

        , From:=-1, To:=-1, IncludeFields:=True

               

End Sub



Lorsque j'ex&#233;cute cette macro depuis Word, il m'affiche bien le contenu du fichier sous forme de tableau.

Depus VB6, il &#224; l'air de passer la main &#224; Word mais ensuite rien, rien
ne se passe. Si je re click sur mon programme VB6, il m'affiche une
fen&#234;tre :



Une action ne peut &#234;tre ex&#233;cut&#233;e car le composant
MonFichierDoc.doc - Microsoft Word ne r&#233;pond pas. Choisissez "Basculer
vers" pour activer le composant et corriger le probl&#232;me



Si je click sur "Basculer vers" il m'affiche word mais je ne peux rien y faire.



En revanche si je met un point d'arr&#234;t sur mon code VBA et que je fais
du pas &#224; pas. VB6 ex&#233;cute bien la macro et le code s'arr&#234;te au niveau
du point d'arr&#234;t de ma macro VBA, donc il rentre bien dans la proc&#233;dure
et comme par miracle il affiche bien le contenu du fichier sous forme
de tableau... mais uniquement quand j'ai mit un point d'arr&#234;t dans mon
code. Bizarre non ? 



Savez vous pourquoi ?

mrdep1978 · Answer

A mon avis il faut que ta macro MaMacro ferme ton .doc et quitte word pour rendre la main &#224; VB

Public Sub MaMacro()       
        
     Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
        Connection:="", SQLStatement:="" & "", PasswordDocument:="", _
        PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
        "", DataSource:= _
        "c:\monFichierDeDonnees.txt" _
        , From:=-1, To:=-1, IncludeFields:=True
'la syntaxe n'est peut etre pas exacte
    call activedocument.close(true)
   application.quit
End Sub

Dinbougre · Answer

merci de la r&#233;ponse.



bizarrement il est pass&#233; aujourd'hui.. je ne saurai l'expliquer, le
code est identique &#224; hier... peut &#234;tre un process plant&#233; de Word qui
tournait &#224; ce moment et causait cette perturbation...



&#231;a marche comme il le faut &#224; l'exception d'une derni&#232;re chose :
lorsqu'il m'ouvre le fichier texte pour en afficher le contenu, il
m'affiche une boite de dialogue me demandant de s&#233;lectionner le
s&#233;parateur de champs et d'enregistrement... serait il possible de lui
donner une valeur par d&#233;faut ? parceque mon code VB6 g&#233;n&#233;re pas loin de
800 fichiers et je vois mal un utilisateur appuyer 800 fois sur ENTREE
pour valider le choix ...



Merci

Phénomène bizarre lors de la manipulation de Word avec VB6

2 réponses

Discussions similaires