Goedemiddag
ik probeer met VBA een sheet als werkboek op te slaan. Dat lukt allemaal met deze code:
nu wil ik graag 2 dingen waarvan ik echt niet weet hoe:
1 het nieuw opgeslagen document blijft open staan. maar ik zou graag willen dat dit niet open is maar alleen opgeslagen zou worden
2 het bestand nieuwe bestand altijd zal worden opgeslagen als .xlsm
ik hoop dat iemand kan helpen
ik probeer met VBA een sheet als werkboek op te slaan. Dat lukt allemaal met deze code:
Code:
Sub Opslaan()
Dim strFileName As Variant
Dim strPath As String
strFileName = Range("AA6").Value & " " & Range("AB6").Value & " " & Range("AC6").Value & " " & "Dealsheet" & " " & Range("C2").Value
strPath = "D:\users\mijn\Desktop\data\Original\"
FixedFilePathName = "D:\users\mijn\Desktop\data\Original\" & Range("AA6").Value & " " & Range("AB6").Value & " " & Range("AC6").Value & " " & "data" & " " & Range("C2").Value
If strFileName = False Then
MsgBox "Oh oh... je hebt niet opgeslagen! "
Else
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:=strFileName & OverwriteIfFileExist = True & ScreenUpdating = False
MsgBox "Gelukt! Opgeslagen als: " & strFileName
End If
End Sub
nu wil ik graag 2 dingen waarvan ik echt niet weet hoe:
1 het nieuw opgeslagen document blijft open staan. maar ik zou graag willen dat dit niet open is maar alleen opgeslagen zou worden
2 het bestand nieuwe bestand altijd zal worden opgeslagen als .xlsm
ik hoop dat iemand kan helpen