Excel Crash au moment de Sheets.Add

Version imprimable

Bonjour,

J'ai une macro qui fonctionnait très bien jusqu'à ce que je veuille déplacer une feuille après l'avoir ajoutée.
Maintenant, même en mode Débogage (F8) excel ne me met même pas d'erreur mais simplement ferme complètement mon classeur, et une fois sur deux redémarre Excel.

A quoi cela peut il être du? D'autant plus que j'ai mis en notes toutes mes modifs de déplacement pour revenir au code qui fonctionnait et le problème persiste avec ce fichier, il se ferme systématiquement au moment d'ajouter une feuille.
Si je réutilise une version encore plus ancienne, mon Sheets.Add fonctionne très bien.

Voici mon code pour ajouter une feuille. J'ai également laissé mes lignes de code en notes pour déplacer ma feuille.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim Wb As Workbook Dim NomClasseur As String Dim NomFeuille As String Dim PositionFeuille As Integer Dim m As Integer NomClasseur = ActiveWorkbook.Name Set Wb = Workbooks(NomClasseur) 'For m = 1 To Worksheets.Count() ' If Sheets(m).Name = FormNiveauAdd.PositionNiveau.Value Then ' PositionFeuille = m ' Exit For 'End If 'Next Sheets.Add(after:=Worksheets(Worksheets.Count())).Name = NiveauNomValue.Value ' Sheets(Worksheets.Count()).Move after:=Sheets(PositionFeuille) 'PositionFeuille = ActiveSheet.Index NomFeuille = CStr(Wb.Sheets(Worksheets.Count()).CodeName) ActiveWindow.DisplayGridlines = False Worksheets("PROJET").Select

Bonjour

Tu ajoute ta feuille à l'endroit précisi

Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Test()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim Nomfeuille As String
Dim PositionFeuille As Integer
Dim m As Integer
 
 
Set Wb = ActiveWorkbook
If Not FeuilleExiste(Wb, NiveauNomvalue) Then
    With Wb
        For m = 1 To Worksheets.Count()
            If Sheets(m).Name = "Toto" Then    'FormNiveauAdd.PositionNiveau.Value Then
                PositionFeuille = m
                Exit For
            End If
        Next m
        If PositionFeuille = 0 Then PositionFeuille = .Sheets.Count
        Set Ws = .Worksheets.Add(After:=.Sheets(PositionFeuille))
        Ws.Name = NiveauNomvalue
    End With
Else
    MsgBox "Feuille " & NiveauNomvalue & " existe déjà"
End If
Set Wb = Nothing
End Sub
 
Private Function FeuilleExiste(ByVal Wbk As Workbook, ByVal Nomfeuille As String) As Boolean
 
On Error Resume Next
FeuilleExiste = Wbk.Sheets(Nomfeuille).Index
End Function

08/11/2018, 14h37
Shoupine
Bonjour,

Merci pour ta réponse,

J'ai remplacé mon morceau de code par le tiens mais il n'y a rien à faire le problème persiste :(
J'ai toujours Excel qui se crash, quand je fais mode débogage, il crash au moment de la ligne suivante...
Code:

1 2 Set Ws = .Worksheets.Add(After:=.Sheets(PositionFeuille))
10/11/2018, 19h17
Shoupine

Up!

Le problème persiste, même après avoir copié le code qui me fait crasher Excel sur un nouveau classeur vierge.
Avec différents tests il s'avère que le code se fait sans problème pour créer 2 feuilles, mais pour créer la 3e, Excel crash comme s'il y avait une limite up du nombre de feuille...
Parce que par contre j'en supprime une, j'ai aucun soucis pour en recréer une, je ne sais pas si c'est très clair mais c'est en tout cas très contraignant.
12/11/2018, 11h18
Trystan441

Bonjour,

Je ne sais pas si cela pourra t'aider mais j'utilise cette ligne de code pour ajouter une feuille avec laquelle je n'ai jamais eu de problème.

Code:

Sheets.Add after:=Worksheets(Worksheets.Count)

Bonne journée,