Discussion :

[sosoboss]

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

[joe.levrai]

Bonjour,

en ligne 12, tu actives le classeur contenant ton code VBA (Thisworkbook) ... ce qui n'est pas nécessaire
Mais surtout, en ligne 13, tu indiques clairement que tu parcours les feuilles de Thisworkbook, au lieu des feuilles de wbook
Donc à chaque ouverture de fichier, tu analyses les feuilles de ton classeur maître au lieu du fichier ouvert

Bonnes corrections

[RyuAutodidacte]

Bonjour,

Petites remarques :
1 - évites d'appeler tes macros comme le nom d'une fonction (vaut mieux "SuppFeuille" ou autres …)

2- quand tu ouvres un classeur, par défaut il est déjà activé et là tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Activate

qui est inutile et qui appel le classeur contenant la macro et non celui que tu ouvres et tu refait la même erreur ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Feuille In ThisWorkbook.Worksheets

pourtant tu as donné une variable pour le classeur ouvert :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wbook = Workbooks.Open(repertoire & unFichier, , False)

qui est wbook ce qui donnerai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Feuille In wbook.Worksheets

3 - Ne pas oublier de supprimer ta variable wbook à la fin de ta macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wbook = Nothing

voilà
Edit : Salut Joe, désolé j'avais pas fais attention que l'on s'était croisé

[sosoboss]

Merci beaucoup pour vos explications,

je comprends mieux l'erreur. Toutefois, la macro s’exécute bien mais j'ai une erreur d'exeécution '91' Variable objet ou variable de bloc With non définie

Comme j'ai du mal avec la macro, je n'arrive pas à repérer cette nouvelle erreur.

Le Nouveau 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
28
29
 
Sub SuppFeuille
  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)
 
    For Each Feuille In wbook.Worksheets
   'si son nom est différent de "Feuil2" (à adapter bien sur) alors.....
        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
   Set wbook = Nothing
Wend
    End Sub

[RyuAutodidacte]

Re,
Pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wbook = Nothing

Il faut le mettre après le Wend
Comme tu l'as fait , tu as supprimé le rattachement du classeur ouvert à la variable wbook
Donc tu demandes à ta macro de supprimer une feuille sur aucun classeur.

[sosoboss]

Merci beaucoup, ça fonctionne.