Fermer simultanément un UF et Excel

[paul87]

Bonjour,
dans un UF j'ai mis un bouton Quitter..sur lequel j'applique sur onclick

unload userformMenu

Que devrais-je y rajouter pour que cette action ferme en plus Excel....?
Merci par avance

 

[Simons]

Re : Fermer simultanément un UF et Excel

Bonjour

application.quit

Devrait suffir..

 

[PascalXLD]

Re : Fermer simultanément un UF et Excel

Bonjour

J'ajouterais à la réponse de Simons

ATTENTION. si tu fermes Excel il faut que tu sois sûr que tu n'as pas d'autres classeurs ouverts sinon ....

Et si ton appli doit être diffusé au niveau du job faire attention aux users.

Bonne journée

 

[paul87]

Re : Fermer simultanément un UF et Excel

Bonjour et merci pour vos réponses....!!
j'ai quelques petits problèmes de finalisation....!!
Voilà...
j'ai 2 classeurs .xls:
le classeur 1... s'ouvre directement sur un UF avec en WorkBook/open

Private Sub WorkBook_Open()
Load UserFormMenu 
UserFormMenu.Show 
End Sub

Jusque là c'est ok..
Dans cet UF (nommé Menu) j'ai un bouton avec lequel j'ouvre mon classeur .xls N°2 avec:

Private Sub CommandButton8_Click()
Unload UserFormMenu 'fermeture du userformMENU
Application.Workbooks.Open "w:\nom de mon classeur 2.xls"
End Sub

Là ça vas encore tès bien!!!...mon classeur N° 2 s'ouvre et passe en premier plan.
Par contre je souhaite, lorsque j'ai terminé avec ce classeur N°2 le fermer définitivement (qu'il ne reste pas en arrière plan) et redemarrer sur mon classeur N°1 directement sur mon UF... ( en fait pouvoir faire une sorte de va et viens entre classeurs ...en redémarrant un des classeurs sur mon UF)
Pour ce faire j'ai donc ajouté un bouton sur mon Classeur2..mais j'ai quelques problèmes avec le code à y associer..j'ai essayé ceci:

Private Sub CommandButton1_Click()
Workbooks("classeur N°2.xls").Close
Application.Workbooks.Open "classeur N°1.xls"
End Sub

Résultat: le classeur N°2 se ferme bien....le classeur N°1 s'ouvre bien mais reste en feuil1...mon UserFormMenu ne se ré-ouvre pas directement..
Je ne sais pas si j'ai été très clair mais si quelqu'un avait une soluce...?
Merci par avance
j'ai essayé de rajouter à cette commade "userformMenu.show"...rien de plus

 

[paul87]

Re : Fermer simultanément un UF et Excel

si quelqu'un avait une idée......Merci par avance

 

[pierrejean]

Re : Fermer simultanément un UF et Excel

bonjour paul87

sans avoir testé:

il me semble qu'il n'y a pas fermeture du fichier 1
si c'est le cas
inutile de faire unload de l'userform et egalement inutile de faire open du fichier1 a partir du fichier 2

ou alors j'ai raté une marche

A+

 

[paul87]

Re : Fermer simultanément un UF et Excel

Bonjour et merci
si je fais ça....

Private Sub CommandButton8_Click()
Unload UserFormMenu 'fermeture du userformMENU
Application.Quit 'fermeture complète de Excel 
Application.Workbooks.Open "classeur N°2.xls"
End Sub

J'ai "erreur d'exécution 13..incompatibilité de type"...
why..?
si je ne mets pas:

Application.Quit

mon classeur N°1 reste en arriere plan...ce qui ne me gene pas,...ce qui ne marche pas, c'est la cloture complète du Classeur N°2 et la réouverture du Classeur N°1 sur UF

 

[paul87]

Re : Fermer simultanément un UF et Excel

Du nouveau..!!avec commande sur UF du classeur N°1

Private Sub CommandButton9_Click()
Unload UserFormMenu
Application.Workbooks.Open "Classeur N°2.xls"
End Sub

et
ce code sur le bouton du classeur N°2

Private Sub CommandButton1_Click()
Application.Workbooks.Open "Classeur N°1"
Workbooks("Classeur N°2").Close
End Sub

j'ai maintenant un fonctionnement correct...cad que l'action sur mon CommandButton1 ré-ouvre bien le UF de mon classeur N°1...
Mais le classeur N°2 reste ouvert en arrière plan, ...comment le fermer définitivement

 

[Simons]

Re : Fermer simultanément un UF et Excel

Salut Paul, et tout le monde..

As tu essayé de reload ton UF au moment ou tu rebascule sur ton classeur1 ???

Private Sub CommandButton1_Click()
Workbooks("classeur N°2.xls").Close
Application.Workbooks.Open "classeur N°1.xls"
UserformMenu.load
UserformMenu.show
End Sub

 

[paul87]

Re : Fermer simultanément un UF et Excel

Bonjour, et merci pour ton aide..
mais je n'ai plus de pb pour la ré-ouverture du classeur 1 sur UF...
mais plutôt de la fermeture du classeur 2..
en fait avec ce code là
merci

Private Sub CommandButton1_Click()
Application.Workbooks.Open "classeur N01xls"
Workbooks("Classeur N°2").Close
End Sub

 

[Simons]

Re : Fermer simultanément un UF et Excel

et si tu ferme ton classeur 2 en premier...

Private Sub CommandButton1_Click()
Thisworkbook.close
Application.Workbooks.Open "classeur N01xls"
End Sub

 

[paul87]

Re : Fermer simultanément un UF et Excel

et bien j'ai tjrs le meme résultat...
cad le classeur1 qui s'ouvre bien sur le UF .mais
le classeur 2 qui refuse de se fermer complétement...
DUR DUR .....

 

[Simons]

Re : Fermer simultanément un UF et Excel

Private Sub CommandButton1_Click()
Application.Workbooks.Open "classeur N01xls"
Workbooks("Classeur N°2").visible= false
End Sub

Ca fonctionne ???

 

[paul87]

Re : Fermer simultanément un UF et Excel

non désolé....😱
meme résultat !!!

 

[Simons]

Re : Fermer simultanément un UF et Excel

alors la je ne sais pas quoi faire..
Si tu peux envoyer le fichier je pense que ce sera plus simple.