Problème sur vb6

Question

bonjour

J'ai un problème sur un programme en vb6.
j'essai dtransférer des infos vers WORD. tout marche bien lors de la première fois. Mais lorsque je le relance une deuxième fois il refuse d'envoyer les infos vers word.
Appraement il refuse au moment où le programme lui dit de faire un 
docword.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldAutoNum

Si quelequ'un a une idée merci de me renseigner

metalcoder · Answer

je ne sais pas comment s'appelle ta variable mais admettons que tu as cette ligne:
Dim wordApp As New word.Application

a la fin de ta procedure de transefere rajoute ces deux lignes

WordApp.Quit
Set wordApp = Nothing

Ca me fait la meme chose avec excel, ca marche la premiere fois mais pas les fois suivantes car excel reste en memoire, avec ces deux lignes du ferme word et tu libere la ressource.

@+

Metalcoder

salomonrosny · Answer

Merci de ta réponse

salomonrosny · Answer

j'ai essayé mais j'ai toujours le même pb
voici mon code

Dim docword As Object
Set docword = CreateObject("word.application")

'True pour word visible et false pour le mettre en arrière plan
    docword.Visible = True

    docword.DisplayAlerts = False    'évite les erreurs de traitement
    docword.Documents.Add 'ajoute un document vierge
'j'insère une num auto de word
docword.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldAutoNum

'C'est cette ligne qui pose problème. La 1° fois ça marche la 2° non. Il faut que je referme tout y compris vb pour relancer

fin de la proc

  docword.Application.Quit wdDoNotSaveChanges
Set docword = Nothing

Merci si tu as une idée de mon ou mes erreurs
cordialement
Salomon

Problème sur vb6

3 réponses

Discussions similaires