Pb de création d'un tableau dans word

Question

J'ai un pb assez bizarre.
Je créé un tableau dans un document word.
En executant mon programme, ca marche bien la premiere fois mais au bout de la deuxieme j'ai l'erreur suivante:

Erreur d'exécution '462':
le serveur distant n'existe pas ou n'est pas disponible.

et mon code est le suivant:

Dim appWord2 As Word.Application 'Application Word

Set appWord2 = CreateObject("Word.Application")
appWord2.Visible = True

appWord2.Documents.Open ("c:\Support_opération.doc")
appWord2.Documents("Support_opération.doc").Activate

appWord2.Selection.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=6 _
        , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
            wdAutoFitWindow

Bien sur à la fin je ferme mon application word.
Comprenez bien que j'ai le problème lors d'un deuxieme appel successif de word, après avoir quitté la première.
Merci d'avance.

cs_wape · Answer

Essaye avec :
appWord2.Selection.Tables.Add Range:appWord2. Selection.Range, NumRows:2, NumColumns:=6 _
, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitWindow

@+

wape

Pb de création d'un tableau dans word

1 réponse

Discussions similaires