Discussion :

[Luc01Bil]

Bonjour,
Je réalise une fusion entre un document Word et un tableau Excel ; ce dernier est chargé à partir de données issues de Access. Tout se passe bien si le document préparant la fusion (C:\Répertoire\DocMaître.doc) est fermé. Si j'ai omis de le fermer avant de lancer l'exportation, la source de données Access ne peut pas actualiser le fichier Excel (C:\Billet\données.xls).

Je voudrais vérifier si mon document "Docmaître.doc" est ouvert et si oui afficher un message "Fermer le document DocMaître".

Merci de votre aide.

J'utilise un code simpliste comme suit :

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
 
Private Sub Commande47_Click()
    On Error GoTo Commande47_Click_Err
    Dim Adresse as String
    Adresse = "C:\Billet\données.xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "données", Adresse, True
 
    Exit Sub
 
    DoCmd.Close
Exit Sub
Commande47_Click_Exit:
    Exit Sub
 
Commande47_Click_Err:
    MsgBox Error$
    Resume Commande47_Click_Exit
 
End Sub

[ypicot]

Essais d'accéder à ton .doc en écriture (par exemple en faisant un open dessus). Si tu te fais jeter (récupération du code d'erreur), c'est qu'il est ouvert.

Yvan

[cafeine]

Hello,

c'est dans la FAQ :
http://access.developpez.com/faq/?re...fichier+ouvert