Opgelost Opslaan als via venster verkenner incl. bepaalde map

[Robert Smidt]

Beste Forumleden,

Ik ben op zoek naar een vba code om een bestand op te slaan. Omdat ik nog niet weet in welke submap deze opgeslagen moet worden is het de bedoeling dat ik eerst de verkenner open in een bepaalde submap. Vervolgens kies ik handmatig voor de juiste map en sla vervolgens aldaar het Exceldocument (xlsm) op.

Inmiddels heb ik een code, maar die opent het scherm waar het originele bestand zich op dat moment bevindt, dat is dus nu juist niet de bedoeling. Ik wil dat het systeem de map 'Test' opent vanuit de c:/schijf.

Sub filesave()
'Opslaan als venster openen
Dim bFileSaveAs As Boolean
fPath = "C:\Test\"
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical
End Sub

Alvast super bedankt.

Groet, Robert

 

[edmoor]

Probeer deze eens:

Sub filesave()
    'Opslaan als venster openen
    Dim bFileSaveAs As Variant
    fPath = "C:\Test\"
    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=fPath, _
    fileFilter:="Excel Files (*.xlsx, *.xlsm")
    If fileSaveName = "" Then
        MsgBox "User cancelled", vbCritical
    Else
        ThisWorkbook.SaveAs fileSaveName
    End If
End Sub

 

[Robert Smidt]

Beste Edmoor,

Dit gaat bijna helemaal goed. Het enige is dat hij de bestandsnaam van het originele document niet meer weergeeft.

 

[Robert Smidt]

Tijdens het testen ontdekte ik ook wanneer ik het document niet wil opslaan en dus op annuleren klik, het systeem het betreffende bestand toch opslaat met als bestandsnaam: 'False.xlsm'.

 

[Robert Smidt]

Dat laatste heb ik inmiddels opgelost door: If fileSaveName = "" Then te vervangen door: If Not bFileSaveAs Then

 

[edmoor]

Maak er dan dit van:

fPath = "C:\Test\" & ThisWorkbook.Name

 

[Robert Smidt]

Dat werkt super en heel erg bedankt