Sub SEMYVELN(semaine)
Workbooks.Open Filename:= _
"...DECOMPTES HEURES\DH VONTH12.xls"
Sheets(semaine).Select
Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)
ActiveSheet.Unprotect Password:="adm"
Range("C4:E4").Select
Selection.Copy
Sheets(semaine).Select
Sheets(semaine).Name = "VONTH"
Application.CutCopyMode = False
Windows("DH VONTH12.xls").Activate
Workbooks("DH VONTH12.xls").Close savechanges:=False
Workbooks.Open Filename:= _
"...\DECOMPTES HEURES\DH RES12.xls"
Sheets(semaine).Select
Sheets(semaine).Copy Before:=Workbooks(semaine & ".xls").Sheets(1)
ActiveSheet.Unprotect Password:="adm"
Range("C4:E4").Select
Selection.Copy
Sheets(semaine).Select
Sheets(semaine).Name = "RES"
Application.CutCopyMode = False
Windows("DH RES12.xls").Activate
Workbooks("DH RES12.xls").Close savechanges:=False
End Sub
Sub lancer()
x = InputBox("Quelle semaine voulez-vous ?")
Call SEMYVELN(x)
End Sub