Manipulation Excel et Process

Version imprimable

20/06/2018, 12h53
Franklin39

Manipulation Excel et Process

Bonjour,

Je crée un petit logiciel de gestion pour une association, servant dans un point de vente, les utilisateurs on une carte avec un code barre qui permet de les identifier. La base de données de mon logiciel est un tableur excel, étant donné que les gens qui gère cette asso savent se servir de excel, c'est plus pratique pour eux.

mon problème est le suivant : lors de l'ouverture du classeur dans mon application, je ne sais pas comment faire pour savoir si le classeur est déjà utilisé par un autre processus, étant donné que j'ai besoin de faire des écritures dans ce fichier, je dois être certain de ne pas l'ouvrir en lecture-seule.

j'utilise excel 2007 et les feuilles du classeur sont protegés par un mot de passe.

Merci :)

Solution peu élègante

N'ayant toujours pas trouvé de solution digne de ce nom, j'ai adopté une technique assez dégelasse mais qui semble répondre a mes besoins,
cette solution consiste a ouvrir le classeur puis modifier une case non-utile(ex : Z99), puis sauvegarder.
enfin ouvrir avec une autre excel.application le classeur et vérifier si la valeur a bien été modifier

Code:

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
 
    Function ouvrirClasseur(ByVal chemin As String) As Excel.Application
 
        Dim app_excel As New Excel.Application
        app_excel.DisplayAlerts = False
        app_excel.Workbooks.Open(chemin)
 
        app_excel.Worksheets(1).range("Z99").value = "blabla"
        app_excel.ActiveWorkbook.Save()
 
        Dim temp_app_excel As New Excel.Application
        temp_app_excel.DisplayAlerts = False
        temp_app_excel.Workbooks.Open(chemin)
 
        If temp_app_excel.Worksheets(1).range("Z99").value <> "blabla" Then
            temp_app_excel.Workbooks.Close()
            temp_app_excel.Quit()
            app_excel.Workbooks.Close()
            app_excel.Quit()
            Return Nothing
        Else
            app_excel.Worksheets(1).range("Z99").value = ""
            app_excel.ActiveWorkbook.Save()
            temp_app_excel.Workbooks.Close()
            temp_app_excel.Quit()
            Return app_excel
        End If
 
    End Function

Si quelqu'un a mieux je suis preneur mais comme on dit "Faute de grives, on mange des merles"

20/06/2018, 16h48
r.morel

Salut,
Je pense que la solution est ici : https://www.developpez.net/forums/d1...l-deja-ouvert/