Discussion :

[Many31]

Bonjour à tous

Voila j'ai un code qui fonctionnait très bien jusque là sauf que depuis que j'ai eu le malheur d'ajouter une ligne toute simple il s'arrête sans message d'erreur ni d'alerte.
(le code est placé dans un module)

J'ai mis le début. La dernière ligne étant celle sur laquelle il s'arrête...

Code :

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

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
Option Explicit
 
Public Sub generer()
 
Dim nom_feuille, Ex_direct, Ex_indirect, Ex_question, Ex_detail, Ex_interp As String
Dim nom_G, nom_P As String
Dim i As Integer
Dim h As Integer
Dim k As Integer
Dim MAJ As Boolean
Dim Mise_aJ
Dim nom_F As String
 
nom_F = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
 
If ThisWorkbook.Worksheets.Count > 2 Then
    Mise_aJ = MsgBox("Voulez vous mettre à jour les données des feuilles déjà créées?", vbYesNoCancel)
    Select Case Mise_aJ
        Case vbYes
            MAJ = True
        Case vbNo
            MAJ = False
        Case Else
            Exit Sub
    End Select
End If
'On Error Resume Next
'Application.DisplayAlerts = False
'Application.ScreenUpdating = False
Sheets("DRAFT").Visible = True
Sheets(2).Name = nom_F

La feuille est bien renommé mais le code s'arrête. Il n'y a pas d'autre code dans le classeur.
DAns la suite du code je crée et renomme d'autres feuilles et je n'ai jamais eu de problème...

Une idée? Merci d'avance

EDIT:
Il n'y a aucune protection, et même en écrivant Sheets(2).Name = "Essais" l'exécution s'interrompt

[Krovax]

Une remarque, mais je ne pense pas que cela vienne de là

Code :

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

Dim nom_feuille, Ex_direct, Ex_indirect, Ex_question, Ex_detail, Ex_interp As String

LA toutes tes variables sont des variant et seul la dernière est une chaine de caractère. Le VBA ca aime que tout soit clair

Code :

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

Dim nom_feuille As String, Ex_direct, Ex_indirect As String, Ex_question As String, Ex_detail As String, Ex_interp As String

Lire le attention de ce tuto :

Fondements sur les variables et les constantes

Sinon on peu voir les ligne qui suivent car si la feuille est bien renommé ca peut vouloir dire que c'est la ligne qui suit qui pose problème

[Pierrot93]

Bonjour any, re Krovax

modifie peut être l'avant dernière ligne ainsi :

Code :

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

Sheets("DRAFT").Visible = xlSheetVisible

bon après midi
@+

[Many31]

Merci pour vos réponses.

Krovax: je connaissais effectivement cette particularité des anciens Excel (corrigé heureusement sur la dernière version)
Une vieille habitude que j'ai corrigé merci

Pour le problème, une autre feuille avec beaucoup d'onglet était ouverte en même temps que celle là...

Je ne sais pas comment elle a pu faire bugguer le renomage des feuilles mais dès sa fermeture l'exécution du code s'est rétablie :/ (pourtant dans ce fameux classeur, il n'y avait pas de code...)

j'ai pas tout compris vu que la création de feuille ne posait, elle, pas de problème :/