Discussion :

[Porcaro]

Bonjour à tous,
depuis un arret de plus de 10 ans, je me remet un peu sur VBA.
J'ai écrit une procédure sur xl 2016 qui créer un nouveau classeur, supprime les feuilles à partir de la 3ème et renomme les feuilles 1 et 2.
mais quand je teste, j'ai une erreur d'exécution n°9 qui se met. J'ai regardé sur le forum les indications mais celà ne marche toujours pas. Voici ma procédure:

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
Sub CreerClasseur()
    Dim Classeur As Workbook
    Dim i As Integer
     
    'Création d'un nouveau classeur
    Set Classeur = Application.Workbooks.Add
    
    'Suppression des feuilles à partir de la 3ème
    With Classeur
        'Désactiver les messages d'alerte d'Excel
        Application.DisplayAlerts = False
        For i = 3 To .Worksheets.Count
           .Worksheets(i).Delete
        Next i
        'Affectation des noms aux feuilles 1 et 2
        .Worksheets(1).Name = "Ventes Années 2017"
        .Worksheets(1).Name = "Ventes Années 2018"
        .SaveAs ThisWorkbook.Path & "/" & "Historique"
    End With

End Sub

et ça bloque sur ".Worksheets(i).Delete" après la 4ème ou 5ème boucle
merci pour votre réponse et que la paix soit avec vous

[Invité]

Bonjour,

Il faut commencer par la fin :

Code :

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

For i =  .Worksheets.Count To 3 Step -1

Mais pourquoi ne pas paramétrer par défaut 2 onglets dans les options ?

[halaster08]

Bonjour,

Code :

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

1
2
3
       'Affectation des noms aux feuilles 1 et 2
        .Worksheets(1).Name = "Ventes Années 2017"
        .Worksheets(1).Name = "Ventes Années 2018"

Attention erreur de copier coller tu renomme deux fois ta feuille 1

Sinon tout à fait d'accord avec Eric KERGRESSE
Si tu fait ta boucle dans le sens "normal" pour chaque feuille que tu supprime tu décales l'indice des feuilles suivantes (ce qui n'arrive pas en bouclant "à l'envers" ) et donc au bout d'un moment tu travailles sur des feuilles qui n'existent plus d'où l'erreur.

[Porcaro]

Bonjour,


Attention erreur de copier coller tu renomme deux fois ta feuille 1

Sinon tout à fait d'accord avec Eric KERGRESSE
Si tu fait ta boucle dans le sens "normal" pour chaque feuille que tu supprime tu décales l'indice des feuilles suivantes (ce qui n'arrive pas en bouclant "à l'envers" ) et donc au bout d'un moment tu travailles sur des feuilles qui n'existent plus d'où l'erreur.

a ok j'ai compris le pourquoi du comment.
Mais maintenant j'ai un autre problème, la procédure ce bloque ici:

Code :

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

  .SaveAs ThisWorkbook.Path & "/" & "Historique"

comment résoudre cela?
par avance merci du coup de main

[Porcaro]

Bonjour,

Il faut commencer par la fin :

Code :

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

For i =  .Worksheets.Count To 3 Step -1

Mais pourquoi ne pas paramétrer par défaut 2 onglets dans les options ?

Merci pour la réponse.
cela fonctionne très bien même si je ne comprend pas pourquoi ma procédure ne fonctionnait pas complètement.
je ne voulait pas paramétrait le nombre de feuilles car c'était un exercice que je m'imposais.

J'ai un autre soucis qui se pose sur ma dernière ligne , il se bloque sur : " .SaveAs ThisWorkbook.Path & "/" & "Historique""

[Invité]

C'est le Slash qui ne va pas. Il faut le remplacer par un antislash "\"

Ps : Bonjour Halaster.

[Porcaro]

je viens d'essayer mais ça marche pas.

[Invité]

je viens d'essayer mais ça marche pas.

Chez moi, ce code fonctionne :

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
30
 
Option Explicit
 
Sub CreerClasseur()
 
    Dim Classeur As Workbook
    Dim I As Integer
 
    'Création d'un nouveau classeur
    Set Classeur = Application.Workbooks.Add
 
    'Suppression des feuilles à partir de la 3ème
    With Classeur
        'Désactiver les messages d'alerte d'Excel
        Application.DisplayAlerts = False
        If .Worksheets.Count > 2 Then
            For I = .Worksheets.Count To 3 Step -1
               .Worksheets(I).Delete
            Next I
        End If
        'Affectation des noms aux feuilles 1 et 2
        .Worksheets(1).Name = "Ventes Années 2017"
       ' .Worksheets(2).Name = "Ventes Années 2018"
        .SaveAs ThisWorkbook.Path & "\" & "Historique"
        Application.DisplayAlerts = True
    End With
 
    Set Classeur = Nothing
 
End Sub