Werkblad opslaan zonder VBA code, ik kom er niet uit..

[mathijsderuiter]

Sub AAAA_Klikken()
  

Dim strmapnaam As String
    strmapnaam1 = "P:\Temp\"
    strmapnaam2 = "P:\Temp\Terugkoppeling Mail\"
    strmapnaam3 = "P:\Temp\Terugkoppeling Mail\" & Range("D2") & "\"

Dim filename
    filename = strmapnaam3 & "2013 Coop Filiaalinfo (" & Range("D2") & ").xlsx"
    
    If Dir(strmapnaam1, vbDirectory) = "" Then MkDir strmapnaam1
    If Dir(strmapnaam2, vbDirectory) = "" Then MkDir strmapnaam2
    If Dir(strmapnaam3, vbDirectory) = "" Then MkDir strmapnaam3

Dim name
'    name = Application.GetSaveAsFilename(filename, "Coop Filiaalinfo Sheets (*.xlsx),*.xlsx,")
    
'    If name = False Then Exit Sub
    If Dir(filename) <> "" Then
    Kill (filename)
    End If
    
    ActiveSheet.Copy
    
    ActiveWorkbook.SaveAs filename
    ActiveWorkbook.Close

Dat is mijn code, met de verschillende codes die ik op internet vind om sheets op te slaan zonder de VBA code krijg ik het niet voor elkaar om de mijne op te slaan zonder een melding te krijgen, dat is namelijk de bedoeling..

Het moet zo makkelijk mogelijk worden.

 

[HSV]

Op voorhand op opgelost gezet?

Bedoel je dit?

sub opslaan()
application.dispalyalerts=false
.......code.......
application.displayalerts=true
end sub

 

[mathijsderuiter]

Jazeker, had het al gevonden..
Toch hartstikke bedankt.