Здравствуйте, у меня две таблицы Excel, в одной (Actif) находятся данные с описанием оборудования, в другой (GO) операции для этого оборудования.Я хочу выбрать из таблицы (GO) отмеченные звездочкой операции(их может быть несколько, заранее неизвестно сколько) и их вставить в таблицу (Actif) для соотвествующего номера оборудования( он задается отдельно функцией), при вставке вставляются строки и в них записываются описания.
Я написала следующий макрос, он работает, но при записи каждой строки я должна ее сохранять, тк выскакивает окошко с запросом сохранить, помогите мне пожалуйста написать макрос красиво и удобно для работы, я новичек. Большое спасибо.

Sub RechercheDonnée()

Dim Description As String
Dim i As Integer
Dim j As Integer
Dim n, m, k As Integer
Dim zone, zone1, fk As Range
Dim insertACT, modele, fichDestin As String
Dim v2 As Long
Dim ligne As Integer
Dim cell As Variant


modele = "C:\Users\Desktop\actif\GO.xlsm"
fichDestin = "C:\Users\Desktop\actif\Actif.xlsm"


insertACT = NumeroDActif(v2)

Set zone = Range("G1").CurrentRegion
n = zone.Rows.Count
k = 0

For i = 1 To n

If zone.Cells(i, 7) = "*" Then


k = k + 1
Set fk = zone.Cells(i, 4)

Workbooks.Add Template:=fichDestin

For Each cell In Range("A1:A100")

If cell.Value = insertACT Then

ligne = cell.Row
Cells(ligne + k, 7).EntireRow.insert Shift:=xlUp
Cells(ligne + k, 7) = fk

End If

Next cell

ActiveWorkbook.SaveAs "C:\Users\Desktop\actif\Actif.xlsm", FileFormat:=52


End If
Next i



End Sub

Function NumeroDActif(ByRef v1 As Long)


v1 = InputBox("Confirmez l'actif")

NumeroDActif = v1
End Function

lbppb,

Большое спасибо за советы! Я использовала SaveAS только для того чтобы сохранять все выбранные записи в одном файле (Actif), другого способа сохранить весь выбранный лист в одном месте я не знаю.В этом и была моя проблема.

на французском