skortkey versus sub user form uitvoeren met verschillend resultaat

[TonBo]

Hoi,
ik tracht een macro te maken om een XLSM sheet 1 op1 te kopiëren naar een werkblad in XLS format (97-2003, vereist door Exact software)
De macro werkt perfect met gebruik van "sub user form uitvoeren" of via "bewerken" in de editor.
Ik heb ook een shortkey - Ctrl+Shift+J - toegekend, echter daarmee stopt de macro om een voor mij onverklaarbare reden ruim voor de End Sub. Iemand een idee wat ik verkeerd doe? bij voorbaat dank. Zie onder het probleem, en waar het zich voordoet.
Bij voorbaat dank!

Sub problem()


' copy data
Sheets("JPHLP").Select
Cells.Select
Selection.Copy

' open the -existing- uploadable .XLS file (97-2003 XLS)
Workbooks.Open Filename:=ThisWorkbook.Path & "\JPEXACT.xls"

'===============================================================================
MsgBox "macro via shortkey traject -Ctrl+Shift+J- aborts HIER,omdat .... ? de file wordt nog WEL geopend. Geen foutmessages!"
'===============================================================================
MsgBox "terwijl via -sub userform uitvoeren- de macro gewoon doorgaat, met alle statements hieronder, incl. de succes msg"
'===============================================================================

' paste values
' Selection.PasteSpecial Paste:=xlPasteValues
Workbooks("JPEXACT.XLS").Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues


' close file "JPEXACT"
Workbooks("JPEXACT.xls").Close SaveChanges:=True


' back to main file
Windows("Invoicing.xlsm").Activate

MsgBox "sucessfully finished"


End Sub

 

[edmoor]

Volgens mij heb je hier genoeg aan:

Sub KopieerBlad()
    Sheets("JPHLP").Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\JPEXACT.xls", FileFormat:=xlExcel8
    ActiveWindow.Close
End Sub

 

[TonBo]

werkt nu perfect EDMOOR Bedankt ! ik zocht het te complex, denk ik, zoals wel vaker... :thumb: