Discussion :

[chito79000]

Bonjour à tous,

Voila la problématique que j'ai depuis pas mal de temps.
Je souhaite copier des données vers un fichier la tout va bien. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set O1 = Workbooks("Fichier1.xls")
Set O2 = Workbooks("Fichier2.xls")
 
    With O2.Sheets("feuil1")
        O1.Sheets(variable).Range("B2:R2").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
    End With
 
    With O2.Sheets("feuil1")
        O1.Sheets(variable).Range("X2").Copy .Cells(.Rows.Count, "T").End(xlUp)(2)
    End With

Cependant, je rencontre un problème parce que ma feuille source du fichier1 peut contenir une ligne comme 1500 lignes.....

[Marc-L]

Bonjour,

voir du côté de CurrentRegion et de UsedRange …



______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[chito79000]

Merci de votre retour
J'ai essayé de trouver une solution sans succès....

[chito79000]

J'ai trouvé quelque chose ...

Code :

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

1
2
3
4
5
6
7
8
    With O1.Sheets(variable)
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
        If DerniereLigne > 1 Then
            .Range(.Cells(2, 4), .Cells(DerniereLigne, 19)).Copy
        O2.Sheets("feuil1").Range("A7").Paste
 
        End If
    End With

mais la ligne

Code :

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

O2.Sheets("feuil1").Range("A7").Paste

ne fonctionne pas....

[Marc-L]

Pas besoin de Paste car la destination peut-être définie directement dans Copy (voir son aide) …

[chito79000]

voir son aide???? Ou ça ?