// test existance fichier.
if(_access(m_FileSrc,0)==-1)    
{
    AfxMessageBox("Erreur sur fichier selection");
    return;
}
  
// TODO: Add extra validation here
COleVariant vTrue((short)TRUE),vFalse((short)FALSE),
            vLong((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
  
_Application appObj;
if(!appObj.CreateDispatch("Word.Application"))
{
    AfxMessageBox("Coud Not Create The Application Object");
}
appObj.SetVisible(FALSE);
Documents docsObj(appObj.GetDocuments());

_Document docObj;
docObj.AttachDispatch(docsObj.Open(COleVariant(m_FileSrc),vFalse,
              vFalse,vFalse,vLong,vLong ,vFalse,vLong,vLong,vLong));

m_FileSrc=m_FileSrc.Left(m_FileSrc.GetLength()-3);
m_FileSrc+="txt";

docObj.SaveAs(COleVariant(m_FileSrc),COleVariant((short)2),
vFalse,COleVariant(""),vTrue,COleVariant(""),vFalse,vFalse,vFalse,vFalse,vFalse);

appObj.Quit(vLong,vLong,vLong);

void CLoadComponentView::OnExcelcompLoad()
{
    LPDISPATCH pDisp; LPUNKNOWN pUnk;
    CLSID clsid; BeginWaitCursor(); // Employer Excel.Application.8 pour Office 97 
    // Employer Excel.Application.9 pour Office 2000
    // Employer Excel.Application.10 pour Office XP
    // Employer Excel.Application.11 pour Office XP 2003 
    ::CLSIDFromProgID(L"Excel.Application.11", &clsid);
    if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)
    {
        VERIFY(pUnk->QueryInterface(IID_IDispatch, (void**) &pDisp) == S_OK);
        m_app.AttachDispatch(pDisp); 
        pUnk->Release();
        TRACE("Une instance d'Excel a été trouvé\n");
    }
    else
    {
        if(!m_app.CreateDispatch("Excel.Application.11"))
        {
            AfxMessageBox("Programme Microsoft Excel non trouvé");
            EndWaitCursor(); return;
        }
        TRACE("Une instance d'Excel a été crée\n");
    }
    EndWaitCursor(); 
    CWnd* pWnd = CWnd::FindWindow("XLMAIN", NULL);
    if(pWnd != NULL)
    {
        pWnd->ShowWindow(SW_SHOWNORMAL);
        pWnd->UpdateWindow();
        pWnd->BringWindowToTop();
    } 
    m_app.put_SheetsInNewWorkbook(1);
}