Discussion :

[viavba]

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 :

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

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)

[fring]

Bonjour,

Je vais essayer de t'économiser quelques cheveux

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 :

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

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

[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 :

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

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 :

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

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

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

merci d'avance

[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 :

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

  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 :

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

  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 :

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

  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.

.

[viavba]

ok, merci pour la reponse