Fermer Excel après exécution des macros

Résolu/Fermé

thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 - 14 avril 2014 à 09:28
thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 - 23 avril 2014 à 10:27

Bonjour,

J'ai un USERFORM qui s'exécute tel un programme. Le classeur est caché pour les utilisateurs. Sur mon USF, j'ai un bouton qui donne accès au classeur en saisissant un mot de passe.

Lorsque je ferme mon userform (= je quitte le mini programme), Excel reste ouvert en fond.
J'ai donc utilisé Application.Quit et ça marche dans tous les cas, sauf 1.

Le cas qui me pose problème est : dès l'ouverture du programme, si je clique directement sur le bouton pour avoir accès au classeur, j'arrive sur le classeur et j'ai une fenêtre qui s'ouvre et qui me demande "Voulez-vous enregistrez les dernières modifications de votre fichier XXXXX ? Oui / Non" et ça le ferme.

Une solution ? Merci

voici mon code de fermeture :

Private Sub UserForm_Terminate()
Worksheets("suivi").Range("A1:Z50").ClearContents
SetWindowLong HandleUF, GWL_WNDPROC, BaseUFProc
Application.Quit
End Sub

A voir également:

Microsoft a bloqué l'exécution des macros car la source de ce fichier n'est pas approuvée
Le fichier à télécharger est la nouvelle note de service de votre entreprise. importez ce fichier dans le bon dossier sur l'espace pix cloud. donnez à ce fichier les mêmes droits d'accès que les autres notes de service. ✓ - Forum Windows
Fichier rar - Guide
Uptobox bloqué - Guide
Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
Fichier host - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 avril 2014 à 15:54

Bonjour,

je clique directement sur le bouton Qu'avez-vous mis comme code pour arreter le VBA ????

thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 16
14 avril 2014 à 16:00

Bonjour,

Le code mis à la fin de mon post initial.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 avril 2014 à 16:02

Re,

Private Sub UserForm_Terminate() ca c'est clic sur la croix de fermeture UF, pas un bouton !!!!!

thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 16
14 avril 2014 à 16:39

Re,

Ah, autant pour moi.

Le bouton fait apparaître un petit USF et voici son code :

Private Sub TextBox1_Change()

'Code pour rendre excel visible: EXCEL
    If TextBox1.Text = "UPGRADE" Then
    Application.Visible = True
    Unload Me
    Unload UserForm1
    End If

End Sub

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 avril 2014 à 16:54

Re,

au plus simple: End

Private Sub TextBox1_Change()
    'Code pour rendre excel visible: EXCEL
    If UCase(TextBox1.Text) = "UPGRADE" Then
        Application.Visible = True
        End
    End If
End Sub

thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 16
23 avril 2014 à 10:27

Bonjour f894009,

Merci pour ton coup de pouce, c'est bon.

(Désolé du retard).

Discussions similaires

Risque de sécurité excel

Erreur d'éxecution 1004

VBA erreur 1004

Erreur d'execution '1004'

Arrêt d'exécution d'un code vba

Arrêt automatique macro

Discussions similaires

Newsletters