Discussion :

[eagleleader]

Bonjour à toutes et à tous,

J'ai un message qui apparaît lorsque je fais tourner ma macro :

Code :

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

code execution has been interrupted

J'ai le choix entre CONTINUE, DEBUG, END
Pourtant si je clic sur CONTINUE ou DEBUG et que je continue d'exécuter ma macro, tout se passe très bien.

Comment éviter ce message qui apparaît plusieurs fois pendant le traitement de ma macro ?

D'avance merci.

Cordialement,

[Commodore]

tu pourrais nous montrer un bout de code ?
par exemple le moment du traitement où le msg apparaît ?

[getule]

bonjour!

Code :

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

1
2
3
4
5
6
Private Sub workbook_open()
application.displayAlerts = false
Load userform1
userform1.Show
 
End Sub

[LeForestier]

Bonjour,
je crois que le ... Load userform1 n'est pas nécessaire
A+

[getule]

bonjour LeForestier!

c'est vrai!
j'ai cru comprenre qu'il demarre en meme temps le formulaire

[eagleleader]

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
Private Sub Workbook_Open()
    ''''''''''''''''''''''
    ' Création du bouton '
    ''''''''''''''''''''''
    Set ObjCmdBar = New clsCommandBar
 
    With ObjCmdBar
        .BuildCommandBar "btnTemplateMaster"
        .AddButton ThisWorkbook.Name & "!ThisWorkbook.main", msoButtonIconAndCaption, "Treat BASL Files", 66
    End With
 
    SelectFolder = ""
End Sub
 
Sub main()
    UserForm1.Show
End Sub

Le premier endroit où il s'arrête c'est sur UserForm1.Show

A savoir que j'ai mis ceci dans UserForm1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False
    Application.Visible = False
    Application.EnableEvents = False
    Application.AlertBeforeOverwriting = False
End Sub
 
Private Sub UserForm_Terminate()
    Application.ScreenUpdating = True
    Application.Visible = True
    Application.EnableEvents = True
    Application.AlertBeforeOverwriting = True
End Sub

Malgré toutes ces options, Excel continue de me montrer les alertes ...

[Commodore]

c'est la méthode .Show qui loade automatiquement le form.
Par contre .Hide ne l'unload pas. il faut le faire séparément

[eagleleader]

J'ai essayé le

Code :

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

Application.DisplayAlerts = False

en début, de chaque procédures, à l'ouverture du Workbook mais rien n'y fait...

[eagleleader]

J'ai trouvé :

J'ai fait le test sur le pc de mon collègue et ça fonctionnait correctement.
Cela venait donc de mon pc : j'avais un add-in pour les paramètres régionaux.
Je l'ai désactivé et relancé mon pc et ça a fonctionné.

A+ et merci pour votre aide ...

[Commodore]

c'est toujours bon à savoir...
[résolu] ?