cs_Hobby
Messages postés116Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention17 septembre 2008
-
12 oct. 2002 à 17:14
cs_Hobby
Messages postés116Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention17 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.
cs_raff
Messages postés182Date d'inscriptiondimanche 18 août 2002StatutMembreDernière intervention 5 janvier 20043 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
cs_Hobby
Messages postés116Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention17 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 ;-)