sauvegarde et message erreur

Question

Bonjour,En excel 2000 VBA, pour sauvegarder les données d'un programme en VBA  j'ai écrit une macro sauvegarde dont voici une partie du code:MsgBox"Veuillez mettre une disquette", vbOkOnly + vbEclamation"Sauvegarde"MonFichier = Dir("a:\*.*")If Err.Number<> 0 Then MsgBox("Pas de disquette dans le lecteur", vbOkOnlyMon problème: s'il n'y a pas de disquette j'ai avant mon message,  le message "Windows-Pas disque" en tête, en-dessousun rond rouge avec une croix Il  n'y a pas de disque dans le lecteur.Insérez un disque dans le lecteur.Puis les boutons Annuler Recommencer ContinuerQuelqu'un sait-il comment ne pas avoir ce message.Merc

lami20j · Answer

Salut,Fait ton gestionnaire des erreursSub code()     On Error GoTo GestionError     'début du code     '....     'Fin du code     Exit SubGestionError:     'code de gestion d'erreur     'avec retour dans le code après gestion ou sortie de la procédureEnd Sub

Sauvegarde et message erreur

1 réponse

Discussions similaires

Newsletters