J
jean
Guest
bonjour au forum
l'autre jour on ma donné ce code qui permet de copier certaines lignes et de les coller sur une autre feuille.
En fait la feuille 'ordres' ce trouve sur un autre classeur 'classeur2', que dois-je changer a ce code pour que le lien entre classeurs soit etablit.
merci
Option Explicit
Dim X, Y, Z As Integer
Sub SelectionCopier()
Application.ScreenUpdating = False
For X = 1 To 65536
If Worksheets('ordres').Cells(X, 3) = '60E2132' Then
Z = Worksheets('semaine 1').Range('A998').End(xlUp).Row + 1
For Y = 1 To 16
Worksheets('semaine 1').Cells(Z, Y) = Worksheets('ordres').Cells(X, Y)
Next
End If
Next
Application.ScreenUpdating = True
End Sub
l'autre jour on ma donné ce code qui permet de copier certaines lignes et de les coller sur une autre feuille.
En fait la feuille 'ordres' ce trouve sur un autre classeur 'classeur2', que dois-je changer a ce code pour que le lien entre classeurs soit etablit.
merci
Option Explicit
Dim X, Y, Z As Integer
Sub SelectionCopier()
Application.ScreenUpdating = False
For X = 1 To 65536
If Worksheets('ordres').Cells(X, 3) = '60E2132' Then
Z = Worksheets('semaine 1').Range('A998').End(xlUp).Row + 1
For Y = 1 To 16
Worksheets('semaine 1').Cells(Z, Y) = Worksheets('ordres').Cells(X, Y)
Next
End If
Next
Application.ScreenUpdating = True
End Sub