[VBNET]Problème d'accès à Excel

Bonjour, :wink:

J'utilise en ce moment VB 2005 Express Beta 2. Lorsque j'active l'option Strict, les liaisons tardives sont interdites.

Avec VB6 et VB 2005, j'accédais à Excel comme ceci :

Code:

---

1 2	Dim DocExcel as Object Set DocExcel = CreateObject("Excel.Application")

---

Je fais dorénavant appel à Excel comme ceci :

Code:

---

1 2	Dim DocExcel As Excel.Application DocExcel = CType(CreateObject("Excel.application"), Excel.Application)

---

Mais en faisant appel comme ceci, ça ne fonctionne plus, par exemple :

Code:

---

DocExcel.DisplayAlerts = False

---

génère une erreur lors de l'exécution :

Citation:

---

Le serveur a généré une exception. (Exception de HRESULT : 0x80010105 (RPC_E_SERVERFAULT))

---

Maintenant la question qui tue : pourquoi ça ne marche pas ? :cry:

Tu devrais peut être utiliser la PIA microsoft.office.interop.excel.dll
pour faire

Code:

---

1 2 3 4 5

Dim docExcel As Microsoft.Office.Interop.Excel.Application '... docExcel = New Microsoft.Office.Interop.Excel.Application() 'etc...

---

Salut,
avec Excel, l'erreur HRESULT est très souvent un problème de "Globalisation" (culture-info).
en général, si tu dois faire une appli multi-environnement culturel, tu peux t'en sortir "trappant" la culture locale (courante), puis en forçant la culture courante à en-US pour faire tes opérations, puis en remettant ta culture locale à sa valeur originale.
Comme ceci :
- capture de la valeur courante et mise en en-US

Code:

---

1 2 3 4 5 6 7 8

Dim oldLocale As System.Globalization.CultureInfo   ' récupère et stocke le type local actuel et défini temporairement le type local ' comme "en-US" Private Sub SetTempLocale() oldLocale = System.Threading.Thread.CurrentThread.CurrentCulture System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US") End Sub

---

- puis remise à la culture originale

Code:

---

1 2 3

Private Sub BackToOldLocale() System.Threading.Thread.CurrentThread.CurrentCulture = oldLocale End Sub

---

la seule chose à faire attention avec ça est que si affiche des dates, elles peuvent s'fficher en mode US, c'est à dire MM-DD-YYYY, donc tu devra peut-être te faire une petit fonction "moulinette" qui te reconstruise la date en DD-MM-YYYY

bonne chance !

Merci pour vos réponses. :o

En fait, je me servais d'Excel 97 et donc de la référence Microsoft Excel 8.0 Object Library, et celle-ci ne fonctionne sous VB 2005 qu'en utilisant une liaison tardive.

Je suis passé sous Excel 2003 avec la référence Microsoft Excel 11.0 Object Library, et là j'accède à Excel comme l'a décrit neguib et ça marche !!! :lol:

En fait, je migre des programmes de VB6 à VB.Net car à mon boulot, on est toujours sous Windows NT & Excel 97, mais Windows XP pointe enfin le bout de son nez avec bien sûr une autre version d'Office.

Merci encore pour vos réponses. :coucou: