Donné excel vers vbRésolu

Question

Salut,

       Est-ce que quelqu'un pourrait me
dire comment je pourrais faire pour faire un lien de excel &#224; vb... je
voudrais, par exemple, que mon label1 soit &#233;gal &#224; la cas A1, mon label2
&#233;gal &#224; la case A2... Pour l'instant, j'ai aucune id&#233;e de comment faire.




    Deuxi&#232;me question, est-ce mieux de faire ma base de
donn&#233;s dans excel pour l'utiliser dans vb ou bien d'utiliser la base de
donn&#233;s ADO (ou quelque chose dans le genre que j'ai aussi aucune id&#233;e
de comment qu'il fonctionne).



Merci beaucoup,

  
                     
Eric

us_30 · Accepted Answer

Salut,

Quand tu parles de VB, tu penses à VBA, je présume...

Pour ta première question, tu peux utiliser ce code, dans VBA :

Label1.caption = [A1]

etc...

mais perso, je pense que sous excel, il n'est pas malin de réafficher les données contenues dans une feuille Excel. IL me semble préférable d'utiliser les feuilles Excel comme faisant partie intégrante à ton programme. C'est plus facile à programmer, plus clair pour l'utilisateur, et surtout automatiquement plus souple...

Pour la 2ième question, cela dépends de ce que tu veux faire ? (pour une petite base de données, Excel c'est suffisant...)

Amicalement,
Us.

jpleroisse · Answer

Bonjour,

Si j'ai bien compris, tu veux placer dans des labelsqui se trouvent sur
une Form de VB 6, des donn&#233;es se trouvant dans Excel. Dans VB, tu
coches dans Projet / R&#233;f&#233;rences, tu coches Microsoft Excel x.0 Object
Library et Microsoft DAO 3.51(o&#249; 3.6) Object Library et tu place ce
code.



Private Sub Command1_Click()

Dim objExcelApp As Object

Dim objWorkSheet As Object

' On ouvre Excel

Set objExcelApp = CreateObject("Excel.Application")

'utilise la propri&#233;t&#233; .Add si le classeur existe d&#233;ja

objExcelApp.Workbooks.Add ("c:\Mes documents\MonClasseur.xls")

'On active la feuille

Set objWorkSheet = objExcelApp.ActiveSheet

' ici r&#233;cup&#232;re les donn&#233;es

Label1 = objWorkSheet.Cells(1, 1).Value

Label2 = objWorkSheet.Cells(1, 2).Value

' etc......

objExcelApp.ActiveWorkbook.Close

objExcelApp.Quit

'On lib&#232;re la m&#233;moire

Set objExcelApp = Nothing

End Sub



Pour ta 2 &#232;me question, il vaut mieux utiliser Access, si ton MSOffice
est s&#233;p&#233;rieur &#224; 97, cr&#233;e ta base en utilisant le Gestionnaire de
donn&#233;es (VB 6 ne reconnait les base de donn&#233;es Access sup&#233;rieur &#224; 97).
Mais tu peux utiliser Excel si tu veux.



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#232;e.

cire2003 · Answer

c'esr pour un projet contenant une bone trentaine de colonnes et une bonne dizaine de rang&#233; rempli...

us_30 · Answer

Bonsoir,

Donc tu peux utiliser Excel sans difficulté particulière pour 300 éléments... (et de préférence avec VBA).
Par contre, (par curiosité) quand tu parlais de VB, tu pensais utiliser VBA ou VB6 ? (Comme tu as accepté les deux réponses, on ne sait plus...)

Amicalement,
Us.

cire2003 · Answer

vb6... je ne connais pas vraiment VBA et je ne l'ai pas (&#224; moins qu'il soit inclut dans le la package avec VB, C++, ...)

us_30 · Answer

Si tu as Excel, tu as nécessairement VBA : Visual Basic pour Application... C'est avec ça que tu fais les macros, en autre... enfin, ce n'est pas grave... Mais "piloter" Excel à partir de VB6, même si c'est possible, c'est tout de même un peu moins évident qu'avec VBA... En terme de code, c'est du VB tout les deux. Donc, si tu connais VB6 (ou autre) , tu connais quasiment VBA...

Bref, Bonne prog....
Us.

Donné excel vers vb

6 réponses

Discussions similaires