Enregistrer Word

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
T
TeamG1
Membre fidèle
Membre fidèle
Messages : 359
Inscrit le : 17 décembre 2016
Version d'Excel : 2010

Message par TeamG1 » 27 juin 2017, 11:15

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
T
TeamG1
Membre fidèle
Membre fidèle
Messages : 359
Inscrit le : 17 décembre 2016
Version d'Excel : 2010

Message par TeamG1 » 27 juin 2017, 12:55

Personne ne sait ?
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'229
Appréciations reçues : 47
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 27 juin 2017, 17:51

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
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
T
TeamG1
Membre fidèle
Membre fidèle
Messages : 359
Inscrit le : 17 décembre 2016
Version d'Excel : 2010

Message par TeamG1 » 28 juin 2017, 08:25

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
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'229
Appréciations reçues : 47
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 28 juin 2017, 11:26

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

Fred
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'229
Appréciations reçues : 47
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 28 juin 2017, 11:48

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
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message