Microsoft 365 Excel VBA

[Excellearning]

Bonjour chers membres;
Je sollicite votre aide sur un souci que je rencontre sur le code suivant:

Public Function SheetExist(Sheetname As String) As Boolean
'Workbooks(AppName).Unprotect (PasswordWk)
Dim ws As Worksheet
SheetExist = False
For Each ws In Workbooks(AppName).Sheets
If ws.Name = Sheetname Then
SheetExist = True: 'Workbooks(AppName).Protect (PasswordWk): Exit Function
End If
Next
'Workbooks(AppName).Protect (PasswordWk)
End Function

Public Function CreateSheet(Sheetname As String) As Boolean
'On Error Resume Next
Dim Count As Long
Dim ws As Worksheet
Dim wb As Workbook
If SheetExist(Sheetname) Then
CreateSheet = True
Exit Function
Else
Workbooks(AppName).Unprotect (PasswordWk)
Count = Workbooks(AppName).Sheets.Count
Set wb = Workbooks(AppName)
Set ws = wb.Sheets.Add(after:=wb.Sheets(Count))
'Workbooks(AppName).Unprotect (PasswordWk)
ws.Name = Sheetname
'Workbooks(AppName).Unprotect (PasswordWk)
ws.Visible = xlSheetHidden
CreateSheet = True
Workbooks(AppName).Protect (PasswordWk)
End If
End Function

Ci-joint la capture des erreurs.

 

[vgendron]

bonjour

Set ws = wb.Sheets.Add(after:=wb.Sheets(Count))
à remplacer par
Set ws = wb.Sheets.Add(after:=sheets(wb.Sheets(Count)))

 

[Excellearning]

bonjour

Set ws = wb.Sheets.Add(after:=wb.Sheets(Count))
à remplacer par
Set ws = wb.Sheets.Add(after:=sheets(wb.Sheets(Count)))

Bonjour @vgendron , Merci pour votre réaction.
Le problème persiste toujours après avoir remplacé le code par ce que vous avez donné.
En fait , j'ai l'impression qu'Excel bloque l'ajout des feuilles car j'obtiens la même erreur lorsque j'essaie d'insérer une feuille manuellement.

 

[job75]

Bonjour,

à remplacer par
Set ws = wb.Sheets.Add(after:=sheets(wb.Sheets(Count)))

Plutôt :

Set ws = wb.Sheets.Add(after:=wb.Sheets(wb.Sheets.Count))

A+

 

[vgendron]

Hello Job75

@Excellearning
sans ton fichier exemple, on ne peut pas faire le moindre test
autre chose: on évite de prendre des mots réservés pour en faire des variables
ex:
count=sheets.count

NbFeuille=sheets.count est préférable

 

[Excellearning]

Merci bien pour vos réaction, mais le problème persiste.
Je ne sais pas pourquoi, dans mon fichier Excel bloque l'ajout et la suppression d'une feuille (manuellement et même par VBA) car avec d'autres classeurs j'arrive à ajouter et supprimer une feuille.