Sub enregistre()
On Error GoTo Fin
Call repert
Sheets("Infos Générales").Select
Range("D17").Select
Selection.Copy
ChDir "C:\Bulletins\" & Range("A1").Value & "\"
ActiveWorkbook.SaveAs Filename:=Range("D17"), CreateBackup:=False
Fin:
End Sub
Sub repert()
On Error GoTo Fin
MkDir "c:\bulletins\" & Range("A1").Value & "\"
Fin:
End Sub