Discussion :

[scoubi77]

Bonsoir à tous,

Depuis Excel je remplis un fichier Word, j'aurais besoin toujours depuis Excel de l'enregistrer en lecture seule sans moyen de pouvoir le modifier !
et de pouvoir refermer Word, car pour l'instant je ferme le document mais Word reste ouvert !

Voici mon bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim traitementTexte As Word.Application
Set traitementTexte = New Word.Application
Set leDoc = traitementTexte.Documents.Open(ActiveWorkbook.Path & "/DOC/SYSTEM/DA.doc")
leDoc.Content.Find.Execute findtext:="<BALISE1>", ReplaceWith:="" & "" & Feuil3.Range("A1").Value, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE2>", ReplaceWith:="" & "" & UserForm8.Label35.Caption, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE3>", ReplaceWith:="" & "" & UserForm8.ComboBox1.Value, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE4>", ReplaceWith:="" & "" & Feuil3.Range("A6").Value, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE5>", ReplaceWith:="" & "" & Feuil3.Range("A7").Value, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE6>", ReplaceWith:="" & "" & Feuil3.Range("A1").Value, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE7>", ReplaceWith:="" & "" & LCase(MyStr), Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE8>", ReplaceWith:="" & "" & UserForm8.TextBox4.Value, Replace:=wdReplaceAll
leDoc.Content.Find.Execute findtext:="<BALISE9>", ReplaceWith:="" & "" & UserForm8.TextBox2.Value, Replace:=wdReplaceAll
 
leDoc.Content.Find.Execute findtext:="<BALISE11>", ReplaceWith:="" & "" & Feuil3.Range("C2").Value, Replace:=wdReplaceAll
 
'------------------------------------------------------>
'imprimer
'------------------------------------------------------>
 
leDoc.SaveAs (ActiveWorkbook.Path & "/DOC/" & UserForm8.Label35.Caption & " " & "BE.doc")
leDoc.Close

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
leDoc.Quit

Mais ça plante !

Merci par avance pour vos aides

[Jean-Philippe André]

Salut,

c'est l'application qui doit quitter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

traitementTexte.Quit

[scoubi77]

Merci beaucoup et une idée pour enregistrer en lecture seule sans possibilité de modifier le fichier Word crée ?

[Jean-Philippe André]

Je crois que cette ligne fait la job :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetAttr strName, vbReadOnly

à placer dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim strName as String
strName = ActiveWorkbook.Path & "/DOC/" & UserForm8.Label35.Caption & " " & "BE.doc"
leDoc.SaveAs (strName)
leDoc.Close
SetAttr strName, vbReadOnly

[scoubi77]

Un grand merci bien vue

Bonne soirée et encore merci