Discussion :

[MarcelG]

Bonjour à tous,

Dans un diaporama Powerpoint, j'ai créé un bouton d'action associé à cette procédure :

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
Public Sub Ouvrir()
 
Dim xlApplication As Object
 
Application.WindowState = ppWindowMinimized
 
Set xlApplication = CreateObject("excel.application")
 
xlApplication.workbooks.Open ("monrépertoire\monfichier.xls")
 
xlApplication.Run "active_usf_saisie"
 
xlApplication.Visible = True
 
End Sub

La procédure appelée "active_usf_saisie" dans le classeur Excel est ainsi codée :

Code :

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

1
2
3
4
5
6
7
Public Sub active_usf_saisie()
Load Msg_Saisie
With Msg_Saisie
        .Lb_version.Caption = [Version]
        .Show
End With
End Sub

Or, la procédure s'exécute mais se positionne aussitôt en mode "Arrêt" avec le débogueur surlignant la méthode

Code :

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

.Show

Je ne comprends pas.

Dans un deuxième temps, j'ai ôté l'appel de procédure dans Powerpoint pour l'intégrer à l'évènement "Open" de mon classeur Excel. Même résultat.

Quelque collègue aurait-il une explication et/ou une méthode pour la résolution de cet échec?

Par avance, merci.

[MarcelG]

Bonsoir à nouveau,

Plouf! Plouf!

Il suffit parfois de rédiger une discussion pour en trouver la résolution aussitôt celle-ci créée.

Le problème se résout en inversant les 2 méthodes

Code :

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

1
2
3
xlApplication.Visible = True
 
xlApplication.workbooks.Open ("monrépertoire\monfichier.xls")

Ce qui pourrait sembler logique.

A bientôt, et désolé de ne pas contribuer autant que l'envie me vient. Débordé.