URGENT /!\ - Traduction de VBA en VB6 !!!

Est-ce que quelqu'un pourrais me traduire ce petit bout de code d'une macro WORD en VB6 ??? J'utilise un FSO !!!


ActiveDocument.Saveas filename:=nomFichier, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False


Merci d'avance

Pestouille

il faut ajouter une reference a microsoft word library 8 ou 9 ou 10 .. en fonction de ton word

9 = w2000

tu declares ton objet word
Public msword As New Word.Application
ou
dim msword As New Word.Application

comme tu veux

msword.Application.Visible = True
msword.Documents.Open (App.path & "mydoc.doc")

ta cuisine...
avec un with msword devant les fonctions et ojet specifique word
tu peux alléger si tu veux la syntaxe

il ne faut pas oublier de fermer comme il faut word
msword.quit
set msword =nothing



un bout de saveas est :

msword.ActiveDocument.SaveAs path, FileFormat:=wdFormatText ....

Pour fso il faut ajouter une reference a ms scripting runtime


bonne programmation

OK merci mais j'ai changé le logiciel qui crée mon fichier donc mauitenant je n'ai plus besoin de cette commande !!

Passe une bonne journée !!

Pestouille