Discussion :

[Paindep]

Bonjour,
j'ai développé une application vb6 qui va écrire dans un fichier excel présent sur le réseau, or si le fichier est déjà ouvert par quelqu'un d'autre sur le réseau, le programme plante, j'aimerais juste faire un contrôle d'accès sur ce fichier pour vérifier avant de l'ouvrir s'il est déjà utilisé ou non et par quel utilisateur, et afficher un msgbox pour en avertir l'utilisateur (Utilisez le programme ultérieurement...)

merci d'avance à ceux qui m'aideront

[DarkVader]

Il plante parce que tu cherches à le modifier sans en vérifier les droits.
Jette un œil à UserStatus et les fonctions connexes

[Paindep]

non je ne pense pas, car s'il n'est pas utilisé le programme marche très bien.

met un fichier excel sur le réseau de ton entreprise, et demande a 2 utilisateurs de l'ouvrir, tu verras qu'il n'y en a qu'un qui pourra faire des modifs dessus (et oui, c'est pas du google docs) et le 2e n'y aura accès qu'en lecture seule, et le probleme c'est mon programme va chercher et ecrire des données dans ce fichier, et vu que je n'y ai accès qu'en lecture seule quand il est déja ouvert, sa plante..


C'est pourquoi j'aimerais faire une vérification si le fichier est déjà ouvert ou non, mais je ne sais pas comment m'y prendre !
merci

met un fichier excel sur le réseau de ton entreprise, et demande a 2 utilisateurs de l'ouvrir, tu verras qu'il n'y en a qu'un qui pourra faire des modifs dessus (et oui, c'est pas du google docs) et le 2e n'y aura accès qu'en lecture seule

C'est pour rire, je me doute que tu sais deja sa xD

[l_autodidacte]

Voici un bout de code pour tester si un fichier est déjà ouvert ou non:

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
21
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 IsFileInUse(fName As String) As Boolean
    Dim hFile As Long
    Dim lastErr As Long
    ' On initialise le handle et la variable recevant l'erreur.
    hFile = -1
    lastErr = 0
    ' On ouvre le fichier pour la lecture
    hFile = lOpen(fName, &H10)
    ' Sinon on affiche l'erreur
    If hFile = -1 Then
        lastErr = Err.LastDllError
    Else
         ' On s'assure de fermer le fichier ouvert
        lClose (hFile)
    End If
    ' On vérifie s'il n'y a pas Violation de partage
    IsFileInUse = (hFile = -1) And (lastErr = 32)
End Function

J'espère que ça résout ton problème.

[DarkVader]

lopen ou createfile même combat.
UserStatus retournant la liste de tous les utilisateurs qui n'ont pas que des droits d'accès en lecture seule
suffisait à ses besoins.

[l_autodidacte]

lopen ou createfile même combat.
UserStatus ......suffisait à ses besoins.

OK, peut-être dans ce cas précis.
Mais l'exemple que j'ai proposé prend en charge tout type de fichier, qu'on utilise EXCEL ou non.

Pour être franc, je n'ai utilisé les BDD sous VB6 que très sommairement, d'où ma proposition.

[Paindep]

merci a vous pour les reponses

Je vais tester ton code et te dire ce qu'il en est.

[SfJ5Rpw8]

...
met un fichier excel sur le réseau de ton entreprise, et demande a 2 utilisateurs de l'ouvrir, tu verras qu'il n'y en a qu'un qui pourra faire des modifs dessus (et oui, c'est pas du google docs) et le 2e n'y aura accès qu'en lecture seule,...

pas forcément .... si l'option partage est activée, l'écriture est possible pour les 2 utilisateurs...