Excel VBA : contrôler si fichier ouvert

Version imprimable

Bonjour,

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

Code:

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:

1
2
 
Set WordDoc = WordApp.Documents(FicVoeux)

Pouvez-vous m'éclairer sur l'erreur de codage ?
Merci
Cordialement
Dadu35

04/09/2015, 14h41
Theze
Bonjour,

Déjà, comment la variable "RepertoirePublipostage" est elle initialisée ? Est elle déclarée en tête de module ? Ensuite, il te faut tester si le document existe sur le disque avec Dir() :
Code:

1 2 3 4 5 6 7 If Dir(FicVoeux) = "" Then MsgBox "Le fichier '" & FicVoeux & "' est introuvable !" Exit Sub End If
Hervé.
04/09/2015, 16h32
dadu35

Excel VBA : contrôler si fichier ouvert

Bonjour Hervé,

lorsque je cherche à visualiser le fichier, il existe forcément.
La variable "RepertoirePublipostage" est valorisée : c'est le path du fichier Word que je désire ouvrir.
Donc ta réponse ne répond à mon problème.
Merci malgré tout
A+
Dadu35
04/09/2015, 16h51
kiki29

Salut, une fois de plus : à lire et assimiler

Excel VBA : contrôler si fichier ouvert

Bonjour,

j'ai bien vu ce FAQ, et l'ai testé.
Lorsque le fichier Word est fermé : fonctionnement normal, le fichier est ouvert par la suite de la macro
Lorsque e fichier Word est déjà ouvert, le code
Code:

1 2 3 4 5 6 7 8 9 10 On Error Resume Next Set WordApp = GetObject(, "Word.Application") Set WordDoc = WordApp.Documents(FicVoeux) On Error GoTo 0 If Not WordDoc Is Nothing Then MsgBox "Fichier ouvert" GoTo PubliWord End If
considère fermé et tente de l'ouvrir à nouveau.
Donc, j'ai un souci que je n'arrive pas à régler
Merci de votre aide si une solution est possible.

Cordialement
Dadu35

Bonjour,

Donc, si je comprends bien, tu veux savoir si l'application Word à été lancée ou non ? En testant si une erreur a été retournée par la fonction GetObject :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test()
 
    Dim WordApp As Object
 
    On Error Resume Next
 
    Set WordApp = GetObject(, "Word.Application")
 
    If Err.Number <> 0 Then
 
        MsgBox "L'application Word n'a pas été lancée !"
 
    Else
 
        MsgBox "L'application Word est active !"
 
    End If
 
End Sub

Hervé.

05/09/2015, 10h09
dadu35

Bonjour Hervé,

merci de ta réponse.
Cela fonctionne désormais
Cordialement
Dadu35