Discussion :

[Olcor]

Bonjour à tous,

J'ai actuellement un fichier partagé où il peut y avoir environ une dizaine de personnes qui travaille en même temps à l'intérieur. À partir d'un Userform que l'utilisateur complète, en appuyant sur un bouton, je transpose ces réponses à la première ligne vide trouvée d'un autre onglet que j'utilise comme base de données. Cependant, lorsqu'ils sont plusieurs à appuyer en même temps sur le bouton, j'obtiens une erreur "Résolution des conflits", car le code ne semble pas assez rapidement et plus d'une personne obtiens le même numéro de ligne comme première ligne vide et à ce moment, deux personnes tentent d'écrire dans la même cellule. Voici mon code. Avez-vous une idée de comment je peux contourner ce problème?

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
22
23
Private Sub CommandButton2_Click()
 
Application.ScreenUpdating = False
 
 
 
fin = Wsh_Data.Range("A50000").End(xlUp).Row + 1
 
Wsh_Data.Cells(fin, 1) = UserForm_Traitement1.DateTraitement1.Value
Wsh_Data.Cells(fin, 2) = "'" & UserForm_Traitement1.NoContrat1.Value
Wsh_Data.Cells(fin, 3) = UserForm_Traitement1.NomAssure1.Value
Wsh_Data.Cells(fin, 4) = UserForm_Traitement1.NomUtilisateur1.Value
Wsh_Data.Cells(fin, 5) = UserForm_Traitement1.Erreur1.Value
 
ActiveWorkbook.Save
 
Application.ScreenUpdating = False
 
Unload UserForm_Traitement1
 
Call Traitement1
 
End Sub

[Menhir]

Même si Excel a quelques éléments qui peuvent laisser croire qu'il sait faire du multi-utilisateurs, il est extrêmement incompétent en la matière. Ton cas en est un parfait exemple.

Donc, quand on veut faire sérieusement un travail de base de données, on utilise un SGDB (Access, Libre Base, Open Base, etc.).

C'est le seul conseil judicieux que je peux te donner.
Tous les autres serait du rafistolage à la fiabilité douteuse.

[mercatog]

Bonjour
J'adhère entièrement à l'intervention de Menhir

Au cas de l'indisponibilité des applications SGBD dans l'organisation et si seul Excel est disponible (Dernièrement j'étais contraint dans "une grande organisation" à ne travailler que sur Excel. Eh oui), Je me suis amusé pour lire et écrire sur des classeurs fermés à l'aide de adodb

https://silkyroad.developpez.com/VBA/ClasseursFermes/

Connexion string oledb

https://www.connectionstrings.com/ace-oledb-12-0/

[Olcor]

Merci pour cette information. Cependant, ne serait-il pas possible de gérer ce cas d'erreur tel que on error goto mais adapté pour la fenêtre de "Résolution des conflits"?

[Menhir]

Merci pour cette information. Cependant, ne serait-il pas possible de gérer ce cas d'erreur tel que "on error goto" mais adapté pour la fenêtre de "Résolution des conflits"?

Les On Error ne serve qu'à masquer les problèmes et non à les résoudre.
Ce n'est pas parce qu'on se met la tête dans le sable pour ne plus voir le problème que le problème disparait.

Une dizaine de personnes travaillant simultanément sur un fichier Excel, c'est crise de nerf et nuits blanches garanties. C'est ce que me dit mon expérience.
Tu peux penser autrement mais j'espère pour toi que comprendra que tu es dans la mauvaise voie avant d'avoir des ennuis trop sérieux.