enregistrement d'un document Word

Bonjour,

J'ai créé un bouton sur Excel qui me permet d'ouvrir Word au clic. Mais j'aimerais que le document s'enregistre dans un dossier donné et sous un nom donné, quelqu'un sait m'aider ?

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton6_Click()   Dim s As Variant s = Shell("WINWORD.EXE", 1) If "F33" = "Hobart" Then Name "Sans nom" As "Rapport de Hobart" End If   End Sub

---

Bonjour,

Active la référence à Word et essaies :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub NouveauDocWord() ' Activer la reference Microsoft Word xx.x Object Library Dim appWrd As Word.Application Dim docWrd As Word.Document   Set appWrd = New Word.Application appWrd.Visible = True Set docWrd = appWrd.Documents.Add docWrd.saveAs "C:\monDocument.doc" End Sub

---