Message d erreur avec disquette

[Ice]

Bonjour le forum

J aimerai savoir s il existe un moyen de mettre un message si aucune disquette n est inserée. Car actuellement ma macro passe en mode deboguage.

ma macro est d un simplicité mais je ne sais comme faire

Workbooks.Add
ActiveWorkbook.SaveAs Filename:='A:\\miseajour.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False


Merci de votre aide


Fabrice

 

[Sylvain]

bonjour,

un essai en utilisant le gestionnaire d'erreur :

Sub pb_disquette()
  Workbooks.Add
  On Error GoTo 1 'ne s'arrête pas mais va à 1 en cas d'erreur
  ActiveWorkbook.SaveAs Filename:='A:miseajour.xls', FileFormat:= _
  xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
  , CreateBackup:=False
  Exit Sub 'pour sortir et ne pas continuer
1
  MsgBox ('pas de disquette dans le lecteur A')
  ActiveWorkbook.Close savechanges:=False 'ferme le classeur ajouté
End Sub

 

[Ice]

salut Sylvain

Merci pour ta macro
ca marche

fabrice