Discussion :

[yvespi]

Bonjour,

j'ai un fichier ppt dans le quel une macro est executé, cette macro fait appel a un fichier excel ainsi qu'a une macro de ce fichier excel (le fichier excel souvre en arrière plan). Une fois que la macro excel est terminé, la macro du ppt ferme le fichier excel, comme celui ci a été modifié durant l'execution de la macro, il me demande si je veux le sauvegarder.

comme la macro du fichier excel dure longtemp, j'ai voulu mettre une progressbar, je suis arrivé a la faire s'afficher par dessus le ppt donc jusqu'ici tout va bien!

voici mon pb:
j'ai mis un bouton "cancel" sur ma userform sur la quelle est ma progressbar, ce bouton a pour but de permettre a l'utilisateur d'arreter le calcul pour diverse raison et de pouvoir recommencer la calcul plus tard...

un peu de code:

ma macro ppt appel le fichier excel ainsi que sa macro de cette facon:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' Ouverture d'Excel
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
 
Dim Nom_Fichier As Variant
 
' Ouverture du fichier Excel devant recevoir les informations
Nom_Fichier = ActivePresentation.Path & "\Cinematique.xls"
Set xlBook = xlApp.Workbooks.Open(Nom_Fichier)
 
'activation de la macro excel:
 xlApp.Run "calcul_system"

et ferme le fichier excel de cette facon:

Code :

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

1
2
xlApp.Quit
Set xlApp = Nothing

la macro associer au bouton "cancel" est la suivante:

Code :

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

1
2
3
4
Private Sub Command_Cancel_Click()
    Unload Me
    End
End Sub

le pb c'est que quand je clique sur le bouton "cancel" la macro s'arrete bien, mais la macro ppt ne ferme pas le fichier excel. Le pb c'est que si l'utilisateur veut relancer le calcul plus tard, une nouvelle application excel s'ouvre et je pense que ca peut etre source de problème...

est ce que quelqu'un sait ce qu'il faut que je modifie dans la macro du bouton "cancel" pour qu'il finisse la maccro excel comme si elle s'etait executé en entier et revienne a la macro ppt pour que le fichier excel se ferme?

[zyhack]

Bonjour

si j'ai bien compris le userForm est dans excel, dans ce cas pourquoi ne pas utiliser

Code :

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

1
2
3
Private Sub Command_Cancel_Click()
  ThisWorkbook.close SaveChanges:=False
End Sub

[yvespi]

ah ben merci, je viens d'essayé ca a l'air de marcher.

merci beaucoup