Définier un son à la fermeture d'un classeur

[Ewan]

Bonsoir le Forum,

Voici les ligne de commande que j'utilise pour l'ouverture et la fermeture d'un programme fait sur Excel.

J'utilise l'insertion d'objet pour enregistrer un son .wav et il se retrouve à l'ouverture intégré au classeur grâce à la commande OLEObjects("Objet17").verb.

Cela fontionne bien. Mais lorsque je veux faire la même chose après "Private Sub Workbook_BeforeClose(Cancel As Boolean)", cela ne fonctionne jamais (avec le même ojet ou un autre !). Pourriez-vous m'aider ?

Voici les lignes :

Private Sub Workbook_Open()
TheDate_periode_essai = "26/02/2004"
pass_essai = "280878"
TheDate_periode_valide = "02/05/2099"
pass_valide = "280878"

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB

Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayWorkbookTabs = False
Worksheets("Demarrage Progiciel").OLEObjects("objet 17").Verb
TaBooleanPublic = True
intTries = 0
Call GetPassword
Call Workbook_Activate
Call DisableCutAndPaste
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
MsgBox "Au revoir, et à bientôt sur le réseau Finaduo Concept ..."
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
TaBooleanPublic = False
ThisWorkbook.Saved = True
Call Workbook_Deactivate
Call EnableCutAndPaste

End Sub

Merci

 

[Gérard DEZAMIS]

Bonjour,

ce message ressemble étrangement à celui d'hier.
Je croyais benoîtement qu'il ne fallait pas dédoubler les fils ....

Je vais relire la charte, on ne sait jamais... on a peut être le droit de polluer maintenant.

Salut à tous
@+
GD

 

[Ewan]

Désolé,

Je n'avais pas de réponse pour mon message d'hier - je ne savais pas comment faire dans ce cas. Auriez-vous par hasard une solution à mon problème ?

Merci

Ewan