Discussion :

[dadu35]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
If Dir(FicVoeux) = "" Then
 
    MsgBox "Le fichier '" & FicVoeux & "' est introuvable !"
    Exit Sub
 
End If

Hervé.

[dadu35]

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

[kiki29]

Salut, une fois de plus : à lire et assimiler

[dadu35]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

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
 
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é.