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
18
19
20
21
22
23
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
 
Set WBSource = Workbooks(ruitz - ordo.xls)
Set WBDest = Workbooks(planning)
 
'cherche la ligne vide dans le classeur de destination
i = WBDest.Worksheets("planning").Range("A65536").End(xlUp).Row + 1
 
'Copie la 2eme ligne de la premiere feuille dans le classeur source.
'Colle la ligne à la suite de la derniere ligne non vide dans le classeur de
'destination.
WBSource.Worksheets("planning").Rows(2).Copy _
    Destination:=WBDest.Worksheets(planning).Cells(i, 1)
 
'Suppression de la ligne dans le classeur source
WBSource.Worksheets("planning").Rows(2).Delete
 
'Désactive le mode Couper/Copier
Application.CutCopyMode = False
 
 
End Sub

quand je met en route il me met erreur 424 a la ligne
Set WBSource = Workbooks(ruitz - ordo.xls)