Force the confirmation question for saving

Hello,
in your place, I would rather try using ConflictResolution.

Hello,
To complement the remark from yg_be that should resolve the issue (indicate the full path instead of ChDir, it should be noted that this command works like in DOS: The ChDir statement changes the default directory or folder but does not change the default drive. Another statement, ChDrive, changes the default drive.

See: https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/chdir-statement

So to make it brief, you would need to do chdrive "E" in addition to chdir...

One of the 2 solutions from yg_be is therefore more "elegant" to solve the problem.

Thank you both for your answers,
But I'm sorry, but you are not helping me much; I remind you that the code is not mine but generated by the recorder.
So I'm not sure I understand your explanations, and you are not telling me why the recording works well for drive C:\ and not for drive E:\
If I understand correctly, I should group the path into a single line as indicated by yg_be!
I don't understand the use of ConflictResolution.
Please, could you be more explicit and clearer for a beginner?

A thousand apologies, I did a test before sending, and it seems that it works...
Here is the modified code:

Sub Enregist_C_et_E() ' ' Enregist_C_et_E Macro Sheets("Compta").Select Range("A3").Select Sheets("Echéance").Select ActiveSheet.Unprotect Password:="1447" Range("A1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 13434879 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1447" Sheets("Compta").Select Range("A4").Select Range("A4").End(xlDown).Offset(1, 0).Select ActiveWorkbook.Saved = True ChDir "C:\temp" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="Compta_Raymond.xlsm" ' Ecrasement fichier existant.xls' Application.DisplayAlerts = True 'Remettre absolument ensuite 'ChDir "E:\A_Perso_10.09.19\Banque\Compta" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="E:\A_Perso_10.09.19\Banque\Compta\Compta_Raymond.xlsm" 'ActiveWorkbook.SaveAs Filename:="Compta_Raymond.xlsm" ' Ecrasement fichier existant.xls' Application.DisplayAlerts = True 'Remettre absolument ensuite Application.Quit End Sub

Hello,
So it works now because the registration on "E" explicitly indicates the complete path to the file. There is no alert since the line "Application.DisplayAlerts = False" disables the dialog box during the save (we set it back to true afterwards).

Why didn't it work before? Because by default, we are on drive "C". When we do ChDir "E:\A_Perso_10.09.19\Banque\Compta" we don’t change drives AND in reality, we remain on "C". So when we then do ActiveWorkbook.SaveAs Filename:="Compta_Raymond.xlsm", it bugs!

To better understand, perform a test in a command prompt and type what is in bold below before pressing Enter:
1. chdir -> ChDir without parameters displays the name of the current directory (dir additionally displays the list of files)
2. ChDir "E:\A_Perso_10.09.19\Banque\Compta" -> Nothing seems to happen
3. chdir -> displays the same thing as in 1
4. E: -> takes you to the directory you typed in 2 (i.e., ChDrive "E" in VBA)

So in your program, it’s as if you were in building C and you simply looked toward building E across the street. To drop a letter in building E, you need to go down and cross the street! Hence the ChDrive command I mentioned.
You should have included a ChDrive in your program as well:

ChDrive "E" ChDir "E:\A_Perso_10.09.19\Banque\Compta" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="Compta_Raymond.xlsm" ' Overwriting existing file.xls' Application.DisplayAlerts = True 'Must reset afterwards

The solution by yg_be avoids switching drives constantly and sends the file to the right place without having to cross the street every time: a kind of teleportation!

PS ConflictResolution. would allow replacing the displayAlerts that we set to false then true but without changing your saveAs, it wouldn't have changed the underlying problem for saving in E.

Hello Roma,
Thank you for your clear and concise explanations, your examples resonate with me... now I understand my mistake.

To finish, I can therefore also replace the code:

<code basic>ChDir "C:\temp" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="Compta_Raymond.xlsm" ' Overwrite existing file.xls' Application.DisplayAlerts = True 'Must absolutely reset afterwards with Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\temp\Compta_Raymond.xlsm" Application.DisplayAlerts = True 

</code>

I'm wondering what the practical interest is in making a backup in the C:\temp folder AND in the folder on "E"? Are these duplicates intentional?