Re : Macro suppression sur plusieurs classeurs
Oui cela est possible, mais je ne suis pas très doué en code macro, tu peux me corriger le code ci-dessous pour cette modif, ce serait sympa de ta part, en admettant qu'en feuille 2 ce soit base02 et feuille 3 ce spot base03 .
Je te remercie infiniment.
Michaël.
Sub traiter()
Dim aa, i&, a&, f, adr$, cel As Range, lig&, t$
t = Timer
Application.ScreenUpdating = 0
adr = ThisWorkbook.Path
aa = Feuil1.Range("A1:A" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row)
For Each f In Array("base01.xlsx", "base02.xlsx")
Workbooks.Open adr & "\" & f
With ActiveSheet
For i = 1 To UBound(aa)
1 Set cel = .Columns(1).Find(aa(i, 1), , , xlWhole)
If Not cel Is Nothing Then
lig = cel.Row
.Rows(lig).Delete shift:=xlUp
GoTo 1
End If
Next i
End With
ActiveWorkbook.Close 1
Next f
Application.ScreenUpdating = 1
MsgBox "Traitement Terminé " & Format(Timer - t, "0.00 s"), , "Fin du traitement"
End Sub