Cedrim69
XLDnaute Nouveau
Bonjour,
J'ai trouver une fonction sur le forum pour verifier si une feuille existe dans un classeur.
Avec ma macro, je créé un nouveau classeur et copie dans celui ci une feuille de mon "gabarit"
je souhaite supprimé toutes les feuilles du nouveau classeur créé pour ne laisser que celle que j'ai copié.
Mais je ne reussi pas à mettre en oeuvre la fonction :
Mon code est le suivant :
j'ai egalement essayé en modifiant la fonction
et le code
Je cherche à supprimer les feuilles du classeur que je créé que se soit avec Excel en français ou en anglais (maison & boulot)...
Est ce que qqn pourrait m'aider svp ?
Cordialement,
Cédric
J'ai trouver une fonction sur le forum pour verifier si une feuille existe dans un classeur.
Avec ma macro, je créé un nouveau classeur et copie dans celui ci une feuille de mon "gabarit"
je souhaite supprimé toutes les feuilles du nouveau classeur créé pour ne laisser que celle que j'ai copié.
Mais je ne reussi pas à mettre en oeuvre la fonction :
VB:
Function IsWorksheet(strName As String) As Boolean
Dim objWorksheet As Worksheet
IsWorksheet = False
For Each objWorksheet In ActiveWorksheets
If objWorksheet.Name = strName Then
IsWorksheet = True
End If
Next
End Function
Mon code est le suivant :
VB:
Sub Sauvegarder()
Dim sRep As String
Dim NewWb As Workbook, ws As Worksheet
Set NewWb = Workbooks.Add
'on copie l'onglet gabarit dans le nouveau fichier
ThisWorkbook.Sheets("Chart").Copy NewWb.Sheets(1)
'Suppression des onglets de base + supression des noms de cellules
If IsWorksheet(NewWb.Range("Feuil1")) = True Then
NewWb.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete
End If
If IsWorksheet(NewWb.Range("Sheet1")) = True Then
NewWb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
End If
'suite du code
End Sub
j'ai egalement essayé en modifiant la fonction
VB:
Function IsWorksheet(strName As String) As Boolean
Dim objWorksheet As Worksheet
IsWorksheet = False
For Each objWorksheet In NewWb.Sheets
If objWorksheet.Name = strName Then
IsWorksheet = True
End If
Next
End Function
et le code
VB:
Sub Sauvegarder()
Dim sRep As String
Dim NewWb As Workbook, ws As Worksheet
Set NewWb = Workbooks.Add
'on copie l'onglet gabarit dans le nouveau fichier
ThisWorkbook.Sheets("Chart").Copy NewWb.Sheets(1)
'Suppression des onglets de base + supression des noms de cellules
If IsWorksheet("Feuil1") = True Then
NewWb.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete
End If
If IsWorksheet("Sheet1") = True Then
NewWb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
End If
'suite du code
End Sub
Je cherche à supprimer les feuilles du classeur que je créé que se soit avec Excel en français ou en anglais (maison & boulot)...
Est ce que qqn pourrait m'aider svp ?
Cordialement,
Cédric