Bonjour à tous,

J'aurai besoin d'aide pour compiler deux macros en seule.

En fait, je souhaiterai pouvoir ouvrir plusieurs classeurs contenus dans un dossier et par la suite pour chaque classeur ouvert ne conserver que le premier onglet.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub delete()
 
 
  Dim repertoire As String
  Dim Feuille As Worksheet
  Dim wbook As Workbook
  repertoire = "C:\Users\dupond\Desktop\Testing\"
 
unFichier = Dir(repertoire & "*.xls")
While unFichier <> ""
    Set wbook = Workbooks.Open(repertoire & unFichier, , False)
    ThisWorkbook.Activate
    For Each Feuille In ThisWorkbook.Worksheets
        If Feuille.Name <> "compta" Then
       'on empêche le message d'alerte à l'utilisateur
        Application.DisplayAlerts = False
        'on supprime la feuille
            Feuille.Delete
        'on remets le message d'alerte excel !!! très important !!!
        Application.DisplayAlerts = True
'fin du test
        End If
'feuille suivante
    Next Feuille
       unFichier = Dir
Wend
    End Sub
Le problème c'est qu'il ouvre bien les classeurs contenus dans mon dossier mais n'effectue pas le traitement demandé, à savoir conserver la feuille compta.

Je vous remercie de bien vouloir m'aider