[E-03] fermeture d'excel

Version imprimable

bonjour,

je suis dans un userform lancé a l'ouveture d'une feuille excel.
je suis entrain de gerer un erreur et dans la gestion de l'erreur, je cherche a fermer le userform, et excel parce que l'utilisateur doit retourner dans windows et corriger ce qu'il a fait!

je ne comprend pas pourquoi avec ce code j'obtient la fermeture du userform, du classeur mais pas de l'appliaction excel GRRR
Code:

1 2 3 4 5 6 7 8 9 USERFORM.Hide Dim OxlApllication As excel.Application Set OxlApllication = excel.Application Dim OxlClasseur As excel.Application Set OxlClasseur = excel.Application OxlClasseur.ActiveWorkbook.Saved = True OxlClasseur.ActiveWorkbook.Close xlDoNotSaveChanges OxlApllication.Quit Unload USERFORM
pouvez vous m'apporter de l'eau a mon moulin?

merci d'avance (ca me permettra de garde mes cheveux en place)

Bonjour,

Je vais essayer de t'économiser quelques cheveux :mouarf:

Tu fermes le classeur donc par la même occasion tu quittes la procédure et ceci juste avant la ligne qui commande la fermeture de l'application.

Essaye comme ceci

Code:

1
2
3
4
5
6
7
8
9
USERFORM.Hide
            Dim OxlApllication  As excel.Application
            Set OxlApllication = excel.Application
            Dim OxlClasseur     As excel.Application
            Set OxlClasseur = excel.Application
            OxlClasseur.ActiveWorkbook.Saved = True
            'OxlClasseur.ActiveWorkbook.Close xlDoNotSaveChanges '<-- supprime cette ligne
            OxlApllication.Quit
            'Unload USERFORM '<-- cette ligne ne sert à rien vu que l'application est fermée

26/09/2008, 11h17
viavba
ok merci ca fontion super bien

mais a l'issu de cette reponse j'ai un autre question du au changement que tu me demande de faire.
Code:

1 2 OxlClasseur.ActiveWorkbook.Saved = True 'OxlClasseur.ActiveWorkbook.Close xlDoNotSaveChanges '<-- supprime cette ligne
peux tu me dire ce que ca change de faire l'une ou l'autre ligne parce que la je suis un peu perdu.

pour moi cette ligne lui dit qu'il n'y a pas eu de changement

Code:

'OxlClasseur.ActiveWorkbook.Close xlDoNotSaveChanges '<-- supprime cette ligne

et ta ligne lui dirais que c'est deja sauvé ?????

merci d'avance
26/09/2008, 12h37
fring
Ces deux lignes font double emploi, ce sont deux syntaxes différentes qui obtiennent le même résultat --> fermer le classeur sans enregistrer les modifications
- Code:
  
  ActiveWorkbook.Saved = True
  
  La propriété Saved prend la valeur False dès qu'il y a modification dans le classeur et prend la valeur True à chaque enregistrement. Le fait de forcer la valeur à True juste avant le fermeture du classeur fait "croire" à Excel que ce classeur n'a pas été modifié depuis son dernier enregistrement.
- Code:
  
  ActiveWorkbook.Close xlDoNotSaveChanges
  
  Dans ce cas ci, on ferme le classeur en anticipant la question "voulez-vous enregistrer les modifications" et en y répondant par NON (xlDoNotSaveChanges)
- Une 3ème syntaxe possible, similaire à la 2ème
  
  Code:
  
  ActiveWorkbook.Close False '<-- True si on veut sauvegarder les modifs
Petite remarque pour terminer, plutôt que d'écrire ActiveWorkbook, utilise ThisWorkbook, ce qui évitera un problème dans le cas où le classeur en question n'est pas le classeur actif lors de l'exécution de la procédure. C'est une règle générale qu'il faut essayer d'adopter, éviter d'utiliser les ActiveCell, ActiveSheet, ActiveWorkbook et ActiveMachin en tout genre.
;)
.
26/09/2008, 16h20
viavba

ok, merci pour la reponse