Enregistrer Word

Bonjour, j'aimerais savoir s'il est possible d'ouvrir un fichier Word et ouvrir la fenêtre enregistrer sous pour ce même document Word en le faisant sous Excel avec VBA ?

Merci

Personne ne sait ?

Bonjour

pour ouvrir un document word :

qui se trouve dans le meme dossier que le fichier excel et qui se nomme test.docx

Sub ouvrir_Word()
Dim MonWord As Object
Dim MonDoc As Object
Dim Fic_Word As String

Fic_Word = ThisWorkbook.Path & "\test.docx"

Set MonWord = CreateObject("Word.Application")
MonWord.Visible = True

Set MonDoc = MonWord.Documents.Open(Filename:=Fic_Word, ConfirmConversions:=True, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=0, XMLTransform:="")
MonDoc.Application.FileDialog(msoFileDialogSaveAs).Show
End Sub

Fred

fred2406 a écrit :

Bonjour

pour ouvrir un document word :

qui se trouve dans le meme dossier que le fichier excel et qui se nomme test.docx

Sub ouvrir_Word()
Dim MonWord As Object
Dim MonDoc As Object
Dim Fic_Word As String

Fic_Word = ThisWorkbook.Path & "\test.docx"

Set MonWord = CreateObject("Word.Application")
MonWord.Visible = True

Set MonDoc = MonWord.Documents.Open(Filename:=Fic_Word, ConfirmConversions:=True, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=0, XMLTransform:="")
MonDoc.Application.FileDialog(msoFileDialogSaveAs).Show
End Sub

Fred

Bonjour et merci.

La fenêtre de dialogue s'ouvre mais lorsque que je nomme mon fichier et l'enregistre, cela ne fonctionne pas. Je n'ai pas de message d'erreur mais le fichier n'est pas crée. Merci

bonjour

en effet je n'avais pas fait de test d'enregistrement... la comme ça je vois pas.... a chercher

Fred

Re bonjour

un deuxième essai

Sub ouvrir_Word()
Dim MonWord As Object
Dim MonDoc As Object
Dim Fic_Word As String
Dim rep As FileDialog

Fic_Word = ThisWorkbook.Path & "\test.docx"

Set MonWord = CreateObject("Word.Application")
MonWord.Visible = True

Set MonDoc = MonWord.Documents.Open(Filename:=Fic_Word, ConfirmConversions:=True, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=0, XMLTransform:="")

Set rep = MonWord.Application.FileDialog(msoFileDialogSaveAs)
With rep
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        If .Show = -1 Then MonDoc.SaveAs .SelectedItems(1)
End With

End Sub

Fred

Rechercher des sujets similaires à "enregistrer word"