Verifier qu'un fichier Word est ouvert à partir de VBA Excel

Version imprimable

Bonjour à tous,

Je vous ecris car je lance une macro à partir de VBA Excel, qui ouvre un fichier Word, et j'ai mis une condition pour verifier si ce fichier Word n'est pas déjà ouvert, mais cela ne marche pas tout le temps, jai souvent le message d'erreur suivant :

Citation:

Le serveur distant n'existe pas ou n'est pas disponible (erreur 462)

Voici mon code :
Code:

1 2 3 4 5 6 Set FichierWord = GetObject("D:\Fichier.doc") If FichierWord = ActiveDocument Then MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié." Exit Sub End If
Merci pour vos réponses

17/07/2008, 15h08
ouskel'n'or

Le code que tu nous mets ne peux pas fonctionner. Si tu ouvres un doc word depuis Excel, tu crées une instance de l'application et du document.
Montre-nous le code que tu utilises pour lancer word et ouvrir le fichier, c'est lui qui nous intéresse ;)

Voila le code :

Code:

1
2
3
4
Set FichierWord = Nothing
Set wrdapp = CreateObject("Word.Application")
Set wrddoc = wrdapp.Documents.Open("D:\Fichier.doc")
wrdapp.Visible = True

Merci de ton aide!!!

Code:

1
2
3
4
5
6
Set wrdapp = CreateObject("Word.Application")
DoEvents 'laisse le temps à l'application de s'ouvrir
Set wrddoc = wrdapp.Documents.Open("D:\Fichier.doc")
DoEvents 'laisse le temps au document de s'ouvrir
wrdapp.Visible = True
'If wrddoc is nothing then msgbox "le document D:\Fichier.doc est fermé ou n'existe pas."

Pour ton test

Code:

1
2
3
4
5
6
Set FichierWord = GetObject("D:\Fichier.doc")
 
If FichierWord = wrdapp.ActiveDocument Then
    MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié."
    Exit Sub
End If

Mais je ne suis pas certain d'avoir toutes les données :(

Merci, mais cela ne fonctionne pas, l'ordre de mon programme est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ExporterVersWord()
 
Dim Titre As String, FichierWord, wrdapp, wrddoc
 
Set FichierWord = GetObject("D:\Fichier.doc")
 
If FichierWord = ActiveDocument Then
    MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié."
    Exit Sub
End If
 
 
Set FichierWord = Nothing
Set wrdapp = CreateObject("Word.Application")
DoEvents
Set wrddoc = wrdapp.Documents.Open("D:\Fichier.doc")
DoEvents
wrdapp.Visible = True
If wrddoc Is Nothing Then MsgBox "le document D:\Fichier.doc est fermé ou n'existe pas."
End Sub

C'est tout de suite mieux quand on a tout

Code:

1
2
3
4
5
6
7
8
9
10
Sub ExporterVersWord()
Dim Titre As String, FichierWord as object, wrdapp, wrddoc
    On Error Resume Next
    Set FichierWord = GetObject("D:\Fichier.doc")
    If Not FichierWord Is Nothing Then
        MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié."
        On Error GoTo 0
        Exit Sub
    End If
    'La suite

17/07/2008, 17h45
dimitrios

Merci pour tout le temps que tu m'as accordé mais malheureusement ca ne fonctionne toujours pas, en effet si le document n'est pas ouvert, le message indiquant que le fichier Word est ouvert apparait quand même.
En fait il rentre toujours dans la condition di If not

Non ca fonctionne toujours pas!!!!:cry:
17/07/2008, 18h16
ouskel'n'or

Curieux, chez moi, ça a fonctionné une fois mais ça ne fonctionne plus :cry:

Edit
Regarde la FAQ Excel, la syntaxe t'est donnée par SilkyRoad à la rubrique "Comment vérifier si un document Word est déjà ouvert ?" :oops:

C'est pareil chez moi, mon programme de départ
Code:

