bestand bewaren als

[corania17]

Beste helpers,

Ik heb een bestand met een macro.
Deze macro wordt gestart via een command button.
Het bestand is een sjabloon en wordt bewaard als een gegeven die in een cel (H13) staat.
Als ik dit bestand opnieuw open en de command button opnieuw gebruik krijg ik de melding 400.
Wat is er fout in de macro die ik gebruik?

Sub save_als()
Doelmap = "C:\KBO\Aktiviteiten"
'Controleer of de doelmap bestaat
If Dir("C:\KBO\Aktiviteiten", vbDirectory) = "" Then
MkDir Doelmap
End If
'Bestand
kopij = Doelmap & " " & Sheets("Scanblad").Range("H13") & ".xlsm"
'Check op aanwezigheid XLSM bestand
If Dir(kopij) <> "" Then
If MsgBox("Een XLSM bestand in KBO aktiviteiten bestaat al." & vbCrLf & "Alsnog opslaan?", vbQuestion + vbYesNo, "XLSM bestaat al") = vbNo Then
End If
End If
ThisWorkbook.SaveCopyAs kopij
ThisWorkbook.Close
Exit Sub

Wie o wie zou mij daarmee kunnen helpen?

Bijvoorbaat dank, Coranai17.

 

[emields]

Ik wil wel helpen maar krijg uw voorbeeld bestandje niet open.

 

[corania17]

Beste Emields,
Bedankt voor uw reaktie.
Ik dacht dat een voorbeeldbestand hierbij niet nodig zou zijn.
Ik heb overigens nog de laatste regel vergeten mee te kopieren en dat is End Sub.
Maar ik heb ook vlug even een bestand gemaakt en hoop dat u deze kan openen.

Met vriendelijke groet, Cornaia17

 

[AHulpje]

Als je het bestand in de doelmap opent en daarin onder dezelfde naam weer als kopie wilt opslaan krijg je deze foutmelding.
Dus in dat geval geen SaveCopyAs gebruiken.

 

[corania17]

Beste AHulpje,

Dank u voor uw reaktie.
Ik zal even uitleggen wat er precies moet gebeuren.
Er wordt een xltm bestand in sjablonen geopend waar geen data in zit.
Na opening wordt dit bestand voorzien van leden-data en moet worden bewaard met de command button macro, als xlsm om aktief te worden.
Het bestand heeft dan als naam de inhoud van cel H3.
Na opening kan er met de handscanner de benodigde leden-data worden gekozen en gevuld.
Als deze aktie is afgesloten moet het bestand bewaard worden met dezelfde command button macro, als dat mogelijk is?
Is de aktie voorbij dan wordt het bestand verwijderd.
Dit alles in verband met AVG.

Dus ik denk de eerste keer wordt er een bestand bewaard als en de tweede keer gewoon bewaard.
Maar hoe kan ik dit verwerken in de command button macro?

Met vriendelijke groet, Corania17.

 

[AHulpje]

Probeer het eens zo (ook de beginspatie uit de filenaam verwijderd!):

Sub save_als()
    Doelmap = "C:\KBO\"
    'Controleer of de doelmap bestaat
    If Dir("C:\KBO\", vbDirectory) = "" Then MkDir Doelmap
    'Bestand
    kopie = Doelmap & Sheets("Scanblad").Range("H13") & ".xlsm"
    'Check op aanwezigheid XLSM bestand
    If Dir(kopie) <> "" Then
        If MsgBox("Een XLSM bestand in KBO aktiviteiten bestaat al." & vbCrLf & "Alsnog opslaan?", vbQuestion + vbYesNo, "XLSM bestaat al") = vbYes Then
            Application.DisplayAlerts = False
            ThisWorkbook.Save
            Application.DisplayAlerts = True
        End If
    Else
        ThisWorkbook.SaveCopyAs kopie
    End If
    ThisWorkbook.Close
End Sub

 

[corania17]

Beste AHulpje,

Zo te zien werkt het prima.
Volgende week wordt het bestand getest en gaan we kijken of we kunnen scannen.
Hartelijk dank voor het meedenken.

Met vriendelijke groet, Corania17