Afficher une feuille Excel dans une formRésolu

Question

Salut,

Est il possible d'afficher une feuille Excel dans une form VB ? Je sais appeler Excel pour ouvrir un fichier, etc. Par contre, je n'ai pas trouv&#233; comment avoir la feuille Excel directement dans la form.

Merci d'avance,

Ludo tnet

Ludotnet · Accepted Answer

C'est bon, j'ai ajout&#233; le composant "Feuille de calcul Microsoft Office 9.0" et &#231;a fonctionne.

Merci pour ton aide.
Ludo tnet

cs_lelette · Answer

Je l'ai fait avec une feuille graphique dans un picturebox :

    

With ActiveChart

        ' Copie du graphique dans la picturebox

        .ChartArea.Select

        .ChartArea.Copy

        With Picture1

            .Picture = Clipboard.GetData(vbCFBitmap)

            .Left = (Form1.ScaleWidth - .Width) / 2

            .Top = (Form1.ScaleHeight - .Height) / 2

            frame2.Visible = False

            DoEvents

            .Visible = True

        End With

        ' D&#233;truit la feuille graphique

       ' MonExcel.DisplayAlerts = False

        '.Delete

       ' MonExcel.DisplayAlerts = True

    End With


lelette

Ludotnet · Answer

Merci de ta r&#233;ponse.

C'est diff&#233;rent dans ce cas, car je ne peux pas utiliser une picturebox : le Clipboard.GetData ne correspond pas avec des cellules Excel.

Il faut trouver un moyen soit d'ins&#233;rer une zone "Excel" dans la form, soit de r&#233;ussir &#224; ins&#233;rer une grille dans laquelle je pourrais coller chaque valeur de cellule.

cs_lelette · Answer

il faut transf&#233;rer les cellules excel dans un tableau TableT(nblignes,nbcolonnes)

en faisant l'inverse de ce qui est fait ci-dessous, et apr&#232;s ce tableau
tu l'affiches comme tu veux dans la form. Il est + rapide de transf&#233;rer
le tableau directement que cellule/cellule

j'esp&#232;re que cela marche!! je n'ai fait que l'inverse!

courage

      

  With ActiveSheet

            Nomsheet = .Name

            .Range(nomCol(NbElementsC - 11) & "1:" & _

            nomCol(NbElementsC - 1) & NbLigne).Value = TableT

        End With


lelette

Ludotnet · Answer

Mon probl&#232;me est la deuxi&#232;me partie !! Afficher le tableau dans la form !

J'ai cherch&#233; ce matin, mais sans succ&#232;s : les flexgrids n'existent plus, ni les grid. Et je ne sais pas trop me servir des datagrids...

Pourrais tu m'indiquer ta m&#233;thode ?
Merci d'avance!!!

cs_lelette · Answer

il y a maintenant le contr&#244;le MSFlexGrig, dans Projet tu choisis Composants et tu coches le Microsoft Flexgrid 6.0

lelette

Ludotnet · Answer

Au secooours !
Il m'indique que je n'ai pas la licence pour l'utiliser....

Y a-t-il un autre objet qui pourrait convenir ?,
----

!

cs_lelette · Answer

ok, c'est parfait! je vais essayer!!

lelette

ukos · Answer

euu moi j utilise le composant : Microsoft Office spreadsheet

se qui affiche une jolie feuille excel ( avec pas mal d'option ) :D

cs_lelette · Answer

je vais essayer la semaine prochaine=> vacances pour 4 jours

merci

&#224;+

lelette