macro trop longue en temps

[marcello06]

Salut à tous

j'ai cette macro qui me creer un nouveau fichier à partir d'un fichier existant que je renomme avec le N° de la semaine et je place les date du lundi et vendredi sur le new fichier.

Cela fonctionne mais je trouve que le temps pour executer cette macro est trop long

peux t-on la reduire ou la simplifier ?


Public Sub creationsemaine2()

Workbooks.Open Filename:= _
'C:\\excel travail\\programmation semaine technique clientele\\Sem XX 2006.xls'

Dim Jour As Date
Dim semaine As Byte
Dim lundidate As Date
semaine = InputBox('semaine ?')
Jour = DateSerial(Year(Date), 1, 1)

lundidate = CDate(IIf(Jour > 5, Jour - Weekday(Jour) + 2, Jour - Weekday(Jour) - 5) + 7 * semaine)
ActiveWorkbook.SaveCopyAs Filename:='Sem' & ' ' & semaine & ' ' & '2005' & '.xls'

Workbooks('Sem XX 2006.xls').Close
Workbooks.Open Filename:='Sem' & ' ' & semaine & ' ' & '2005' & '.xls'
Range('E2').Value = semaine
Range('G2').Value = lundidate
Range('L2').Value = lundidate + 4

End Sub

Merci de votre aide

 

[PascalXLD]

Bonjour

essaies peut-être en mettant un application.screenupdating = false en début de macro

Bon WE