Discussion :

[pastis.vi]

Bonjour à tous,

Je travaille actuellement sur un projet qui permet de remplir une base de données depuis plusieurs postes informatiques.
Pour ce faire j'ai dû utiliser un fichier d'interface pour les utilisateurs et un fichier base de données.

Le fonctionnement est le suivant :
1 fichier interface <==> 1 fichier base de données
Chaque fois qu'un utilisateur veut enregistrer des données, le fichier interface appelle et ouvre le fichier base de données puis enregistre et referme le fichier BDD.
J'ai fait ce système pour éviter qu'un utilisateur tombe sur un fichier en lecture seule. (J'ai tout de même ajouté une boucle d'attente dans le cas où le fichier BDD n'est pas disponible en écriture.)

Le soucis qui se pose :
Si jamais Excel (ou la macro) plante sur un pc lors de l'appel au fichier BDD, ce dernier reste ouvert.
La conséquence ==> les interfaces vont mouliner le temps que le fichier BDD se ferme.

Je cherche une solution pour pouvoir fermer mon fichier BDD lorsque Excel (ou la macro) plante.
Est-ce possible ? Comment feriez-vous ?

Si jamais je n'ai pas été assez clair je vous donnerai plus d'infos.

Merci
pastis.vi

[thebenoit59]

Bonjour Pastis

As-tu la possibilité de montrer le code ?

[pastis.vi]

Bonjour Benoit,

J'ai même mieux (parce que mon code est moche et je pense très peu compréhensible sans avoir le fichier), voilà en attaché le fichier interface utilisateur:
Fichier supprimé pour confidentialité
Le fichier base de données est sans macros, le plus classique possible.

Voilà le fonctionnement global de mon système de fichiers :


Mon problème :
Quand je lance une requête depuis mon interface pour enregistrer des données (ou avoir un retour d'infos) vers ma base de données, j'ai peur que mon fichier base de données reste ouvert si la macro plante ou que Excel plante.

Les conséquences de ma BDD ouverte c'est que d'autres utilisateurs ne pourront pas enregistrer d'informations.

[thebenoit59]

Sans vouloir dire d'idiotie, si Excel plante le fichier sera fermé également.
S'il y a une erreur de procédure c'est différent, tu pourrais ajouter un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 On Error GoTo Fin
ton code
Exit Sub
Fin: Workbooks(le nom du classeur ou sa variable).Close False
End Sub

[pastis.vi]

Ah yes ! Très bonne idée ! Je n'y avais même pas pensé...

Merci beaucoup !

[thebenoit59]

Mais de rien. Content d'avoir aidé.