VBAブックを別のブックにコピーする

Question

この問題は長い間解決されていますが、修正することはできません。ここで

は私のコードです：

Sub MàJ_Pluri() 
' 
' MàJ_Pluri Macro 
' 

'chemin vers fichier pluri = chemin2 
    Range("U35").Select 
    Selection.Copy 
    Range("U36").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 

    Dim chemin2 As String 
    chemin2 = Range("U36").Value 

    Dim chemin As String 
    Année = Range("C4").Value 

    Sheets("Création DC").Select 
    Sheets("Suivi Pluri-annuel").Visible = True 
    Rows("3:3").Select 
    Selection.Copy 

    Workbooks.Open Filename:= _ 
     chemin2 _ 
     , UpdateLinks:=0 
' 
    ActiveSheet.ShowAllData 
' 
    Dim LastRow As Integer 
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 
    ActiveSheet.Range("$A$2:$AT" & LastRow).AutoFilter Field:=1, Criteria1:=Année 
    Range("A2").Select 
    ActiveCell.Offset(2, 0).Select 
    ActiveCell.EntireRow.Insert 
    Range("A4").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Windows("Gestion DC projet V.2.2.xlsm").Activate 
    Sheets("Suivi Pluri-annuel").Select 
    ActiveWindow.SelectedSheets.Visible = False 
    Sheets("Création DC").Select 
    Range("C2:D2").Select 




End Sub 

のでbasicaly、私の目標は、最初のワークブックにシートを開き、行3にあるものをコピー、二ブックを開く、下に空白行を挿入することです2行目に貼り付け、この行に貼り付けます（これは常に4番目です）。行の中に何もコピーされていないことを除いて、すべてが機能しています。

ご意見はありますか？ヘルプは本当に感謝しています！

ありがとうございました！

Answer 1

最初に開いているワークブックを変数に割り当て、残りの操作を行います。

次のブックをコピーして開いているので、何もコピーされないので、コピー方法は自動的に消去されます。