Bonjour,

j'utilise le code ci joint pour copier des lignes dans un autre onglet

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
    Dim xlErr As Excel.Worksheet
 
    Set xlErr = xlBook.Worksheets("Error")
    xlSheet.Rows(line).EntireRow.Copy
 
    MsgBox LineError
 
    xlErr.Rows(LineError).Select
    xlErr.Paste
    xlBook.Save
    Set xlErr = Nothing
xlSheet est ma Worksheet principal
XlBook mon classeur excel
LineError la ligne sur laquelle je dois coller (celle ci est incrémentée à chaque fois que je colle une ligne)

Au premier appel, tout fonctionne correctement mais au deuxieme passage j'obtiens cette erreur...
Erreur d'execution 1004: la méthode Select de la classe Range a échoué