C
CHEPAS65
Guest
Bonjour à tous,
J'ai une macro de recherche qui prend certains élèments de la colone M et qui les colle dans la colone S. Mon problème est que j'ai plusieurs classeurs et que la macro ne marche que pour le dernier ouvert. Quelqu'un peux-il m'aider à corriger cela afin d'avoir une macro qui marche pour l'ensemble des classeurs ouverts?
Merci d'avance.
Sub testchange()
'
Dim i&, cl&, dest As Worksheet, wb As workbook
For cl = 1 To 17
On Error Resume Next
Set wb = workbooks("CAISSE" & cl & ".xls")
If Err = 0 Then
With wb.Sheets(1)
For i = 2 To .Range("C65536").End(xlUp).Row
If Left(Range("C" & i), 6) = "CHANGE" And Range("M" & i) > 0 Then
Range("M" & i).Select
Selection.Copy
Range("S" & i).Select
ActiveSheet.Paste
Range("S12").Select
Range("S12") = "=Sum(S15: S1500)"
End If
Next
End With
End If
Next
End Sub
J'ai une macro de recherche qui prend certains élèments de la colone M et qui les colle dans la colone S. Mon problème est que j'ai plusieurs classeurs et que la macro ne marche que pour le dernier ouvert. Quelqu'un peux-il m'aider à corriger cela afin d'avoir une macro qui marche pour l'ensemble des classeurs ouverts?
Merci d'avance.
Sub testchange()
'
Dim i&, cl&, dest As Worksheet, wb As workbook
For cl = 1 To 17
On Error Resume Next
Set wb = workbooks("CAISSE" & cl & ".xls")
If Err = 0 Then
With wb.Sheets(1)
For i = 2 To .Range("C65536").End(xlUp).Row
If Left(Range("C" & i), 6) = "CHANGE" And Range("M" & i) > 0 Then
Range("M" & i).Select
Selection.Copy
Range("S" & i).Select
ActiveSheet.Paste
Range("S12").Select
Range("S12") = "=Sum(S15: S1500)"
End If
Next
End With
End If
Next
End Sub
