Erreur 1004 ennervante [résolu]

Option Explicit

'@+Thierry 06/06/2006
Sub TheMaxiSheetsGenerator()
Dim WSMatrix As Worksheet
Dim WSHome As Worksheet
Dim i As Byte
TheSheetsDestructor

With ThisWorkbook
    Set WSMatrix = .Sheets('NonDeFeuilleACopier') 'A ADAPTER
    Set WSHome = .Sheets('NomDeFeuilleInterface') 'A ADAPTER
   
   
    For i = 1 To 100
        WSMatrix.Copy After:=.Worksheets(Worksheets.Count)
        .Worksheets(.Worksheets.Count).Name = 'Copy Matrix ' & i
        With Application
        WSHome.Cells(i + 1, 1) = .MemoryUsed
        WSHome.Cells(i + 1, 2) = .MemoryFree
        WSHome.Cells(i + 1, 3) = .MemoryTotal
        End With
    Next i

End With
WSHome.Activate
End Sub


Sub TheSheetsDestructor()
Dim WSMatrix As Worksheet
Dim WSHome As Worksheet
Dim i As Byte



With ThisWorkbook
    Set WSMatrix = .Sheets('NonDeFeuilleACopier') 'A ADAPTER
    Set WSHome = .Sheets('NomDeFeuilleInterface') 'A ADAPTER
   
   
    Application.DisplayAlerts = False
        For i = 1 To Worksheets.Count
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If .Worksheets(Worksheets.Count).Name <> WSMatrix.Name And .Worksheets(Worksheets.Count).Name <> WSHome.Name Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Worksheets(Worksheets.Count).Delete
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; Application.DisplayAlerts = True
End With

WSHome.Activate
End Sub

Cliquez pour agrandir...