un_mec_de_stras
Messages postés26Date d'inscriptionlundi 9 janvier 2006StatutMembreDernière intervention21 février 2006
-
1 févr. 2006 à 14:16
un_mec_de_stras
Messages postés26Date d'inscriptionlundi 9 janvier 2006StatutMembreDernière intervention21 février 2006
-
1 févr. 2006 à 16:10
salut a tous
j utilise vb6 avec excel, (pas vba) et mon petit souci est que lorsque je quitte mon application par la croix (situé en haut a droite"windows") ou lors d'un bug , mon fichier excel reste ouvert (dans le gestionnaire des tâches je retrouve EXCEL.EXE) mais lorsque je quitte par le bouton quitter ca fonctionne parfaitement
voici le code de mon bouton :
xl.Application.DisplayAlerts = False
xl.Workbooks.Close
Si vous pouviez m'aider pour que lorsque le projet ce ferme par n'importe quel moyen (bug, volontairement (sans passez par le bouton quitter) mon fichier Excel se ferme aussi)
un_mec_de_stras
Messages postés26Date d'inscriptionlundi 9 janvier 2006StatutMembreDernière intervention21 février 2006 1 févr. 2006 à 15:13
lorque je le met il ya un message d erreur ki met "erreur de compilation" , "procedure sub ou fonction non defini" et ce message pointe sur form_unload et sur Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
thejell1
Messages postés27Date d'inscriptionmardi 19 avril 2005StatutMembreDernière intervention29 août 2006 1 févr. 2006 à 15:43
Oups
en fait tu DOIS pas le mettre partout
Le mieux:
- dans ta frm principale:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim frm As Form
'Fermer excel
'Pour s'assurer que toutes les autres formes sont bien fermées
For Each frm In Forms
Unload frm
Set frm = Nothing
Next
End Sub
- dans tes autres frms
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'libérer objets inutiles, par exemple
End Sub
Le coup du "If UnloadMode = vbFormControlMenu Then", c'était juste à cause de l'histoire de la croix rouge.
Comme ca ca devrait suffire. (Désolé pour les cédilles, clavier allemand)