Ouverture fichier excel, avec propriété visible qui s'éxécute 1 fois sur 2

Bonjour à tous,

J'ai terminé un petit programme VBA qui fonctionne bien :-) mais j'ai un petit soucis lors de l'ouverture de mon programme, je m'explique :

Lorsque que j'execute mon programme (en ouvrant mon fichier excel) celui-ci s'ouvre comme je l'ai demandé, avec l'évènement Open.

Je remplie mon formulaire et je quitte. Tout ça sans voir le classeur.

Ensuite si je décide de le réouvrir alors qu'il était fermé, il me l'ouvre, mais cette fois ci le classeur ... je referme et réouvre, il l'ouvre corectement (formulaire) et puis la fois d'après il ouvre le classeur et ainsi de suite.

Je comprends pas très bien

Private Sub Workbook_Open()

    ThisWorkbook.Application.Visible = False
    Accueil.Show modal

End Sub

Je joins le quelques lignse que j'ai renseigné dans thisworkbook avec l'évènement open.

Si quelqu'un à une idée je suis preneur !

Merci à vous

Bonjour AZQW

Et quel est le code dans BeforeClose ?

A+

Bonjour BrunoM45,

Je n'ai pas de code avec cet évènement ... ça devrait ?

Bonjour,

A moins de l'avoir mis ailleurs, mais à minima (je pense)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.ScreenUpdating = False
  ThisWorkbook.Application.Visible = True
  Application.ScreenUpdating = False
End Sub

A+

Bonjour,

Dans l'événement BeforClose je n'ai rien écrit.

J'ai seulement écrit dans l'évènement Open avec ce code :

Private Sub Workbook_Open()

    ThisWorkbook.Application.Visible = False
    Accueil.Show modal

End Sub

Après j'ai d'autres lignes de codes mais en rapport avec mes UF.

Bonsoir,

Fermez-vous bien votre classeur à la fin de vos traitements ?

Bonjour Thev,

Tu m'as mis sur la voie, j'ai programmé la croix rouge en haut en lui disant des fermer le logiciel du coup ça à l'air de fonctionner merci.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Dim fermer As Integer
fermer = MsgBox("Voulez-vous quitter ?", vbYesNo + vbQuestion + vbDefaultButton2, "Quitter")
If fermer = vbYes Then

ThisWorkbook.Save
Application.Quit

Else

Cancel = CloseMode = 0

End If

End Sub

Cependant cette fois-ci (ça devait le faire avant) si j'ouvre le même fichier plusieurs fois sans les fermer à un moment il m'ouvre le classeur.