Bonsoir tout le monde,
Je suis en train de créer une commande qui permette à l'utilisateur de sauvegarder une partie d'une classeur dans un nouveau fichier. Je laisse donc à l'utilisateur la possibilité de choisir le chemin de destination puis je lance la copie.
Mon soucis est que, si le nom choisi existe déjà et que l'utilisateur refuse d'écraser le fichier existant, le code me renvoi une erreur.
Comment puis je faire pour cela annule tout simplement l'enregistrement ?
Je vous remercie par avance pour votre aide.
Mon code :
Je suis en train de créer une commande qui permette à l'utilisateur de sauvegarder une partie d'une classeur dans un nouveau fichier. Je laisse donc à l'utilisateur la possibilité de choisir le chemin de destination puis je lance la copie.
Mon soucis est que, si le nom choisi existe déjà et que l'utilisateur refuse d'écraser le fichier existant, le code me renvoi une erreur.
Comment puis je faire pour cela annule tout simplement l'enregistrement ?
Je vous remercie par avance pour votre aide.
Mon code :
Code:
Private Sub CommandButton4_Click()
Dim NouveauClasseur As Workbook
Dim FichierDest As Variant
FichierDest = Application.GetSaveAsFilename(FileFilter:="Fichiers Excel (*.xls),*.xls", Title:="Destination de l'enregistrement")
If FichierDest <> False Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Toto").Cells.Copy
ThisWorkbook.Sheets("Toto").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets("Titi").Cells.Copy
ThisWorkbook.Sheets("Titi").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets(Array("Toto", "Toto")).Copy
Set NouveauClasseur = ActiveWorkbook
NouveauClasseur.SaveAs FichierDest
NouveauClasseur.Close False
Application.ScreenUpdating = True
End If
End Sub