*VB5* Transfert des enreg d'un Bdd vers Excel

Question

Bonjour &#224; tous,

Avec un code de transfert d'une base de donn&#233;es vers Excel trouv&#233; sur http://www.vbfrance.com/gma/tout/Access2ExcelXP, je parviens bien le transfert.

Le hic, c'est que je ne peux faire cela que si Excel est install&#233; !
Dans le cas contraire, impossible de poursuivre le prg, j'ai une erreur d'activeX manquant.

Qq pourrait-il me dire comment faire pour d&#233;tecter si Excel est install&#233; ou pas ?

Je pense qu'en lisant la BDR 
HKEY_LOCAL_MACHINE
 Microsoft
  Office
   10.0
     Excel - InstallRoot - Path [REG_Z]  [C:\Program Files\Microsoft Office\Office10\
&#231;a pourrait aller, enfin j'esp&#232;re, mais je ne sais pas comment on peut la lire !

Vous pouvez m'aider ?

Merci d'avance.

michelxld · Answer

bonjour


 


j'espere que cet exemple pourra t'aider


Dim Xl As Object


On Error Resume Next
Set Xl = CreateObject("Excel.Application")
If Xl Is Nothing Then
    MsgBox "Excel n'est pas install&#233; sur le poste ."
    Else
    MsgBox "Excel vesion " & Xl.Version & " est install&#233;e sur le poste "
End If

bonne journ&#233;e
michel

cs_JLB59 · Answer

Bonjour Michelxld,

C'est sympa de m'avoir r&#233;pondu mais ce que tu me donnes comme code je l'utilise d&#233;j&#224;.
Pour infos, si Excel est pr&#233;sent, pas de bl&#232;me, sinon, y a une erreur.

Mais je vais essayer en lisant la BDR, comment ???? Ca c'est une auytre histoire.

Merci quand m&#234;me.

A bient&#244;t.

VB5 Transfert des enreg d'un Bdd vers Excel

2 réponses

Discussions similaires