RE
Cela pourrait donner à peu près ceci
Citation:
Dim x AsByte
'
* * ChDir 'C:\\Tmp'
* * Workbooks.Open Filename:='C:\\Tmp\\ClasseurRecup.xls'
* * For x = 1 To Workbooks('ClasseurRecup.xls').Sheets.Count
* * * * If Workbooks('ClasseurRecup.xls').Sheets(x).Name = 'weekend' & numsemaine Then
* * * * * * Application.DisplayAlerts = False
* * * * * * Workbooks('ClasseurRecup.xls').Sheets(x).Delete
* * * * * * Application.DisplayAlerts = True
* * * * * * ExitFor
* * * * EndIf
* * Next
* * Windows('ClasseurEnCOurs.xls').Activate
* * Sheets('Feuil1').Copy Before:=Workbooks('ClasseurRecup.xls').Sheets(1)
* * ActiveSheet.Name = 'weekend' & numsemaine
|