Bonjour Delirium, le forum
Merci à Excalibur et Fifi qui m'on donné ce code hier
Si j'ai bien compris, dans ton userform, sur le bonton enregistrer, tu teste l'existence du fichier et lancer ton message d'alerte avec trois propositions voici ce que je te propose pour garder la main:
NouvelleEtude.hide...
msg...
Code:
if reponse = vbYes then
application.displayAlerts=False ' Pour annuler les alertes du système (Ce qui peut faire bugger)
goto continuer
End If
if reponse = vbNo then
NouvelleEtude.textbox1.setfocus
NouvelleEtude.textbox1.selstart=0
NouvelleEtude.textbox1.sellength=len(me.textbox1)
NouvelleEtude.show 'Focus sur la séléction douteuse
Exit Sub
End If
if reponse = vbCancel then Exit Sub
continuer:
Quote:
Ce qui te permet de garder la main c'est ça :
Application.DisplayAlerts=False
Il ne faudra pas oublier de le remettre sur true un peu plus loin, quand le fichier sera remplacé.
Pour ma part ça a buggé ensuite car si le fichier existe déjà, je le remplace ... mais il faut aussi vérifier qu'il n'est pas déjà ouvert.
Au passage, comment tu fais pour savoir si ce fichier est déjà ouvert?
La méthode que j'utilise est un peu longue : je compare tous les classeurs déjà ouverts à mon nouveau. J'ai récupéré un IsOpenFile(pathname) mais ça ne marche pas!
Bon j'espère avoir répondu à ta question
A+
Il est possible (probable) que réponse prenne des valeurs numériques, auquels cas il faudra adapter:
if réponse = 1 then ...
A+
Message édité par: zzr09, à: 22/08/2005 16:15