je l'ai testé mais il ne se passe rien
étape 1 : dans l'userform1
Private Sub Workbook_Open()
UserForm1.Show
End Sub
étape 2 : dans le fichier texte
Set obExcelApp=CreateObject("Excel.Application")
obExcelApp.Visible = False
obExcelApp.Workbooks.Open("C:............................................\depenses.xlsm")
obExcelApp.ActiveWorkbook.Close
obExcelApp.quit
je ne sais pas où ça foire?