Message d erreur avec disquette

Ice · 19 Mai 2005

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 · 19 Mai 2005

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 · 19 Mai 2005

salut Sylvain

Merci pour ta macro
ca marche

fabrice

Message d erreur avec disquette

Ice

Guest

Sylvain

XLDnaute Occasionnel

Ice

Guest

Discussions similaires

Message d erreur avec disquette

Ice

Guest

Sylvain

XLDnaute Occasionnel

Ice

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency