XL 2016 Ouvrir un fichier Word existant depuis excel

Pexcel

XLDnaute Junior
Bonjour, je voudrais pouvoir ouvrir un fichier docx depuis un bouton formulaire excel et je me sert de l'excellent exemple de Tatiak ici

je voudrais donc changer la ligne
VB:
Set WordDoc = WordApp.Documents.Add
dans le début de code
Code:
Sub ouvrir_word()
Dim WordApp As Object, WordDoc As Object, Rng As Object
Dim Rep As String, Ndf As String, Logo As String
Dim i As Integer, j As Integer
Dim Total As Single


                  
    On Error GoTo errhdlr
    Rep = "D:\VBA\GESTION\"
    If Not Exist_Rep(Rep) Then
    MkDir Rep
    Else
    MsgBox "..."
    End If
    

    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Add

   ' WordApp.Documents.Open "D:\VBA\GESTION\TEST.docx"
    
 
    
    Ndf = Rep & "Fiche_" & Format(Now(), "yyyyMMdd_hhmm") & ".docx"
    
    With WordDoc
        ' Mise en page : Marges
        With .PageSetup
            .LeftMargin = WordApp.CentimetersToPoints(1.5)
            .RightMargin = WordApp.CentimetersToPoints(1.5)
            .TopMargin = WordApp.CentimetersToPoints(2)
            .BottomMargin = WordApp.CentimetersToPoints(2)
        End With
        ''----
        '----etc--'
        
        
        end sub

Pour pouvoir ouvrir un fichier type et écrire dessus en utilisant le chemin D:\VBA\GESTION\TEST.docx

Est ce possible ?
Merci.
 

Discussions similaires

Haut Bas