Discussion :

[Fives Michel]

Bonjour,
J'ai créé un programme sous Excel VBA il y a quelques années déjà. Ce programme fonctionnait très bien hier encore. L'objet de ce programme était très simple: A partir de données recueillies dans un onglet "Donnees", il affichait une feuille, la copiait puis la collait dans le même classeur puis faisait un traitement des données dans la feuille nouvellement créée.
Je suis en train de développer un nouvel outil qui nécessite également un traitement de feuilles Excel:
Dans une feuille "Modele" j'ai nommé des cellules dont la portée est le classeur entier. J'ai fait un programme permettant d'effacer tout le travail effectué par l'utilisateur pour repartir d'un classeur vierge. Pour cela le programme supprime tous les noms de cellules qu'il a pu créer (nom de cellule codifiés et donc uniques) et toutes les feuilles qu'il a également créées. J'ai eu un premier bug hier qui me plantait littéralement Excel (Excel doit redémarrer, etc.). Le problème arrivait au moment où il devait supprimer la feuille. J'ai donc testé une version précédente de mon programme qui elle fonctionnait sans problèmes. Ce que je ne comprends pas, car mes modifications entre les 2 versions ne portaient pas sur cette partie de programme. J'ai alors importé la version précédente dans ma version actuelle. Mais voilà, j'ai eu un nouveau message (cette fois-ci Excel ne plante plus) m'indiquant qu'il n'arrive plus à coller l'onglet. Excel ne trouve pas un fichier temporaire (dont le nom change à chaque fois).
Comble de tout, le programme que j'ai créé il y a quelques années (celui dont je parlais en début de post) ne fonctionne pas lui non plus.
J'avoue, j'y perds le peu de latin qu'il me reste.
Cogito ergo sum, mais là, j'ai beau cogiter, aucune solution ne me vient à l'esprit.

[unparia]

Bonjour
Sans voir le code impliqué, ma foi ... -->> je monte au grenier retrouver une vieille boule de cristal ?

A ce "stade" et dans de telles "conditions", une première remarque :
Il est bien évidemment impossible de supprimer la totalité des feuilles d'un classeur. Une au moins doit exister.

Pour le reste : on attend de voir le code.
Je devine bien d'autres maladresses mais je ne vais pas ici commencer à partir de différentes hypothèses et traiter chaque hypothèse, hein ...

[Fives Michel]

Bonjour Unparia et merci.

Evidemment, je ne cherche pas à supprimer toutes les feuilles de mon classeur. J'en ai au minimum 6 dont 2 cachées.

Le code qui me permet de supprimer les noms dans une feuille et la feuille :

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
Sub Suppr_Nom_Et_Feuil(Feuil_Travail As String)

    Dim Nom As Name
    Dim NNom As String
    Dim Compteur As Integer
    Dim Cel As Range
    
        For Each Nom In Names
            NNom = Nom.RefersTo
            If Nom_Feuil(Range(Nom)) = Feuil_Travail Then
                Range(Nom).Name.Delete
            End If
        Next
' Recherche dans le classeur d'une feuille portant déjà le même nom
' Suppression le cas échéeant
        For Each Sheet In Worksheets
            If Sheet.Name = Feuil_Travail Then
                Application.DisplayAlerts = False
                Sheet.Delete <= c'est ici que Excel plantait
                Application.DisplayAlerts = True
            End If
        Next
End Sub

Pour le copier coller :

Code :

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

1
2
3
4
5
6
7
8
' Récupération du nombre de feuilles dans le classeur
' Copié/collé en dernier de la feuille 'Modele_Cycle'
' Nomination de la feuille créée
    Nb_Feuil = Worksheets.Count
    Sheets("Modele_Cycle").Visible = True
    Sheets("Modele_Cycle").Copy After:=Sheets(Nb_Feuil) <= c'est ici que le programme plante.
    ActiveSheet.Name = Nom_Destination
    Sheets("Modele_Cycle").Visible = False

Ce copié/collé de feuille, je l'ai réalisé plusieurs fois, de la même manière sans aucun problème et jusqu'à hier matin, il fonctionnait toujours.
J'ai un collègue qui a le même souci sur un autre fichier.