Code pour copier ligne vers un autre fichier

Version imprimable

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:

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

29/10/2015, 12h17
Marc-L

Bonjour,

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

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
29/10/2015, 13h59
chito79000

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

J'ai trouvé quelque chose ...

Code:

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:

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

ne fonctionne pas....

29/10/2015, 15h23
Marc-L

Pas besoin de Paste car la destination peut-être définie directement dans Copy (voir son aide) …
29/10/2015, 15h32
chito79000

voir son aide???? Ou ça ?
29/10/2015, 15h40
Marc-L

Exemple de la ligne n°5 du code initial …
Dans le code, positionner le curseur texte sur l'instruction puis appuyer sur la touche :f1: et lire !
Il y a aussi la zone « Taper une question » pour rechercher dans l'aide …
29/10/2015, 15h47
chito79000

J'ai deja chercher des aides du coté de F1 je n'ai trouvé c'est pour cela que je fais appel à ce site....
29/10/2015, 15h53
Marc-L

De toute manière tu l'as déjà dans le code initial dans les lignes n°5 & 7 …

Si aucune des deux méthodes ne fonctionne (copie directe ou via Paste), c'est dû à une erreur de conception :
vérifier chaque variable, chaque adresse, chaque nom de feuille ou de classeur …

Bonjour,

Et de cette façon ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Test()
 
    Dim DerLgn As Long
 
    Set O1 = Workbooks("Fichier1.xls")
    Set O2 = Workbooks("Fichier2.xls")
 
    With O2.Sheets("Feuil1")
 
        DerLgn = .Cells(.Rows.Count, "A").End(xlUp)(2).Row
        .Range("A" & DerLgn & ":Q" & DerLgn).Value = O1.Sheets("Feuil2").Range("B2:R2").Value
 
        DerLgn = .Cells(.Rows.Count, "T").End(xlUp)(2).Row
        .Range("T" & DerLgn).Value = O1.Sheets(variable).Range("X2").Value
 
    End With
 
End Sub