Bonjour,

Je reviens sur le forum, car l'application qui fonctionnait bien avec le code communiqué sur le forum fin septembre, se bloque depuis ce matin.
Je ne parviens plus à ouvrir le fichier.
Je dois alors ouvrir un classeur excel vierge et sélectionner le classeur concerné dans la liste qui apparaît.
Enfin, quand j'éteinds le PC il me précise qu'excel ne veut pas se fermer et me demande si je veux quand même quitter.
Auriez vous une idée de ce qui peut bloquer ?

Le code que j'ai passé est le suivant:

Dans thisworbook, pas de changement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
 
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show  
End Sub
Sur chaque bouton du userform6 destiné à lancer l'aperçu avant l'impression:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Cmd35_Click()
    Me.Hide
    Application.Visible = True
    Feuil2.PrintPreview
    Application.Visible = True
    Me.Show
End Sub
Sur le bouton quitter des 6 userform:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Cmd54_Click()
    Unload Me
    Application.visible=false
End Sub
Merci de votre aide.