Aidez Moi SVP, Merci

Signaler
Messages postés
116
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
17 septembre 2008
-
Messages postés
116
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
17 septembre 2008
-
Bonjour,

Je veux creer des documents Word (2002) avec VB.
J'utilise cette routine:

Private Sub SaveWord(strTexte As String, strNomFichier As String)
        Dim doc As Word.Document
        Set doc = New Word.Document
        If strLangue = "FB" Then
            doc.Content.LanguageID = wdBelgianFrench
        ElseIf strLangue = "FF" Then
            doc.Content.LanguageID = wdFrench
        ElseIf strLangue = "EU" Then
            doc.Content.LanguageID = wdEnglishUK
        End If
        doc.Content.NoProofing = False
        doc.Content.Text = strTexte
        ' Sauvegrade en word
        ActiveDocument.SaveAs FileName:=strNomFichier
        Set doc = Nothing
End Sub

Mais word ne quitte pas et me laisse tous les fichiers temporaire.
Il y a t'il queques chose que j'ai oublier ou a faire.

Merci
Olivier

2 réponses

Messages postés
182
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
5 janvier 2004
3
me semble qu'il faut que tu fermes le document ie doc.close et puis aussi l'application....wordApp.quit
mais je vois que tu n'as pas d'objet word.application alors je me demande... tu devrais faire :

dim wrdApp as new Word.Application
dim wrdDoc as new Word.Document

set wrdDoc = wrdApp.Documents.Add .....

puis après la routine:

wrdDoc.Close
wrdApp.Quit
set wrdDoc = nothing
set wrdApp = nothing

enfin, c'est comme ça que je fais avec word 2000...
raff
0
Messages postés
116
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
17 septembre 2008

Je te remercie, cela fonctionne.
Pour ceux que cela intéresse il faut aussi changer la ligne:
ActiveDocument.SaveAs FileName:=strNomFichier
Par:
wrdDoc.SaveAs FileName:=strNomFichier
Sinon vous avez une erreur de serveur!!!

Encore Merci
Olivier
Ps: il ya des trucs vachement déjenté dans VB ;-)
0