Discussion :

[julietindiamike]

Bonjour,

J'aurai voulu votre avis, moi et quelques autres personnes utilisons un userforms pour compléter un fichier excel commun. Parfois nous avons un problème, lorsque 2 ouvertures de fichiers tombent en même temps.

Il serait préférable de vérifier si le fichier est déjà ouvert? Ou utiliser on error go to?
Si le fichier est déjà ouvert (ou si l'erreur est rencontrée), comment automatiser un certain nombre de tentatives? Avec une boucle c'est envisageable?

Merci d'avance pour vos lumières

[Menhir]

Il serait préférable de vérifier si le fichier est déjà ouvert? Ou utiliser on error go to?

A condition de mettre un On Error Goto 0 juste après pour éviter de polluer le reste du code.

Si le fichier est déjà ouvert (ou si l'erreur est rencontrée), comment automatiser un certain nombre de tentatives? Avec une boucle c'est envisageable?

Si tu le fais, mets un Wait dans la boucle pour temporiser et, au bout d'un certain nombre de tours (à paramétrer en fonction de la patience des utilisateurs), demande à l'utilisateur s'il veut persister ou abandonner (un simple MsgBox devrait suffire).

[Pierre Fauconnier]

Salut.

Je note que tu tagues XL2003...

Le partage de fichiers Excel pour la saisie, c'est quand même loin d'être le top. Il serait donc judicieux qu'il n'y ait pas de partage. Si pas de partage, lorsque tu ouvres un fichier qui est déjà ouvert par quelqu'un d'autre, tu as une alerte d'Excel t'informant que le fichier est ouvert en lecture seule et tu peux demander à Excel qu'il t'informe de la libération du fichier. Ne serait-ce pas suffisant?

[Menhir]

D'accord avec Pierre Fauconnier.
J'ajouterais même que dès qu'on parle de "multi" (multi-fichiers, multi-utilisateurs, etc.), il est judicieux d'envisager la possibilité d'utiliser un SGDB.

[julietindiamike]

Déjà merci pour vos réponses

Quand j'évoquais on error go to, je pensais utiliser une étiquette, le go to 0 me parait plus flou

Effectivement le wait je n'y avais pas pensé. L'attente ne devrait pas être longue, le fichier n'étant ouvert que via le script, seulement le temps d'enregistrer un ajout ou une modification.

Pierre, non malheureusement l'utilsation d'userforms est nécessaire, il permet de formater les saisies, de vérifier si certains champs ne se trouvent pas déjà dans le fichier pour éviter les doublons, certains calculs se font automatiquement, génération de textes dans plusieurs langues mis en mémoire, des actions automatisées par chaine, sans compter le login des utilisateurs et l'ergonomie...

Menhir, ah oui carrément, notre solution excel a été créée à la va vite pour un besoin immédiat, sans s'y connaitre du tout... puis il a évolué. Au stade actuel, c'est clair qu'une BDD (access?) aurait été plus appropriée. C'est sans doute quelque chose qui devra se faire plus tard, en ayant conscience que ça prendra du temps qu'on ne nous attribue pas pour du "développement" et tout reprendre à zero. Mais pendant ce temps, il y aura toujours notre solution avec excel qui continuera de dépanner.

Dans l'immédiat l'objectif reste de résoudre les problèmes de notre version actuelle, d'ou le fait de me tourner vers vous.

[Pierre Fauconnier]

Le userform est géré au sein d'un vbscript? Pas au sein d'un Excel?

Si c'est cela, c'est une info importante à avoir...

[Menhir]

Quand j'évoquais on error go to, je pensais utiliser une étiquette, le go to 0 me parait plus flou

Le On Error Goto 0 est une instruction à utiliser à posteriori pour arrêter l'effet d'un On Error précédent.
Les On Error peuvent parfois être utiles à condition de bien cibler leur action sur une instruction particulière pour laquelle on n'a pas trouvé d'autre moyen de gérer un éventuel problème.
Il ne faut en aucun cas les appliquer à l'intégralité du code, ça empêcherait de comprendre (et de corriger) un autre dysfonctionnement.

Pierre, non malheureusement l'utilsation d'userforms est nécessaire, il permet de formater les saisies, de vérifier si certains champs ne se trouvent pas déjà dans le fichier pour éviter les doublons, certains calculs se font automatiquement, génération de textes dans plusieurs langues mis en mémoire, des actions automatisées par chaine, sans compter le login des utilisateurs et l'ergonomie...

La saisie en cellule peut aussi faire tout ça (en mieux et plus simple) et peut être complétée par une macro de traitement postérieure.

Personnellement, je suis toujours parvenu à éviter les User Form dans VBA Excel (en plus, je trouve très moche leur look "années 80").
J'ai même modifié des appli d'autres concepteurs qui en contenaient, et les utilisateurs en ont été très satisfaits.
Mais c'est un sentiment tout à fait personnel et je conçois que d'autres puissent ne pas le partager.

en ayant conscience que ça prendra du temps qu'on ne nous attribue pas pour du "développement" et tout reprendre à zero.

On en est tous là malheureusement....

[julietindiamike]

Le userform est géré au sein d'un vbscript? Pas au sein d'un Excel?

Si c'est cela, c'est une info importante à avoir...

Oui c'est via visual basic, au lancement de la macro j'ai un module qui ouvre l'userform souhaité.

Menhir, je veux bien te croire pour ne pas utiliser le formulaire VBA, mais tu dois passer par un autre formulaire quand même? Notre fichier excel commun n'est pas très compréhensible pour les utilisateurs, raison pour laquelle l'utilsation de formulaire est une réelle nécessité. Il y a pas mal de colonnes qui contiennent des valeurs boleennes ou des chiffres signifiant certaines options

[Pierre Fauconnier]

VBScript? Si c'est sans Excel, tu n'auras pas le choix et tu devras passer par un userform...

Cela dit, il ne faut pas avoir peur d'un userform (avis personnel), surtout que le problème ici est plus le partage du fichier ou la volonté de l'utiliser à plusieurs en même temps et pas du tout un problème de userform.

Il faudrait tester que le fichier est en readonly lorsque tu l'ouvres, car il n'y a pas d'autres moyens de tester l'ouverture d'un fichier que de l'ouvrir et de voir si ça passe et, si ça passe, si le fichier est en lecture seule ou pas.


PS: Les fonctions que tu pourrais trouver sur le net pour tester qu'un fichier est ouvert ou pas sont des leurres improductifs, à mon avis.

[mfoxy]

Bonjour,

Tu pourrais peut être aussi :

Migrer ta base vers access, import de la table Excel.

Utiliser tes userforms excel pour interagir avec cette bdd, ce qui ne devrait pas te demander bcp de modifications si ton fichier est bien construit.

Tu as ainsi une bdd solide, réellement multi-utilisateurs.

Bénéficierait de toutes les fonctionnalité dans sgbd, requête, formulaire,...

Et garderai tes procédures excel pour tes calculs,...

Un fichier Excel mère contentant tes macros et usfr, qui serait ouvert dans le fichier temporaire de l'utilisateur via un vbscript, ce qui permettrait que chaque utilisateur possède à chaque utilisation sa propre copie à jour de l outils.

J ai du créé un système similaire au boulot, où pour des raison financière, je suis un des seuls à disposer d'access (coût licence), et je doit dire que ça fonctionne relativement bien et plus stable que des fichiers partagés.

[Pierre Fauconnier]

@mfoxy,


Pourquoi j'y ai pas pensé alors que j'ai 4 billets de blog qui expliquent comment faire? C'est par ici pour le premier...

[mfoxy]

@Pierre,

Je ne les connais que trop bien, surtout la partie pour les passages de paramètres 😜

[julietindiamike]

Je tourne un peu en rond.
Voici ma base:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
    on error goto Erreur
	Workbooks.Open Filename:= _
        "abc/test.xlsx"
    Sheets("Sheet1").Range("A1").Value = "test"
    ActiveWorkbook.Save
    ActiveWindow.Close
    MsgBox "OK!"
    Erreur:
	Msgbox "Erreur!"
End Sub

Après rélexion, au lieu de créer une boucle pour temporiser la disponibilité du fichier, ne serait il pas possible de faire une condition sur l'erreur?

Ouvrir le fichier
Si pas d'erreur ...
Si erreur Fermer le fichier, wait et renvoyer à la ligne d'ouverture (pour pas écrire l'ouverture à plusieurs endroits)

Je n'arrive pas à structurer proprement :/