Aidez Moi SVP, Merci

cs_Hobby Messages postés 116 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 17 septembre 2008 - 12 oct. 2002 à 17:14
cs_Hobby Messages postés 116 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 17 septembre 2008 - 14 oct. 2002 à 19:21
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

cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
13 oct. 2002 à 03:53
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
cs_Hobby Messages postés 116 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 17 septembre 2008
14 oct. 2002 à 19:21
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