conflit d'utilisation d'1 application deja ouverte

Question

bonjour, alors voil&#224; c'est une application en asp.net et du code en
vb.net, il s'agit d'une application client/Serveur, et il es fait en
sorte que les fichiers word sont ouvert avec le word du serveur et nom
celui du client



le pb arrive quand je veu toucher a 1 document word deja ouvert, cela
fait moulin&#233; l'application et le processus word ne se ferme pas :(



ce que je recherche c'est de savoir si le document est d&#233;j&#224; ouvert pour
empecher une autre ouverture, j'utilise ceci pour ouvrir le document :



Dim oApp As Word.Application

        Dim oDoc As Word.Document

oApp = New Word.Application

        oDoc = oApp.Documents.Open(strURLModele)



le must serai m^me de pouvoir savoir les ordinateur qui utilise le
document, svp aidez moi c urgent je doit faire ca pour ds 4j :(

valtrase · Answer

Salut,
On a d&#233;ja abord&#233; le sujet.
On Error Resume Next
Set oapp = GetObject(, "Word.Document") 'V&#233;rifie si Word est ouvert
' Ou 
' Set oapp = GetObject(PathName ) 'Chemin & nom du fichier


If Err.Number <> 0 Then
        blRunning = False           'Word n'&#233;tait pas en &#233;xecution
        Set oapp = CreateObject("Word.Document")
Else
        blRunning = True
End If
Err.Clear
Utilises la m&#233;thode .Add pour ajouter un document
......
......
......
&#224; la fin utilises blRunning pour savoir si tu dois ou non fermer Word

If Not (blRunning) Then
    oapp.Quit
    Set oapp = Nothing
End If
Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

enigmatiqk · Answer

merci bcp , pour &#234;tre sur de comprendre, cette ligne :



' Set oapp = GetObject(PathName ) 'Chemin & nom du fichier

va me permettre de voir si le document (et non l'application word) est
d&#233;ja ouvert ou non ? (car c'est ce que je recherche, word peut &#234;tre
utlis&#233; sur un autre document sans aucun probleme)



ensuite je ne voi pas l'utilit&#233; de faire :


Set oapp = Nothing



?

merci je v test&#233; ca d que possible, si qqun peut rajouter la mani&#232;re de
savoir qui a ouvert le document (le nom de la machine serai parfait,
nom d'utilisateur serai encore mieu, les 2 serai divinement parfait 
)



sinon le nb de personne qui utilise le document ?  



merci bcp

Conflit d'utilisation d'1 application deja ouverte

2 réponses

Discussions similaires