Discussion :

[juguy]

Bonjour à tous,

J'ai crée des formulaires de saisie et de modification de dossiers client dans un service dans lequel je travaille.

Le fichier est partagé, et si deux personnes enregistrent ou modifient un dossier en même temps (j'ai mis un enregistrement en cliquant sur le bouton créer dossier ou modifier dossier) alors l'un d'eux va recevoir un message d'erreur :
"Erreur d'execution 1004 : la feuille ne peut être trouvée"

Cette erreur va engendrer la fermeture du formulaire ce qui est embêtant car une personne va passer parfois plus de 5minutes à saisir un dossier.

Ma question est : est-il possible de créer une sorte d'alerte qui me dit que quelqu'un enregistre en même temps plutot que d'avoir cette erreur d'execution, et donc ne quitte pas ce formulaire?

[Theze]

Bonjour,

Peut être avec un gestionnaire d'erreur du genre :

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
 
Sub Enregistrer()
 
    'si une erreur se produit, envoi vers le branchement Fin
    On Error GoTo Fin
 
    ThisWorkbook.Save
 
    'si tout c'est bien passé, évite d'aller plus loin...
    Exit Sub
 
Fin:
 
    MsgBox "Attention, une autre personne apporte des modifications dans ce classeur !" & vbCrLf & _
           "Veuillez patienter quelques secondes et recommencer l'opération.", vbExclamation
 
End Sub

Hervé.

[juguy]

Merci pour ta réponse

Oui je suis allé voir sur le FAQ et j'ai finalement trouvé ça !

Le souci c'est que quand je clique sur le bouton saisir dossier le fichier s'enregistre une première fois pour que la ligne se crée juste après la dernière si il y en a une qui a été crée juste avant, et j'ai un deuxième enregistement après la création de la ligne et la il est trop tard pour recréer le dossier donc je ne sais pas trop comment faire..