creation fichier word en texte sous vba excel [Résolu]

[pulco41]

bonjour,

j'ai fait un code sous vba excel 2003 pour enregistrer un fichier word en fichier .txt

document_word.SaveAs chemin_txt & "PA0001.txt", FileFormat = wdFormatText

le fichier obtenu est sous la forme d'un fichier txt (voir fichier 1 qui ne me convient pas) et quand je fais la minipulation manuellement sous word j'obients le fichier n°2 qui me convient (dans word : enregistrer sous/type de fichier texte brut/conversion de fichier windows par defaut seulement)

Bien sur je vais traiter une multitude de fichier par une boucle car manuellement ce n'est pas realisable
Pouvez vous m'aider ?

Cordialement

[Heureux-oli]

Salut,

Je pense que ce n'est pas la commande, mais la manière dont tu utilises Word dans Excel qui coince.

Pourrais-tu nous donner la manière dont tu déclare et utilises les objets Word.

Parce que la commande SaveAs en Word donne le bon résultat.

[pulco41]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregitre_word_txt()
 
Dim ouvrir_word As Object
Dim document_word As Object
 
Set ouvrir_word = CreateObject("Word.Application")
ouvrir_word.Visible = True
 
Set document_word = ouvrir_word.Documents.Open(chemin_doc & "PA0001-Pass ruban 3M" & ".doc")
 
 
document_word.SaveAs chemin_txt & "PA0001-Pass ruban 3M.txt", FileFormat = wdFormatText, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=wdCRLF
 
document_word.Close

[Heureux-oli]

Salut,

Je viens de faire un test en utilisant la bibliothèque Word dans un projet Excel et j'ai bien le résultat attendu.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub EnregistrerDocument()
Dim wApp As Word.Application
Dim oDoc As Word.Document
 
Set wApp = New Word.Application
Set oDoc = wApp.Documents.Open("C:\temp\olitxt.doc")
oDoc.SaveAs Filename:="c:\temp\olitext.txt", FileFormat:=wdFormatText
oDoc.Close
wApp.Quit
Set wApp = Nothing
 
End Sub

[Heureux-oli]

Salut,

J'ai utilisé ton code pour en avoir le coeur net et j'ai aussi le résultat attendu.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub enregitre_word_txt()
 
Dim ouvrir_word As Object
Dim document_word As Object
 
Set ouvrir_word = CreateObject("Word.Application")
ouvrir_word.Visible = True
 
Set document_word = ouvrir_word.Documents.Open("C:\temp\olitxt.doc")
 
 
document_word.SaveAs "c:\temp\olitext.txt", FileFormat:=wdFormatText, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=wdCRLF
 
document_word.Close
ouvrir_word.Quit
Set ouvrir_word = Nothing
End Sub

[pulco41]

Dim wApp As Word.Application
Dim oDoc As Word.Document

vba me plante sur word.application et word document
ou trouve t on les bibliotheque word

de plus le code fonctionne mais j'obtiens le fichier txt n°1 au lieu du fichier txt 2

[Heureux-oli]

Salut,

Outils => Références => Word est dans la liste.