Bonjour à tous ,
Voilà mon problème : J'ai fait un tableau et je veux le sauvegarder. Je me sers donc de ActiveWorkbook.SaveAs Filename . Tout fonctionne bien, mais voilà , quand je clique sur annuler , il effectue la suite de ma macro. Je n'arrive pas à faire un saut pour éviter de faire une partie de ma macro.
En gros , si je n'enregistre pas , je veux aller direct à la ligne terminus.
Pourriez vous m'aider, s'il vous plait ?
Voilà mon code :
Voilà mon problème : J'ai fait un tableau et je veux le sauvegarder. Je me sers donc de ActiveWorkbook.SaveAs Filename . Tout fonctionne bien, mais voilà , quand je clique sur annuler , il effectue la suite de ma macro. Je n'arrive pas à faire un saut pour éviter de faire une partie de ma macro.
En gros , si je n'enregistre pas , je veux aller direct à la ligne terminus.
Pourriez vous m'aider, s'il vous plait ?
Voilà mon code :
Code:
Sub NouvelleAnnee()
annee = Parametre.Frame2.TextBox25.Value
EnregistrerSous:
FichierEnregistrerSous = Application.GetSaveAsFilename(InitialFileName:= _
"Périscolaire " & annee - 1 & " " & annee & ".xls", _
fileFilter:="Fichiers Microsoft Excel (*.xls), *.xls")
If FichierEnregistrerSous = False Then GoTo LaFin
If Dir(FichierEnregistrerSous) <> "" Then
Affichage = MsgBox("Un fichier du même nom existe déjà à cet emplacement." & _
Chr(10) & Chr(10) & "Renommez le ou supprimer le.", vbExclamation, "NDLR")
GoTo EnregistrerSous
End If
'On peut supprimer le fichier indésirable depuis la fenêtre "Enregistrer sous" sauf si on
'essaie de supprimer le fichier ouvert, bien sûr.
ActiveWorkbook.SaveAs Filename:=FichierEnregistrerSous, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
LaFin:
'Partie de macro à ne pas faire si je n'enregistre pas
Terminus:
Application.ScreenUpdating = True
Application.Run "Aujourdhui"
End Sub