VBA Eine Zeile von einer Arbeitsmappe in eine andere kopieren

Question

Ich weiß, dass dieses Problem eine Menge Zeit gelöst wurde, aber ich kann es nicht beheben.

Hier ist mein Code:

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 

So basicaly, mein Ziel das Blatt in der ersten Arbeitsmappe zu öffnen, kopieren Sie, was in der Zeile 3 wird die zweite Arbeitsmappe öffnen, eine leere Zeile unterhalb der einfügen 2. Reihe, und fügen Sie in dieser Reihe ein (die immer die 4. ist). Alles funktioniert, außer dass nichts in der Reihe kopiert wird.

Haben Sie irgendwelche Ideen? Hilfe würde wirklich geschätzt werden!

Vielen Dank!

Answer 1

Zuerst Arbeitsmappen öffnen, sie der Variablen zuweisen und dann die restlichen Operationen ausführen.

Es wird nichts kopiert, weil Sie die nächste Arbeitsmappe kopieren und dann öffnen, sodass die Kopiermethode automatisch gelöscht wird.