VBA slaat niet op

[patrickklaroen]

Hallo

Ben even aan het stoeien geweest knippen en plakken
Maar nu slaat hij mijn nummer niet op wat doe ik nu fout ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'If MsgBox("Wil je het bestand uitprinten", vbYesNo, "Run.Application.This.Workbook.xls!Print_BeforeClose") = vbNo Then Cancel = True
MessageBox
End Sub
Private Sub Workbook_BeforeClose1(Cancel As Boolean)
If Not ThisWorkbook.ReadOnly Then
ThisWorkbook.SaveAs Filename:="C:leverbonnen\" & [Blad1].[J13] & [Blad1].[B11] & ".xls"
End If
End Sub

Private Sub Workbook_Open()
Worksheets("Blad1").Activate
Range("J13").Value = Range("J13").Value + 1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Leverbon1.xlt", FileFormat:=xlTemplate
Application.DisplayAlerts = True
End Sub

 

[leofact]

ThisWorkbook.SaveAs Filename:="C:leverbonnen\" & [Blad1].[J13] & [Blad1].[B11] & ".xls

in ieder geval moet het c:\ zijn
de rest zou ik in moeten duiekn, maar heb een beetje tijdgebrek,
misschien iemand anders?
groeten Leo

 

[patrickklaroen]

Hallo Leo

Ik heb dit zo staan omdat ik graag wil dat deze opslaat in de map leverbonnen op de c: schijf.
Of zou dit ook anders kunnen ??

Thnks

 

[leofact]

Nee dat is prima zo, er zit alleen een tyepfout in
Er staat c:leverbonnen.
dit moet zijn c:\leverbonnen
Dan zal de het bestand in de map opgeslagen worden.
De rest van de naam kan ik niet controleren, dat is afhankelijk van wat in de cellen J13 en B11 staat.
Bepaalde (lees)tekens, bijvoorbeeld, kunnen niet in een bestandsnaam.
mvg leo.

 

[patrickklaroen]

Jajaja dat is ie Kei goed Harstikke bedankt .Ik kan weer voor uit


Mensen Bedankt!!:thumb: