Discussion :

[colapsus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[amnorian]

es-tu sur qu'il n'a pas copié sur une autre feuille ?

En clair, plutot que d'utiliser activesheet, tu ne peux pas faire sheets("nom de la feuile").range("a1").pastespecial ?

[colapsus]

eh bien j'ai constaté, que sur le nouveau fichier "Mai.xls" je découvre que sur la ligne A2, il y a bien eu le premier copier/collé, mais la boucle n'a pas fonctionné

Et je suis une bille sous excel, donc je ne sais pas trop ce que tu voulais dire ^^

[colapsus]

C'est bon j'ai résolu le code, il suffisait juste de mettre la commande d'ouverture hors de la boucle, puis rajouter un compteur ici r, et mettre un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worbooks("mai.xls").Worksheets("Feuill1").Rows(r).PasteSpecial