code qui permet générer du graphique sur Vb à partir d'access ou excel

Question

Bonjour,


j'ai une application VBA, je voudrais savoir comment g&#233;n&#233;rer du graphique (histogrammes,...) &#224; partir d'une base access ou d'un fichier excel.


Ce que je veux savoir exactement, c'est les fonction VB qui permettent l'acc&#232;s &#224; un fichier Excel (ouverture, fermeture, cr&#233;ation,...) et s'il ya des fonctions VB ou des Macros qui g&#233;n&#232;rerent &#224; partir de fichiers Excels ou une bases Access des graphiques qu'on pourra afficher sur l'interface VB .


si quelqu'un pourra m'&#233;clairer!!!!


merci d'avance

Diegoch · Answer

Fichier Excel :

Creation de l'objet application
      Dim XL As Object
      Set XL =  CreateObject("Excel.Application") 'l'objet XL fera ref&#233;rence a l'application
      XL.application.Visible = True  'rend la fenetre de l'application visible
'// Ces lignes ne font que d&#233;finir l'application et lancer excel avec aucun document d'ouvert.

ouverture :
      XL.Workbooks.Open "Chemin+Nomfichier" 'ouvre un fichier XLS depuis l'emplacement sp&#233;cifi&#233;

Enregistrer fichier, Fermer fichier, Fermer application :
      XL.ActiveWorkbook.Save 'enregistre le document sur l'emplacement courant, sinon choisir .SaveAs
      XL.ActiveWorkbook.Close
      XL.application.Visible  = False

cr&#233;ation :
      XL.Workbooks.Add 'ajoute un fichier excel a l'application

Supprimer un fichier excel s'il existe :
      If Dir("D:\fichierexcel.xls") = "fichierexcel.xls" Then Kill "D:\fichierexcel.xls"

graphiques :
il faut utiliser le controle MSChart

J'esp&#232;re que &#231;a suffira pour un d&#233;but...
Bonne utilisation.

mnasri_riadh · Answer

merci bcp 
pour votre r&#233;ponse, je vais les essayer.
a+

jpleroisse · Answer

N'oublie pas de cocher dans Projet/R&#233;f&#233;rences, la case Microsoft Excel x0 Object Library et de placer un contr&#244;le MSChart sur ta Form.

Cet exemple utilise les cellules de A1 &#224; B8 d'un classeur Excel, en B1 , j'ai mis Semaine 1
en A2 Lundi, A2 Mardi ect...jusque Dimanche. De B2 &#224; B8 j'ai mis des nombres, 350, 265,245, ect....

Private Sub Command1_Click()
Set wkbObj = GetObject _
("C:\Mes documents\Classeur1.xls")


Dim arrData(1 To 7, 1 To 2)
Dim i As Integer
For i = 1 To 7
   ' Les valeurs de la colonne A remplissent la premi&#232;re
   ' s&#233;rie du tableau. Si ces valeurs sont des cha&#238;nes,
   ' elles deviennent des &#233;tiquettes de lignes.
   Dim arrValues(1 To 5, 1 To 3)
    arrData(i, 1) = wkbObj.Worksheets(1) _
   .Range("A" & i + 1).Value


   ' Les valeurs de la colonne B remplissent ensuite la seconde s&#233;rie.
   arrData(i, 2) = wkbObj.Worksheets(1) _
   .Range("B" & i + 1).Value
Next i
MSChart1.ChartData = arrData
End Sub

jpleroisse

mnasri_riadh · Answer

merci bcp jpleroisse:
c'est tr&#232;s gentil de ta part
a+
Cordialement
MNASRI Riadh

Code qui permet générer du graphique sur Vb à partir d'access ou excel

4 réponses

Discussions similaires