Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
nom = ActiveSheet.Range("NoLancement") & ".xls"
ActiveWorkbook.SaveAs Filename:= ("Mon chemion d'accés est ici") & "\" & nom
rep = MsgBox("Les relevés de mesure ont bien été sauvegardé : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub