Opslaan als

[Efsix]

Beste Excellers.

Ik heb een werkblad waarin ik gebruik maar van Celinhoud om een bestandsnaam te genereren. Dit werkt op zich prima.
Echter wordt het bestand standaard in de 'root' van Mijn Documenten geplaatst.

Hoe kan ik er voor zorgen dat ik voordat het wordt opgeslagen, er eerst een 'verkenner' wordt gestart waarin ik de gewenste map kan kiezen?

Bijgevoegd mijn knutsel.

groeten, Romé

 

[Warme bakkertje]

Romé, kijk in VBA-Help eens bij GetSaveAsFilename

Mvg

Rudi

 

[Efsix]

Romé, kijk in VBA-Help eens bij GetSaveAsFilename

Mvg

Rudi

Dank je, ik was inderdaad vergeten dat in VBA ook een prachtige helpfuncite zit.

fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
End If

maar als ik deze gebruik komt inderdaad mijn gevraagde actie in beeld. echter krijg ik het weer niet voor mekaar dat automatisch de opgegeven naar in Cel C8 als bestandsnaam mee komt.

Private Sub CommandButton1_Click()
    ThisFile = Range("B8").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Ik krijg het zelf niet voor elkaar om beide macro's te combineren.

groeten, Romé

 

[Warme bakkertje]

Probeer volgende eens

Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogFolderPicker)
       .AllowMultiSelect = False
            If .Show <> -1 Then MsgBox "Geen map geselecteerd! Verlaat deze bewerking...": Exit Sub
            mydir = .SelectedItems(1)
    End With
    ActiveWorkbook.SaveAs Filename:=mydir & "\" & [B8].Value
End Sub

Mvg

Rudi

 

[Efsix]

Probeer volgende eens

Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogFolderPicker)
       .AllowMultiSelect = False
            If .Show <> -1 Then MsgBox "Geen map geselecteerd! Verlaat deze bewerking...": Exit Sub
            mydir = .SelectedItems(1)
    End With
    ActiveWorkbook.SaveAs Filename:=mydir & "\" & [B8].Value
End Sub

Mvg

Rudi

Rudi bedankt,
Jou oplossing was niet helemaal de juiste, maar heeft mij wel op weg geholpen.
Uiteindelijk heb ik dit script gevonden.

ThisFile = Range("B8").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName


End If

End Sub


Nu kan ik opslaan met bestandsnaam die in cel B3 staat. en ook een opslan als venster om te kiezen welke map ik uiteindelijk wil.

Hartelijk bedankt voor het mee-denken.

groeten,
Romé