[biju]

Cześć, mam problem z poprawnym zapisaniem jednego arkusza w nowym skoroszycie, jako oddzielny plik z makrem.
W arkuszu, który chce zapisać jest makro.
Problem jest z przypisaniem w nowym pliku makra do przycisku.
Przycisk odwołuje się do makra z pliku macierzystego, a ja chce, żeby odwoływał, się do makra, które w nim jest.

#excel #vba #programowanie

Private Sub zapisz()
Sheets(Array("Cennik")).Copy

pref = ThisWorkbook.Path & "\"

Dim a_opis As Worksheet
Set a_opis = ThisWorkbook.Sheets("Info")

Filename = a_opis.Range("NazwaPliku")

If Filename = "" Then Filename = "Cennik"

Dim btn As Button
Dim t As Range
Dim sMacros As String
sMacros = "Load_Picture"

Set t = ActiveSheet.Range("B2")
Set btn = ActiveWorkbook.ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)

With btn
.Caption = "Wczytaj zdjęcia"
.OnAction = sMacros
End With

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs pref & Filename & Format(Date, "_yyyy_mm_dd"), FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
Application.DisplayAlerts = True

End Sub