Bonjour et merci d'avance pour votre aide !
J'aimerai mettre en place une macro me permettant de venir copier les cellules d'un rapport Classeur "Rapport.xls" => Onglet "Page 1" dans un autre classeur Excel "Suivi.xlsm" => Onglet "Data".
Les données à copier seront toujours dans les colonnes allant de A2 jusqu'à Ox , le nombre de ligne peut varier mais le nombre de colonne sera toujours le même ainsi que le nom des feuilles et classeur.
Les données seront à coller à la suite d'un tableau "Tableau1", afin de créer une base de données.
Je débute sur le VBA mais je suis persuadé que cela est possible ! J'ai fais quelques petites recherches et petit test je vous joins le """"Code"""" que j'ai essayé de mettre en place.
Sub transfert()
Dim Last_Row1 As Long, Last_Row2 As Long, i As Long
Dim W1 As Workbook, w2 As Workbook
Dim f1 As Worksheet, f2 As Worksheet
Application.ScreenUpdating = False
W1 = "Rapport.xls"
w2 = "Suivi.xlsm"
Set f1 = Sheets("Data")
Windows(W1).Activate
Set f2 = Sheets("Page 1")
For i = 2 To Last_Row1
Last_Row1 = f2.Range("A" & Rows.Count).End(xlUp).Row
Windows(w2).Activate
With f1
Last_Row2 = f1.Range("A" & Rows.Count).End(xlUp).Row + 1
f2.Range("A2:O" & Last_Row1).Copy f1.Range("A" & Last_Row2)
End With
Next i
End Sub
Merci de votre aide, je reste à votre disposition pour toute information !
Bonne journée à vous,
Alexandre