Bonjour, J'ai un problème avec l'ouverture de mon fichier Word.

Voici le Code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Option Explicit


    Public Sub GenererConvoc(piLig As Integer)

    Dim iRep As VbMsgBoxResult
    Dim sModele As String
    Dim oShSource As Worksheet
    Dim oWAFinal As Object
    Dim oWBFinal As Object
    Dim sNomPrenom As String
    Dim sFichierFinal As String

    
      Set oShSource = Worksheets("Convocation")
     
     
    If (oShSource.Range("A" & piLig).Value = "P") Then
    sModele = ThisWorkbook.Path & "\" & "ConvocationP.docx"
    ElseIf oShSource.Range("A" & piLig).Value = "R" Then
    sModele = ThisWorkbook.Path & "\" & "ConvocationR.docx"
    End If
    
    
    If Dir(sModele) = "" Then
    MsgBox "Modèle absent : " & vbCrLf & sModele, vbExclamation
    Exit Sub
    End If

    
    sNomPrenom = oShSource.Range("C" & piLig).Value

    'sFichierFinal
    
    sFichierFinal = ThisWorkbook.Path & "\" & sNomPrenom & ".docx"
    
    If Dir(sFichierFinal) = "" Then
        iRep = MsgBox("Voulez-vous générer la convocation de [" & sNomPrenom & "] ?", vbOKCancel + vbExclamation)
    Else
       iRep = MsgBox("Une convocation existe déjà pour [" & sNomPrenom & "] : " & vbCrLf & vbCrLf & sFichierFinal & vbCrLf & vbCrLf & _
                "Voulez-vous la remplacer ?", vbOKCancel + vbExclamation)
    End If
    
    If iRep <> vbOK Then
        Exit Sub
    End If
    
    'Ouverture
    
Set oWAFinal = CreateObject(Word.Application)
Set oWBFinal = oWAFinal.Document.Open(sFichierFinal)


    'alimentation du fichier final avec signets
    
oWBFinal.Bookmarks("Signet1").Range.Text = oShSource.Range("G1" & piLig).Value 'N° Dossier
oWBFinal.Bookmarks("Signet2").Range.Text = oShSource.Range("G2" & piLig).Value 'Affaire suivi par :
oWBFinal.Bookmarks("Signet3").Range.Text = oShSource.Range("G3" & piLig).Value 'Jour RDV
oWBFinal.Bookmarks("Signet4").Range.Text = oShSource.Range("G4" & piLig).Value 'Convoc envoyée le
oWBFinal.Bookmarks("Signet5").Range.Text = oShSource.Range("G5" & piLig).Value 'NOM Propriété
oWBFinal.Bookmarks("Signet6").Range.Text = oShSource.Range("B" & piLig).Value 'Genre
oWBFinal.Bookmarks("Signet62").Range.Text = oShSource.Range("B" & piLig).Value 'Genre2
oWBFinal.Bookmarks("Signet7").Range.Text = oShSource.Range("C" & piLig).Value 'Nom Prénom
oWBFinal.Bookmarks("Signet8").Range.Text = oShSource.Range("D" & piLig).Value 'Section
oWBFinal.Bookmarks("Signet82").Range.Text = oShSource.Range("D" & piLig).Value 'Section2
oWBFinal.Bookmarks("Signet9").Range.Text = oShSource.Range("E" & piLig).Value 'Parcelles
oWBFinal.Bookmarks("Signet92").Range.Text = oShSource.Range("E" & piLig).Value 'Parcelles2
oWBFinal.Bookmarks("Signet10").Range.Text = oShSource.Range("G" & piLig).Value 'Adresse
oWBFinal.Bookmarks("Signet11").Range.Text = oShSource.Range("H" & piLig).Value 'Code postal
oWBFinal.Bookmarks("Signet12").Range.Text = oShSource.Range("I" & piLig).Value 'Commune
oWBFinal.Bookmarks("Signet122").Range.Text = oShSource.Range("I" & piLig).Value 'Commune2
oWBFinal.Bookmarks("Signet13").Range.Text = oShSource.Range("J" & piLig).Value 'Lieu dit
oWBFinal.Bookmarks("Signet14").Range.Text = oShSource.Range("K" & piLig).Value 'Heure RDV


 
    
    Set oWAFinal = Nothing
    Set oWBFinal = Nothing
    Set oShSource = Nothing
    
    MsgBox "Le bon est disponible !" & vbCrLf & vbCrLf & sFichierFinal, vbInformation, "Bon disponible !"

End Sub
Si quelqu'un peut m'aider à découvrir ce qu'il bloque ...?