Userform message d'erreur lors de la fermeture

Question

J'ai construit une petite application au travail pour faciliter l'accès à des données pour une équipe, il se lance via un bout de code en VB. Seul le Userform est affiché lors du lancement et ceci fonctionne bien sauf pour quitter l'application, car j'ai un message d'erreur (le userform se ferme bien revanche). Voici le code VB qui ouvre le fichier Excel : Set obExcelApp=CreateObject("Excel.Application") obExcelApp.Visible = False obExcelApp.Workbooks.Open("Localisationfichier\PrototypeV2.xlsm") obExcelApp.ActiveWorkbook.Close obExcelApp.quit Voici le code sur le bouton présent sur le userform pour fermer celui-ci : Private Sub Image3_Click() Application.Quit Application.DisplayAlerts = False End Sub Le message d'erreur indique ceci: Script : adressedufichier.vbs Ligne :4 Caract : 1 Erreur : Objet requis : 'obExcelApp.ActiveWorkbook' Code 800A01A8 Source : Erreur d'exécution Microsoft VBSript Si vous avez une solution, je suis preneur Merci par avance de votre aide et bonne journée...

galopin01 · Answer

Tu parles d'Userform mais il n'en est nulle part question dans le code ? Admettons... Pour quitter un Userform c'est : Unload UserForm1 (pas Application.Quit) ou selon le cas Unload Me Application.Quit ferme Excel... Or ton VBScript tente de fermer Excel à nouveau. A+...