Discussion :

[chito79000]

Bonjour à tous,

Je viens vers vous puisque mon code ne fonctionne pas. Il s'agit juste de copier sur un onglet la colonne de trois autres onglets.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
   ' copie fichier 1
        With Workbooks("fichier 2").Sheets("Vérif")
   Workbooks("fichier 1").Sheets("feuil1").Range("H2:H" & Range("H" & Rows.Count).End(xlUp).Row).Copy .Range("A1")
        End With
 
            ' copie fichier 2
        With Workbooks("fichier 2").Sheets("Vérif")
   Workbooks("fichier 2").Sheets("feuil1").Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row).Copy .Range("B1")
   Workbooks("fichier 2").Sheets("feui2").Range("H2:H" & Range("H" & Rows.Count).End(xlUp).Row).Copy .Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
   Workbooks("fichier 2").Sheets("feuil3").Range("O2:O" & Range("O" & Rows.Count).End(xlUp).Row).Copy .Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
        End With
End Sub

[Thautheme]

Bonjour Chito, bonjour le forum

Attention ! j'ai utilisé l'extension .xls par défaut pour les variable O1 et O2, tu adapteras. Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim O1 As Workbook
Dim O2 As Workbook
 
Set O1 = Workbooks("fichier 1.xls")
Set O2 = Workbooks("fichier 2.xls")
' copie fichier 1
O1.Sheets("feuil1").Range("H2:H" & O1.Sheets("feuil1").Range("H" & Rows.Count).End(xlUp).Row).Copy O2.Sheets("Vérif").Range("A1")
' copie fichier 2
O2.Sheets("feuil1").Range("I2:I" & O2.Sheets("feuil1").Range("I" & Rows.Count).End(xlUp).Row).Copy O2.Sheets("Vérif").Range("B1")
O2.Sheets("feui2").Range("H2:H" & O2.Sheets("feui2").Range("H" & Rows.Count).End(xlUp).Row).Copy O2.Sheets("Vérif").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
O2.Sheets("feuil3").Range("O2:O" & O2.Sheets("feuil3").Range("O" & Rows.Count).End(xlUp).Row).Copy O2.Sheets("Vérif").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub

[Kimy_Ire]

Bonjour, Bonjour,

En mode relativement sale :

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
Option Explicit
 
Sub recopie()
Dim oRng
 
With Worksheets("Vérif")
    Set oRng = Range(Worksheets("Feuil1").Range("I2"), Worksheets("Feuil1").Cells(Rows.Count, Range("I2").Column).End(xlUp))
    .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(oRng.Cells.Count, 1).Value = oRng.Value
 
    Set oRng = Range(Worksheets("Feuil2").Range("H2"), Worksheets("Feuil2").Cells(Rows.Count, Range("H2").Column).End(xlUp))
    .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(oRng.Cells.Count, 1).Value = oRng.Value
 
    Set oRng = Range(Worksheets("Feuil3").Range("O2"), Worksheets("Feuil3").Cells(Rows.Count, Range("O2").Column).End(xlUp))
    .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(oRng.Cells.Count, 1).Value = oRng.Value
End With
 
End Sub

... mais fonctionnel, je crois. Mouhahaha !

Cordialement,
Kimy

[Theze]

Bonjour,

Petite précision, dans les noms des classeurs, l'extension doit toujours apparaître donc :

Code :

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

1
2
3
4
5
6
 
Workbooks("fichier 2.xls")
'ou
Workbooks("fichier 2.xlsx")
'ou
etc...

et non :

Code :

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

1
2
 
Workbooks("fichier 2")

Hervé.

[chito79000]

Merci beaucoup à tous vous êtes super !!!!!!!