Sub ZoomWord()
Dim wdApp As Object
'récupérer l'application word
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
If wdApp Is Nothing Then Stop
If wdApp.Documents.Count = 0 Then wdApp.Documents.Add
'modifier le zoom
wdApp.ActiveWindow.View.Zoom.Percentage = 50
End Sub
wdDoc.Windows(1).View.Zoom.Percentage = 50
Il te faut éditer ton premier message et modifier le titre.PS= je ne sais pas ou on met que la discussion est close et le probleme résolu sur le forum