1 2 3 4 5 6 7 8 9 10 11 Set FichierWord = GetObject("D:\Fichier.doc") If FichierWord = ActiveDocument Then MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié." Exit Sub End If Set FichierWord = Nothing Set wrdapp = CreateObject("Word.Application") Set wrddoc = wrdapp.Documents.Open("D:\Fichier.doc") wrdapp.Visible = True
marchait des fois et d'autres fois pas.

En fait le problème provient de l'erreur 462 (Le serveur distant n'existe pas ou n'est pas disponible ) qui apparait que certaines fois.

Du coup, j'avais modifié ma boucle if en rajoutant une condition de comptage des document word
Code:

1 2 3 4 5 6 7 If Documents.Count >= 1 Then Else If FichierWord = ActiveDocument Then MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié." Exit Sub End If End If
ouvert et la j'ai eu l'erreur 4248 qui est apparu (commande indisponible : auncun document n'est ouvert)

17/07/2008, 18h21
kiki29

Salut, peut-être faire un ChDrive "D" qqpart ?
17/07/2008, 18h28
dimitrios

le programme de la faq ne marche chez moi il indique tjrs que le fichier est fermé

bon ben tant merci pour ton aide et tout le tps que tu mas accordé

C'est quoi Chdrive??
17/07/2008, 18h41
ouskel'n'or

Sert à définir le lecteur mais j'ignore quelle incidence cela peut avoir avec le code.
Curieux, ton histoire tout de même, chez moi il me dit qu'il est ouvert quoi qu'il arrive :marteau:
Doit rester une instance ouverte...
Non, ce n'est pas ça, aucune instance de Word auverte :cry:
Dès que j'ai un moment je refais mes tests mais là, je suis occupé "ailleurs"
Bonne soirée
07/01/2009, 15h44
Seraphin80

Bonjour,
Je suis en train d'essayer d'utiliser cette procédure et bien sur comme dimitrios il m'indique que le fichier est ouvert même quand il est fermé.
Ousk, tu marques dans ton dernier message que tu vas faire des tests sur ce codes, les as tu fait? Des retours sur cette procédure?

Merci d'avance
Séraphin

Bonjour,

et ainsi ? :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Function dejaouvert(FileName As String) As Boolean
    Dim lfic As Long, erreur As Long
    lfic = -1: erreur = 0
    lfic = lOpen(FileName, &H10)
    If lfic = -1 Then
        erreur = Err.LastDllError
    Else
        lClose (lfic)
    End If
    dejaouvert = (lfic = -1) And (erreur = 32)
End Function
 
Private Sub Command1_Click()
  MsgBox dejaouvert("d:\fichier.doc")
End Sub

07/01/2009, 16h25
Seraphin80

Merci pour le bout de code,
mais après essaie j'ai le même problème qu'avec la procédure du dessus.
Le fichier est toujours considérer comme ouvert.
07/01/2009, 16h29
decondelite

Je crois me souvenir que j'ai déjà eu ce genre de problème pour des histoires d'instanciation ou de tableau dynamique dans mes modules de classe.

Regarde déjà à quelle ligne ça plante. Ensuite, dis-toi que bien souvent ce problème est certes provoqué par la ligne en cause, mais qu'en réalité la cause profonde est très souvent dûe à un problème de référence situé en amont.

Donc n'hésite pas à regarder déjà toutes les variables en cause dans la ligne en cours, et vérifie que tu n'as pas déjà des valeurs anormales pour d'éventuelles autres variables en amont.

Je ne me souviens plus très bien (ça doit remonter à il y a 2 mois), mais la dernière fois je crois que c'est dû à un passage d'objet inexistant (Nothing ou erreur je sais plus), qui à terme a fini par faire planter le programme plus loin.
07/01/2009, 17h37
Seraphin80

Après redémarrage de mon PC pour voir si cela pouvait supprimer mon problème de document toujours ouverts.
Et bien ma procédure fonctionne.
Merci decondelite.