opslaan gaat niet in de goed map

[mrnico]

Hallo

ik gebruik het volgende script om mijn bestand op te slaan
nu heb ik alleen 1 probleem hij moet de bestanden in een bepaalde map opslaan
wat ik probeer te doen via

  srtPath = (ThisWorkbook.Path & "\cheklist\")

alleen hij zegt nu elke keer gewoon opslaan in mijn documenten

Private Sub CommandButton1_Click()



     Dim strFileName As Variant
  Dim strPath As String
  strFileName = Range("d3").Value
  srtPath = (ThisWorkbook.Path & "\cheklist\")
  strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _
                                              filefilter:="Excel Files (*.xlsm), *.xlsm, Excel 2007 Files (*.xlsm), *.xslm", _
                                              FilterIndex:=1, _
                                              Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
  If strFileName = False Then
    MsgBox "Oh oh... je hebt niet opgeslagen! "
  Else
    ActiveWorkbook.SaveAs FileName:=strFileName
    MsgBox "Gelukt! Opgeslagen als: " & strFileName
    
  End If
End Sub

 

[edmoor]

Weet je zeker dat de map cheklist bestaat in de map waar het document geopend werd?

 

[VenA]

Het ziet er allemaal niet echt logisch uit.

 [COLOR="#FF0000"]srtPath[/COLOR] = (ThisWorkbook.Path & "\cheklist\")
  strFileName = Application.GetSaveAsFilename(InitialFileName:=[COLOR="#FF0000"]strPath[/COLOR]

 

[mrnico]

de map cheklisten bestaat wel maar het master bestand staat niet in de map cheklisten maar de map er voor

 

[edmoor]

Als InitialFileName moet je wel een pad opgeven dat bestaat, anders wordt automatisch je documentenmap gekozen.

Maar heet die map nu cheklist of cheklisten?

NB:
Correct is Checklist

 

[mrnico]

Ik zie het hij heet checklisten

 

[edmoor]

Maar dan moet hij nog steeds staan in de map waar het document staat.