Bonjour Abel, et le Forum,
J'ai automatisé ma recopie de feuilles d'un classeur à un autre,
Dans mon classeur d'origine WB1 j'ai 36 feuilles.
La routine ci-dessous s'arrète avant la recopie totale de mes feuilles avec le message d'erreur ci-dessou:
'Erreur d'execution 9, l'indice n'appartient pas à la selection' et quand je regarde le code sheets.count du classeur resulat WB2 est dèjà = à 36 et je n'ai que 33 feuilles dans WB2.
J'ai passé des heures pour trouver une solution ou une astuce mais sans resultat. merci de votre aide.
ci-dessous le code:
Sub CopyFeuilDansFichResultat()
'Copier des feuilles du classeur WB1 dans WB2
Dim WB1 As Workbook, WB2 As Workbook
Set WB1 = Workbooks('TDB_DATA.xls')
Set WB2 = Workbooks('TDB_RES.xls')
Dim WS As Worksheet
Application.Calculation = xlCalculationManual
WB1.Activate
For Each WS In Worksheets
If WS.Name <> 'MENU' And WS.Name <> 'ERT' And WS.Name <> 'REF' And WS.Name <> 'TDB_REF' Then
With Application
.DisplayAlerts = False
WB2.Activate
WS.Copy After:=Workbooks('TDB_noprog.xls').Worksheets(Sheets.Count)
.DisplayAlerts = True
End With
End If
WB1.Activate
Next
WB2.Activate
Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.BreakLink Name:='D:\\KB_CDPMENS\\TDB_cdpm.xls', Type:= _
xlExcelLinks
'
WB2.Save
WB1.Worksheets('MENU').Activate
End Sub