Bonjour,
J'ai cette macro qui fonctionne niquel.
Si le fichier existe déjà, j'ai bien le message qui me demande si je veux le remplacer.
Si je clique sur oui, aucun soucis, quand je clique sur non, débogage erreur 1004.
Comment insérer exit sub quand je clique sur non ?
Sub test()
Dim Nom, Chemin As String
Nom = Sheets("Feuil1").Name & " - " & Sheets("Feuil2").Range("E5") & " " & Year(Date)
With Sheets("Feuil2")
Chemin = .Range("E7") & .Range("E4") & "\" & Nom
End With
With Application
.ScreenUpdating = False
.DisplayAlerts = True
End With
Sheets("Feuil1").Copy
ActiveWorkbook.ActiveSheet.Range("A2:D100").Copy
ActiveWorkbook.ActiveSheet.Range("A2:D100").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:=Chemin
ActiveWorkbook.Close
End Sub