Automatisk overskrivning af fil

Hej cws,

Som udgangspunkt er funktionen god at have - især hvis man vil advares inden gem.

Skulle du ønske alligevel at ville omgås advarslen, mener jeg at have set en kode for dette for nogen tid siden.

Kommer lige tilbage på dette.

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"

Hej igen,

Prøv lige denne her:

Sub testsave()
Const DefaultName As String = "testing.xls"
Dim FilNavn As String
FilNavn = Application.GetSaveAsFilename(DefaultName)
Application.DisplayAlerts = False
ThisWorkbook.SaveAs FilNavn
Application.DisplayAlerts = True
End Sub

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"

Perfekt - det virker helt som ønsket. Tak !!!

Hej igen,

Det var da så lidt - tak for point.

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"