ouvrir word GRRRRRRésolu

Question

mon appli arrive a :

ouvrir word
lui envoyer des infos
fermer word
revenir sur l'appli

et lorsque je veux ouvrir word a nouveau depuis 
l'appli pas possible
(serveur distant impossible a atteindre....)

pourtant je ferme bien la liaison OLE

je me tire les cheveux depuis hier aprem

qq'un a une idée svp

merci d'avance

cs_fofolle · Accepted Answer

comme j'utilise le format étiquette je dois me positionné dans mon tableau
j'utilisai :
ActiveDocument.Tables(1).Cell(Row:=ligne, Column:=col).Select

lorsque je relancai word un 2eme fois il ne comprenait pas cette ligne

j'ai remplacé par :
Word_Application.Selection.Tables(1).Cell(Row:=ligne, Column:=col).Select
et ca roule je peux rouvrir word tant que je veux

merci qu'en meme pour les infos

cs_ITALIA · Answer

Voila comment je fais et j'ai jamais eu de souci :

En cochant Projet Références Microsoft Word XX Object Library

Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Open(Document)
Set wrdRange = wrdDoc.Bookmarks("Fournisseur").Range
wrdRange.Text = NomF
wrdDoc.PrintOut ' Impression
wrdDoc.Close SaveChanges:=0 ' Fermeture sans Enregistrer

Comment tu fais ?

It@li@

cs_fofolle · Answer

merci de m'apporter ta solus

mon code est le suivant a peut de chose pres 
car j'utilise des fonctions pour faire passer les varribles
comme ligne ,colonne, mon texte
ainsi qu'un commandialog pour l'enregistrement

Public Word_Application As Word.Application

Set Word_Application = CreateObject("Word.Application")
Word_Application.Documents.Open App.Path & "\Etiquette.doc"
Word_Application.ActiveDocument.Tables(1).Cell(Row:=ligne, Column:=col).Select
Word_Application.Selection.TypeText Text:="trlala..."
Word_Application.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
Set Word_Application

je vais teste en utilisant "Set wrdApp = New Word.Application"

merci

cs_ITALIA · Answer

N'oublies pas à la Fin de tous Inialiser :

Set wrdApp = Nothing
Set wrdDoc = Nothing
Set wrdRange = Nothing

It@li@

cs_fofolle · Answer

le probleme viens que j'utilise un format etiquette

je ferme bien mon lien OLE j'ai oublier le nothing a ma derniere ligne
lorsque je teste sans passer un doc étiquettes il n'y a aucun probleme

cs_ITALIA · Answer

Pourkoi t'as : Set Word_Application en derniére Ligne ??

It@li@

cs_fofolle · Answer

j'ai juste oublier le nothing

Set Word_Application =nothing

Ouvrir word GRRRRR

7 réponses

Discussions similaires