Discussion :

[zergo]

Bonjour le forum

Dans un classeur excel j'ai plusieurs feuilles avec des noms bien spécifique.
Je souhaiterais supprimer une feuille qui est une extraction qui porte toujours le même début d'intitulé "HTMLExport;jsessionid=2fda8ac28" les lettres HTML
Y a t il un code VBA pour cette fonction.

Merci

[unparia]

Bonjour
Oui : -->> parcourir (boucle For Each) la collection Worksheets et supprimer (méthode Delete) celle dont le nom (propriété Name) commence par "HTML" (utilisation de la fonction Left)

[Pierre Fauconnier]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DeleteSheets()
  Dim ws As Worksheet
  On Error GoTo EndHandler
 
  Application.DisplayAlerts = False
  For Each ws In ThisWorkbook.Worksheets
    If ws.Name Like "HTML*" Then ws.Delete
  Next ws
 
EndHandler:
  Application.DisplayAlerts = True
End Sub

Le DisplayAlerts=false permet d'éviter qu'à chaque suppression, tu aies une demande de confirmation d'Excel. C'est pourquoi je passe par une gestion d'erreur pour être certain de le remettre à true en fin de macro ou lors de la survenance d'une erreur.

[Menhir]

Je souhaiterais supprimer une feuille qui est une extraction qui porte toujours le même début d'intitulé "HTMLExport;jsessionid=2fda8ac28" les lettres HTML

Que veux-tu dire par "intitulé" ? Est-ce le nom de la feuille ou son contenu ?
Parce que la désignation que tu indiques semble très étrange pour un nom d'onglet.

[zergo]

Bonjour

C'est l'onglet de la feuille qui porte ce nom "HTMLExport;jsessionid=2fda8ac28" comme il commence toujours par HTML**** c'est cet onglet que je souhaite supprimer.

Merci

[Pierre Fauconnier]

Alors tu peux utiliser le code que je t'ai fourni...

[zergo]

Bonjour

je l'ai testé mais il supprime la feuille quand il est dans "ThisWorkbook" mais quand t il est dans une autre macro il ne supprime pas la feuille.


Cordialement

[Pierre Fauconnier]

Salut.

Il est toujours utile de donner le contexte dans lequel tu évolues.

Le code donné supprime les feuilles du classeur qui contient la macro.

Tu peux adapter pour que la suppression soit sur le classeur actif (c'est souvent le même, sauf si tu utilises un xlam par exemple). Il te suffit de remplacer ThisWorkbook par ActiveWorbkook.

Tu peux aussi passer le classeur concerné en paramètre... Dans l'exemple suivant, le classeur à passer est facultatif et s'il n'es pas renseigné, c'est le classeur actif qui est utilisé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DeleteSheets(Optional wb As Workbook)
  Dim ws As Worksheet
  On Error GoTo EndHandler
 
  If wb Is Nothing Then Set wb = ActiveWorkbook
  Application.DisplayAlerts = False
  For Each ws In wb.Worksheets
    If ws.Name Like "HTML*" Then ws.Delete
  Next ws
 
EndHandler:
  Application.DisplayAlerts = True
End Sub

Tu vois donc ainsi que tu as plusieurs possibilités pour adapter le code fourni au départ.

[zergo]

Désolé pour les informations qui peuvent venir au fur et a mesure.



Le fichier par lui même ne contient pas de macro. la macro est utilisé à partir d'excel avec personal.xlsb, cette macro est utilisée pour différent fichiers qui contiennent toujours la même feuille HTML****
le fichier est toujours *.XLSX la macro n'y est jamais intégré.

[Pierre Fauconnier]

Ok. alors, il me semble que tu peux utiliser ActiveWorkbook.

Tu peux aussi utiliser la procédure avec le paramètre optionnel, mais tu ne pourras alors pas la lancer via la fenêtre des macros (onglet Développeur\Macros...).