Bonjour,

j'ai trouvé sur ce forum le code de macro permettant, via Excel, de vérifier si un fichier Word est ouvert.

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
 
Sub PublipostageVisualisation()
'======================================================================
' Visualisation d'un fichier de Publipostage
'======================================================================
    Dim FicVoeux As String
    Dim WordApp As Object
    Dim WordDoc As Object
 
' Détermination des paramètres de début
    Call Choix_Paramètres
 
'    Set WordApp = CreateObject("Word.Application")
 
    FicVoeux = RepertoirePublipostage & "Voeux_Clients.docx"
 
    'With WordApp
    '    Set WordDoc = .Documents.Open(FicVoeux)
    '    .Visible = True
    '    .Activate
    'End With
 
    Set WordApp = GetObject(, "Word.Application")
    Set WordDoc = WordApp.Documents(FicVoeux)
    If Not WordDoc Is Nothing Then
        MsgBox "Fichier ouvert"
        GoTo PubliWord
    End If
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(FicVoeux)
 
PubliWord:
    WordApp.Visible = True
    WordApp.Activate
 
End Sub
A l'exécution, j'ai le message "Erreur d'exécution 4160 Nom de fichier incorrect"
sur l'instruction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Set WordDoc = WordApp.Documents(FicVoeux)
Pouvez-vous m'éclairer sur l'erreur de codage ?
Merci
Cordialement
Dadu35