Recherche et suppression de feuilles Excel à partir d'une macro vb

Question

Bonjour,
Je suis entrain de r&#233;aliser une macro Excel pour administrer les donn&#233;es d'une Base de donn&#233;es ACCESS.
Jusque la pas de soucis, je suis parvenu &#224; faire un masque de saisie pour les donn&#233;es qui renvoit celles-ci vers les diff&#233;rentes table ACESS.
Dans une seconde parti je r&#233;cup&#232;re les donn&#233;es des tables ACCESS et je cr&#233;e automatiquement des tableaux crois&#233;s dynamiques avec leur graphiques associ&#233;s sans aucun probl&#232;me non plus.
Par contre j'ai un souci, en effet je cr&#233;e une feuille Excel par tableau mais si la feuille en question existe d&#233;j&#224; je ne peux la cr&#233;er et le programme plante, donc avant de g&#233;n&#233;rer le tableau il faudrait que je v&#233;rifie que la feuille n'existe pas d&#233;ja => recherche de feuille (par son nom), si elle existe je dois la supprimer ensuite => suppresion de feuille.
Donc si quelqu'un sait rechercher si une feuille existe et comment la supprimer si c le cas ca m'aiderait bien.
Merci d'avance.

Cacoole

valtrase · Answer

Salut,
voil&#224; c'est servi
Function FeuilleExiste(Nom$) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
End Function

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
 Pour la suppression c'est 

If FeuilleExiste(NomdeTafeuille) Then Sheets("NomDeTaFeuille").Delete

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

jpleroisse · Answer

'Cette macro supprime la feuille 4 du classeur, si la feuille n'existe pas la macro n'a pas d ' &#233;ffects.

Sub SupprimerFeuille()
Dim ws
For Each ws In Worksheets
If ws.Name = "Feuil4" Then
ws.Delete
End If
Next ws
End Sub

'Celle-ci place le nom de toutes les feuilles dans un Combobox plac&#233; sur la feuille.

Sub SupprimerFeuille()
Dim ws
For Each ws In Worksheets
Sheets(1).ComboBox1.AddItem ws.Name
Next ws
End Sub

Pour supprimer une feuille:

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ComboBox1.Value).Delete
End Sub

Pour ajouter une feuille:

Dim NewSheet As Object
Set NewSheet = Worksheets.Add
NewSheet.Name =  "Feuil4"  'ou  TextBox1.Text et placer le nom que l'on veut dans le 
TextBox.
End Sub

jpleroisse

Recherche et suppression de feuilles Excel à partir d'une macro vb

3 réponses

Discussions similaires