Copy Paste en VBA

Bonjour tlm,
Le code ci-dessous ne veux pas passer et ca bloque au niveau de la première ligne, j'ai essayé d'optimiser le code mais ca foire en sachant que la feuille Input contient un tableau A1:C5 et je voudrais récupérer le tableau A2:C4 c'est a dire éviter de prendre ni la première ligne ni la dernière

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Report()   Windows("Daily.xls").Sheets("Input").Activate Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy   Windows("Historical_Report.xls").Activate Sheets("Historical").Range("A2").End(xlDown).Select Cells(ActiveCell.Row + 1, 1).Select ActiveSheet.Paste   End Sub

---

Merci pour votre aide

bonjour LaPanic,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() Set fSh1 = Workbooks("Daily.xls").Sheets("Input") ligne1 = fSh1.Range("A65536").End(xlUp).Row - 1 colonne1 = fSh1.Range("IV1").End(xlToLeft).Column   Set fSh2 = Workbooks("Historical_Report.xls").Sheets("Historical") ligne2 = fSh2.Range("A65536").End(xlUp).Row colonne2 = fSh2.Range("IV1").End(xlToLeft).Column   fSh1.Range("A2:" & Cells(ligne1, colonne1).Address).Copy fSh2.Cells(ligne2, colonne2) End Sub

---

Merci sabzzz,
J'ai essayé ton code mais ça bloque a la première ligne en plus j'ai pas su comment faire pour insérer le copier/coller

Je voudrais savoir s'il y a moyen d'optimiser le code ci-dessous (ce code marche très bien mais c'est pour un souci de délais de traitement)

Code:

---

1 2 3 4 5 6

Windows("Daily.xls").Activate Sheets("Input").Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy   Windows("Historical_Report.xls").Activate Sheets("Historical").Range("A65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste

---

Merci pour votre aide

Citation:

---

J'ai essayé ton code mais ça bloque a la première ligne en plus j'ai pas su comment faire pour insérer le copier/coller

---

Bonjour

Ca bloque ne veut rien dire. Merci de donner le message d'erreur précis.