Run-time error 1004 ActiveWorkbook.SaveAs

Question

Hi everybody,

Can you please have a look at the following run-time error 1004 that I am receiving in Excel?

It works for others (it is a shared document on a network drive), and has worked for me in the past but since recently it is not saving anymore.

In bold the line which is highlighted by the debug.

nomraf = Sheet ("Feuil arrêt") .Range ("G4") .Value

ActiveWorkbook.SaveAs Filename:="S:\tech\Management\Archive_feuille_arret_raf\ " & nomraf & ".xlsm"

rep - MsgBox ("La feuille d'arrêt est savegardée sous le nom : " & nomraf, vbYes + vbInformation, "Copie

ActiveWorkbook.Save

ActiveWorkbook.Close

End If

Any help is much appreciated.

Thanks

Answer 1

Hi,

Try it like this

nomraf = Sheets("Feuil arrêt").Range("G4").Value

ActiveWorkbook.SaveAs Filename:="S:\tech\Management\Archive_feuille_arret_raf\ " & nomraf & ".xlsm", FileFormat:=52

MsgBox "La feuille d'arrêt est savegardée sous le nom : " & nomraf, vbYes + vbInformation