Discussion :

[DRDams]

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 :

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

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

[Patrice740]

Bonjour,

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

Code :

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

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