Bonjour,
Quelle erreur ai-je faite Svp
En vous remerciant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub Enregistrer()
ActiveWorkbook.SaveAs Filename:="C:\ADD\Jean\RecepFiche\" & Range("A4") & " " & Range("K4").xls
ActiveWorkbook.Close
End Sub