erreur 381

[seb33]

Bonsoir le forum,

en cliquant sur un bouton d'usf, je souhaites ouvrir un fichier word, le modifier (des signets sont placés dessus) et le refermer en l'enregistrant.

mon code bug (erreur d'excé 381, impossible de définir la propriété list...)
voici le code:

Private Sub CommandButton27_Click()
Nom As String
Dim NDF As String, NDF2 As String
Dim WordApp As Object
Dim WordDoc As Object
Dim ref As String
ref = Sheets("presentation").Range("A1").Value
    NDF = ActiveWorkbook.Path & "\Proposition.doc"
    NDF2 = ActiveWorkbook.Path & "\" & ref & ".doc"
    
    On Error Resume Next
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
    
    With WordApp
        .Visible = True

    End With
        WordDoc.Bookmarks("Nom").Range.Text = Sheets("presentation").Range(A1).Value


    WordDoc.Application.ActiveDocument.SaveAs NDF2
    WordApp.Application.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

je suppose qu'il doit y avoir une grosse erreur, mais la tete dans le guidon comme on dit... 😀
Bonne soiré
seb

 

[seb33]

Re : erreur 381

il n'y a pas d'erreur de prog, c'est moi qui sur une autre private, ait fait une faute de frappe.
A+
seb