Discussion :

[vvthepilot]

Bonjour,

Comme vous pourrez le voir ci-joint, dans la liste de mes objets Excel dans l'arborescence VBA, il apparaît des anciennes feuilles qui ont une icone différente des autres, qui ne sont pas des Worksheets si j'en crois la fenêtre Propriétés, et qui ne sont pas affichables dans Excel. Pour info elle contiennent du code (toujours consultable) d'ancienne feuilles supprimées depuis (par une macro).

Pourriez-vous s'il vous plaît m'expliquer à quoi cela correspond, comment éviter leur apparition et comment les supprimer ?

Merci d'avance pour votre aide

[MarcelG]

Bonjour et bienvenu sur ce Forum,

Si ma mémoire est bonne, ce sont des feuilles macro Excel 4 (mon jeune temps!)

Teste d'abord

Code :

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

1
2
3
4
5
6
7
8
Sub essai()
 
Dim sh as sheet
For each sh in thisworkbook.Sheets
  Debug.Print sh.Name
Next sh
 
End Sub

Regarde dans la fenêtre Exécution (CTRL + G) si le nom de ces feuilles apparaît.
Leur suppression peut dès lors s'avérer possible.

D'autre part, sans doute, des noms qui y sont liés seraient à supprimer.
Onglet Formules
Menu Gestionnaire des Noms

[vvthepilot]

Bonjour,

Merci pour votre réponse

J'ai bien essayé le code que vous avez suggéré, juste en modifiant "sheet" (ligne3) en "worksheet" car sinon c'était souce d'erreur sur mon Excel. Malheureusement les Feuil1 et Feuil11 ne sont pas apparus, pas plus de succès en interrogeant Activeworkbook.Sheets.Count dans la fenêtre exécution.

J'ai nettoyé mon gestionnaire de noms qui conservait quelques erreurs, mais rien qui ne portait sur ce type de nom, ni à cet endroit.

Merci pour vos efforts si vous voyez autre chose je reste à l'écoute

[MarcelG]

Salut

Code :

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

sheet" (ligne3) en "worksheet" car sinon c'était souce d'erreur sur mon Excel

Etonnant! Sheet est un objet Excel de la collection Sheets

Malheureusement les Feuil1 et Feuil11 ne sont pas apparus

Feuil1 et Feuil11 devraient apparaître. Ce sont des feuilles Excel.
Etonnant là aussi.
Je voulais mettre en évidence le nom pour supprimer l'objet.

Sinon, essaie ceci

Code :

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

1
2
3
4
5
6
7
8
Sub essai()
 
Dim sh as sheet
For each sh in thisworkbook.Sheets
  Debug.Print sh.Name & " \ " & sh.Application
Next sh
 
End Sub

Ce qu'il faudrait, c'est que les feuilles que tu souhaites supprimer apparaissent dans la fenêtre Exécution.
Reporte ici tous les résultats reportés dans cette fenêtre.

[vvthepilot]

Merci pour tes efforts hélas j'ai bien une erreur lorsque je déclare sh "as Sheet". Voici d'ailleurs le message, une partie du problème vient peut-être de là...


En adaptant juste le code en worksheet je n'ai toujours rien de plus, malheureusement, je te joins un screenshot du résultat, j'y ai ajouté les références VBA Project activées, si jamais ça peut expliquer le problème avec "Sheet"...


Je peux faire d'autres essais si tu souhaites...

[Patrice740]

Bonjour,

L'erreur de compilation est normale, l'objet Sheet n'existe pas !
Pour explorer toutes les feuilles :

Code :

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

1
2
3
4
5
6
Sub Test()
Dim sh As Object
  For Each sh In ThisWorkbook.Sheets
    Debug.Print sh.Name
  Next
End Sub

[clementmarcotte]

Bonjour,

Juste un peu de théorie sur la ressemblance et la différence entre une sheet et une worksheet.

Une worksheet c'est une feuille de calcul uniquement.

Une sheet, c'est tout type de feuille que peut contenir un classeur, que ce soit une feuille de calcul, une feuille de macros ou une feuille graphique.
Encore que MSDN ne parle plus de feuilles de macros

Donc une worksheet c'est une sheet, mais une sheet n'est pas toujours une worksheet. Dans un classeur qui ne contient pas de feuille de graphiques, cela ne fait pas de différence.

[vvthepilot]

Merci à tous pour vos essais et vos précisions, malheureusement cela ne donne rien de plus.


j'ai tenté quelques trucs simples supplémentaires (à ma portée) pour tenter de continuer à identifier à quoi correspondent ces Feuil1 et Feuil11 :

- elles sont visiblement bien reconnues comme VBComponents, puisqu'on arrive à interroger leur nom par ce biais :


- en revanche j'ai tout de même l'impression que ce sont des composants qui ne sont plus actuellement plus reconnus, car je n'arrive même plus à les intérroger en direct sur une commande simple


N'hésitez pas si je peux faire d'autre tests pour apporter des indices supplémentaires

[Patrice740]

Bonjour,

Si tu as un doute sur l'intégrité des fichiers système, Microsoft propose ceci :
https://support.microsoft.com/fr-fr/...ually%20repair

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Au vu des résultats reportés dans la fenêtre Exécution.
Tout simplement

Code :

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

Sheets("ARCH_SPECTRO").Delete

Non?

Regarde également les noms spécifiques via le Gestionnaire des Noms