recuperer le message derreur excel en automation

Bonjour à tous ! Je souhaite recuperer le message que fait excel quand il ouvre un fichier HS (header xls ok mais contenu foireu... ou autre). J'ai fait un bout de code qui "marchotte" et qui tombe en panne de temps en temps... Mais je ne maitrise pas du tout les morceaux qui viennent d'exemples d'ici et de la. Bon bref si qqun peut m'aider, merci d'avance. #include "stdafx.h" #include "afxwin.h" #include #define USE_PROGID 1 #define USE_LIBID 0 #if USE_PROGID #import "progid:Excel.Sheet" auto_search auto_rename rename_search_namespace("Office10") #elif USE_LIBID #import "libid:{00020813-0000-0000-C000-000000000046}" auto_search auto_rename version(1.3) lcid(0) no_search_namespace #else #pragma message ("Make sure the path to excel.exe is correct") #import "c:\office\office10\excel.exe" auto_search auto_rename dual_interfaces #endif BOOL Fichier_OK; void dump_com_error(_com_error &e) { Fichier_OK = FALSE; _tprintf(_T("\tFICHIER HS !\n\n")); _tprintf(_T("\tCode = %08lx\n"), e.Error()); _tprintf(_T("\tCode meaning = %s\n"), e.ErrorMessage()); _bstr_t bstrSource(e.Source()); _bstr_t bstrDescription(e.Description()); _tprintf(_T("\tSource = %s\n"), (LPCTSTR) bstrSource); _tprintf(_T("\tDescription = %s\n"), (LPCTSTR) bstrDescription); } struct StartOle { StartOle() { CoInitialize(NULL); } ~StartOle() { CoUninitialize(); } } _inst_StartOle; UINT MyThreadProc(LPVOID pParam) { HWND hwnd; HWND hwnd1; HWND hwnd2; char pszBuffer[513]; HWND g_HwndWordDlg = 0; hwnd = FindWindow("XLMAIN", NULL); _tprintf(_T("\tHandle parent= %d\n"), hwnd); hwnd1 = GetWindow(hwnd,GW_CHILD); _tprintf(_T("\tHandle child = %d\n"), hwnd1); GetClassName(hwnd1,pszBuffer,512); _tprintf(_T("\tLe class name de cette fenetre CHILD est : %s\r\n"), (LPCTSTR) pszBuffer); hwnd2 = GetWindow(hwnd,GW_ENABLEDPOPUP); _tprintf(_T("\tHandle POPUP = %d\n"), hwnd2); GetClassName(hwnd2,pszBuffer,512); _tprintf(_T("\tLe class name de cette fenetre POPUP est : %s\r\n"), (LPCTSTR) pszBuffer); if ((hwnd2!=0) || (hwnd1==0)) { if (!strcmp(pszBuffer,"#32770")) { _tprintf(_T("\tLe fichier est HS (pas de header xls)\r\n")); } if (!strcmp(pszBuffer,"bosa_sdm_XL9")) { _tprintf(_T("\tLe fichier est protege par mot de passe\r\n")); } PostMessage(hwnd2, WM_KEYDOWN, VK_ESCAPE, 0); PostMessage(hwnd2, WM_KEYUP, VK_ESCAPE, 0); Fichier_OK = FALSE; } return 0; } void main() { using namespace Excel; _ApplicationPtr pXL; CWinThread* pRunningThread = NULL; HANDLE hfind; WIN32_FIND_DATA wfd; char szroot[MAX_PATH],temporaire[MAX_PATH]; pXL.CreateInstance(L"Excel.Application"); pXL->Visible[0] = VARIANT_TRUE; WorkbooksPtr pBooks = pXL->Workbooks; strcpy( szroot, "c:\\*.xls"); //Je teste tous les .xls à la racine de C: hfind = FindFirstFile(szroot, &wfd); if(hfind == INVALID_HANDLE_VALUE) { FindClose(hfind); exit; } do { strcpy( temporaire, "c:\\"); strcat( temporaire, wfd.cFileName ); _tprintf(_T("Open = %s\r\n"), temporaire); Fichier_OK = TRUE; //initialise la variable booleene pRunningThread = AfxBeginThread(MyThreadProc, NULL); try { pXL->Workbooks->Open(temporaire); ::WaitForSingleObject(pRunningThread->m_hThread, 6000); } catch(_com_error &e) { dump_com_error(e); } if (Fichier_OK==TRUE) {_tprintf(_T("FICHIER OK : %s\r\n\r\n"), temporaire);} else {_tprintf(_T("FICHIER HS : %s\r\n\r\n"), temporaire);} Sleep(100); pXL->Workbooks->Close(1); } while(FindNextFile(hfind, &wfd)); FindClose(hfind); pXL->Quit(); getch(); }