Tu écris :
mais on peut pas renommer le classeur B
Eh non ! Je t’avais prévenu.
Si tu veux que la macro marche avec un classeur nommé autrement, tu as deux solutions :
1 - Modifier la macro en remplaçant «ClasseurB » par ce nouveau nom dans la macro que tu peux ouvrir en faisant : Alt + F11
Sub Enregistrer()
ActiveSheet.Copy After:=Workbooks("ClasseurB.xlsx").Sheets(1)
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Selection.Delete
On Error GoTo Fbis
ActiveSheet.Name = Format(Date, "dd mm yyyy")
On Error GoTo 0
ActiveWorkbook.Save
'ActiveWorkbook.Close
Windows("ClasseurA.xlsm").Activate
Exit Sub
Fbis:
MsgBox "Désolé mais la feuille " & Format(Date, "dd mm yyyy") & _
" a déjà été créée su le classeur B", 16
End Sub
2 – Me donner ce nouveau nom et je te ferai la manip
Bye !