'Lit les propriétés personnalisées du document Word
Dim cp As DocumentProperty
Dim strSVSPath

'Vérifie qu'il y a des propriétés personnalisée
If ActiveDocument.CustomDocumentProperties.Count = 0 Then
    MsgBox "Custum properties de document non trouvé !"
    Exit Sub
Else
    For Each cp In ActiveDocument.CustomDocumentProperties
        If cp.Name = "SVS" Then
            strSVSPath = cp.Value
        Else
            'MsgBox cp.Name & vbLf & cp.Value
        End If
    Next cp
End If
'MsgBox strSVSPath