Discussion :

[dimitrios]

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 :

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

Voici mon code :

Code :

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

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

[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

[dimitrios]

Voila le code :

Code :

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

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!!!

[ouskel'n'or]

Code :

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

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 :

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

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

[dimitrios]

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

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

[ouskel'n'or]

C'est tout de suite mieux quand on a tout

Code :

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

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

[dimitrios]

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

Code :

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

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 :

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

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)