anomalie pour Jean Marc

Si tu veux lui parler tu envoies un mail, t'as l'air superbement con, non
???


"André" <andre.charrier@tiscali.fr> a écrit dans le message de news:
dfohen$nlm$1@news.tiscali.fr...

Bonjour Jean Marc,

D'abord j'ai suivi tes indications et MsgBox"Veuillez mettre une
disquette"... est avant le while
Mais je viens de découvrir une anomalie.
Si j'oublie de mettre une disquette, j'ai imédiatement le message:
Windows-Pas de disque
Il n'y a pas de disque dans le lecteur. Insérez un disque
dans le lecteur.
Annuler Recommencer Continuer

Si je clique sur Annuler j'obtiens "Pas de disquette dans le lecteur"

Pour suivre tes conseils je ne réussi pas à faire une annulation de
sauvegarde en reponse à Pas de disquette dans le lecteur.

Peux-tu résoudre ce petit problème, sinon si la disquette est mise tout
est
OK
André

"André" <andre.charrier@tiscali.fr> a écrit dans le message de
news:dfohen$nlm$1@news.tiscali.fr...

Bonjour Jean Marc,

D'abord j'ai suivi tes indications et MsgBox"Veuillez mettre une
disquette"... est avant le while
Mais je viens de découvrir une anomalie.
Si j'oublie de mettre une disquette, j'ai imédiatement le message:
Windows-Pas de disque
Il n'y a pas de disque dans le lecteur. Insérez un disque
dans le lecteur.
Annuler Recommencer Continuer

Si je clique sur Annuler j'obtiens "Pas de disquette dans le lecteur"

Pour suivre tes conseils je ne réussi pas à faire une annulation de
sauvegarde en reponse à Pas de disquette dans le lecteur.

Peux-tu résoudre ce petit problème, sinon si la disquette est mise tout

est

OK

Hello,

Si j'oublie de mettre une disquette, j'ai imédiatement le message:
Windows-Pas de disque
Il n'y a pas de disque dans le lecteur. Insérez un disque
dans le lecteur.
Annuler Recommencer Continuer

Ce n'est pas normal. Je ne parvient pas à reproduire ce comportement.
Peut être un settings de Windows?

Pour régler le problème plus général de la disquette absente
et permettre à l'utilisateur de quitter proprement, voici
un exemple. J'ai juste repris le début du code que je t'avais envoyé
et j'ai simplement ajouté une gestion du retour de la msgbox. Pas de
nouvelles variable.
Le code est commenté, voici:


Private Sub Command1_Click()
Dim MonFichier As String
Dim disk_ok As Boolean
Dim reponse As VbMsgBoxResult

On Error Resume Next

MsgBox "Veuillez mettre une disquette", vbOKOnly + vbExclamation,
"Sauvegarde"

disk_ok = False

While (Not disk_ok)

MonFichier = Dir("a:*.*")
If Err.Number <> 0 Then
'
' propose une messageBox avec comme choix OK ou Cancel.
'
reponse = MsgBox("Il n' y a pas de disquette dans le lecteur." &
vbCrLf & _
"Si vous souhaiter continuer, insérer une
disquette et cliquez sur OK" & vbCrLf & _
"Si vous souhaitez Annuler la sauvegarde,
cliquer sur Annuler" & vbCrLf & "" _
, vbOKCancel + vbInformation, "Lecteur
disquette")
'
' Réponse est Cancel ?
'
If reponse = vbCancel Then
'
' dans ce cas on prévient l'utilisateur
'
MsgBox "La sauvegarde est abandonnée. Pensez à sauvegarder
plus tard?", _
vbInformation, "Sauvegarde abandonnée"
'
' et on quitte la procédure
'
Exit Sub
End If
Else
'
' tout va bien.
'
MsgBox "il y a une disquette, tout va bien"
disk_ok = True
End If
Wend
'
' a partir d'ici, tout est OK !

End Sub

Bonne prog !

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr