L
luger
Guest
Bonjour ,
Je souhaiterais ameliorer la macro suivante.
Sub Macro2()
Sheets("DEVIS").Select
Sheets("DEVIS").Copy Before:=Sheets(5)
Sheets("DEVIS (2)").Select
Sheets("DEVIS (2)").Name = "SansDetail"
Range("A1").Select
End Sub
Je voudrais ajouter que si "SansDetail" existe, il crée "SansDetail 2"et ainsi de suite.
Merci de votre collaboration
Luger
Je souhaiterais ameliorer la macro suivante.
Sub Macro2()
Sheets("DEVIS").Select
Sheets("DEVIS").Copy Before:=Sheets(5)
Sheets("DEVIS (2)").Select
Sheets("DEVIS (2)").Name = "SansDetail"
Range("A1").Select
End Sub
Je voudrais ajouter que si "SansDetail" existe, il crée "SansDetail 2"et ainsi de suite.
Merci de votre collaboration
Luger