Sub enregistrement_fiche_anomalie()
Application.ScreenUpdating = False
Range("IV1" ).Select
nouveaunumero = ActiveCell.Value
Range("E7" ).Select
code = ActiveCell.Value
Range("IT5" ).Select
datesauvegarde = ActiveCell.Value
Range("IQ1" ).Select
ficsup = ActiveCell.Value
ActiveWorkbook.SaveAs Filename:= _
"I:\NC.MP.MCE\fiche anomalie à traiter\Fiche anomalie code- " & code & " N°-" & nouveaunumero & " date- " & datesauvegarde & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill (ficsup)
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
Quand je fait cette formule j'ai mon classeur entier qui s'enregistre, et je voudrai qu'il y ai que la feuille 1 pas les autres feuilles qui ce trouve dans le classeur
merci