Suppression de feuilles dans plusieurs classeur

[pledger]

Bonjour le forum

Je vous expose mon petit soucis ^^ .

Je voudrais supprimer toutes les feuilles de mon classeur , sauf la feuille "Concaténation" et l'executer dans tous les classeurs.

Voici mon code :

Sub test1()
Dim Wb As Workbook, F As Worksheet, w As Worksheet
Dim Compteur As Integer, Nom As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Wb In Workbooks
  If Wb.Name Like "Analyse*" Then
  For Compteur = Worksheets.Count To 1 Step -1
        Nom = Sheets(Compteur).Name
        Select Case Nom
        Case "Concaténation"
            
        Case Else
            Sheets(Compteur).Delete
        End Select
    Next Compteur
    Application.DisplayAlerts = True
   

End If
Next Wb
End Sub

Mais ca ne marche que sur un classeur :/

 

[job75]

Re : Suppression de feuilles dans plusieurs classeur

Re pledger,

Tachez de faire les choses simplement...

Sub test1()
Dim Wb As Workbook, w As Worksheet
Dim Compteur As Integer, Nom As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Wb In Workbooks
  If Wb.Name Like "Analyse*" Then
   For Each w In Wb.Worksheets
     If w.Name <> "Concaténation" Then w.Delete
   Next
  End If
Next
End Sub

A+

 

[pledger]

Re : Suppression de feuilles dans plusieurs classeur

Problème résolut :

il fallait ajouter wb. devant chaque sheets .

 

[job75]

Re : Suppression de feuilles dans plusieurs classeur

Re,

Vous savez qu'un classeur doit contenir au moins une feuille.

Donc la macro beuguera s'il n'y a pas de feuille Concaténation dans un classeur.

Dans ce cas on peut ajouter On Error Resume Next en début de macro...

A+