Le vba, les boucles et les copier-coller
Bonjour à toutes et à tous,
je dois creer une macro en VB, afin d'importer des données en fonction du moi, en clair, si sur la ligne 1, le mois est 18/05, il copie cette ligne et la colle sur un nouveau fichier correspondant à ce mois, donc j'ai crée le code que voici :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Sub ouvrir_importer()
Dim i As Integer
i = 2
While i < 600
Rows(i).Select
If Month(Cells(2, i)) = 5 Then
Selection.Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\mba\Mes documents\Mois\Mai.xls"
ActiveSheet.Paste
End If
i = i + 1
Wend
End Sub |
Alors le fichier Mai s'ouvre bien, le probleme c'est que lui il est a la ligne 599, et n'a rien copié de ce qu'il y avait dans les données brutes, or a la premiere ligne de "mes données", je vois qu'il y a l'encadré indiquant qu'il est copié.