1 2 3 4 5 6 7 8 9 10 11 12 13
|
Public Sub Copie(ligne_d_origine As Integer, feuille_d_origine As Worksheet, ligne_de_destination As Integer, feuille_de_destination As Worksheet, classeur_de_destination As Workbook)
Workbooks("1- Données à exploiter").feuille_d_origine.Rows(ligne_d_origine).Copy classeur_de_destination.feuille_de_destination.Cells(ligne_de_destination, 1)
End Sub
Sub essai()
'
' essai Macro
' Macro enregistrée le 06/08/2010 par modele
Call Copie(1, Sheets("INC_N"), 3, Sheets("INC_N"), Workbooks("1- Données à exploiter.xls"))
End Sub |
Partager