Suppression de feuilles dans plusieurs classeur

pledger · 5 Décembre 2011

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 :

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 · 5 Décembre 2011

Re : Suppression de feuilles dans plusieurs classeur

Re pledger,

Tachez de faire les choses simplement...

Code:

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 · 5 Décembre 2011

Re : Suppression de feuilles dans plusieurs classeur

Problème résolut :

il fallait ajouter wb. devant chaque sheets .

job75 · 5 Décembre 2011

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+

Suppression de feuilles dans plusieurs classeur

pledger

XLDnaute Junior

job75

XLDnaute Barbatruc

pledger

XLDnaute Junior

job75

XLDnaute Barbatruc

Discussions similaires