Zones d'excel modifiées dans access vbaRésolu

Question

bonjour a tous.


Je voudrais savoir comment se servir des zones que l'on peut d&#233;finir sous excel depuis access. Je m'explique:
J'ai maintenant export&#233; mes donn&#233;es dans une feuille excel. Dans la colonne A, j'ai mis des libell&#233;s du type A1 "Frites", A2 "Moules" ...Dans la colonne B, j'ai les valeurs correspondantes : B1 "50", B2 "25" ...

Je souhaite d&#233;finir une zone qui prendra toutes mes donn&#233;es et me servir de celle ci comme source de donn&#233;es pour un graphique. Alors c'est simple, on s&#233;lectionne la zone, on la nomme, et on d&#233;finit cette zone comme source pour le graph... Mais non!

En effet le nombre d'ingr&#233;dients peut changer, ce qui veut dire que l'on pourra passer de 3 &#224; 5 lignes, et il faudra donc red&#233;finir la zone a chaque fois... Je d&#233;sire donc automatiser ceci pendant l'appel et l'envoi de donn&#233;es dans le classeur excel.

Regardons ensemble mon code :

  Dim ExApp As Excel.Application
  Dim i As Integer
  
  Set ExApp = CreateObject("Excel.Application")
  ExApp.Visible = True
  Set ExDoc1 = ExApp.Workbooks.Add("F:	ruite\Statistiques.xls")
  
  RstReqApt.MoveFirst
  i = 1
  


  Do While Not RstReqApt.EOF
  
    With ExApp1.Sheets("statsingredients")
      .Cells(i, 1).Value = RstReqApt("ingredient")
      .Cells(i, 2).Value = RstReqApt("Nombre")
    End With
  
    i = i + 1
    RstReqApt.MoveNext
    
  Loop

J'ai donc pens&#233; qu'il pourrait etre interressant de r&#233;cup&#233;rer la valeur de i, car elle donne le nombre exact de lignes. J'ai cr&#233;&#233; manuellement une zone  appel&#233;e "Selection" dans excel qui prend (A1:B6), donc 6 ingr&#233;dients. C'est donc la zone qui est prise en compte pour la cr&#233;ation du graphique.

Voila, il faudrait pouvoir modifier les dimensions de cette zone en fonction de la valeur de i. Comment faire?

Merci d'avance.

Molenn · Accepted Answer

Je crois avoir trouv&#233; ce que tu cherches, pour obtenir la m&#234;me chose &#224; partir d'Acces.

Hypoth&#232;ses de d&#233;part : 
Quand ton bout de code se termine, toutes les donn&#233;es sont mises dans le fichier Excel, toujours dans les 2 m&#234;mes colones (Le nb de colones ne changent jamais et ce sont les colones A et B)
La premi&#232;re donn&#233;es est positionn&#233;e en A1.
Il y a donc i donn&#233;es d'affich&#233;es &#224; chaque fois.

Comme je le disais dans le post pr&#233;c&#233;dent, le plus simple est d'avoir un fichier Excel mod&#232;le avec un premier graphique d&#233;j&#224; fait sur quelques donn&#233;es (par ex. A1:B2).

Je modifierai juste un tout petit peu ton code, au niveau de l'ouverture du fichier Excel.
Si je comprends bien, tu ouvres un nouveau fichier Excel et tu lui colles une feuille de Stats. Moi, je vais ouvrir le fichier mod&#232;le avec le graphique d&#233;j&#224; cr&#233;e (mon fichier Excel s'appelle Test.xls et il se trouve au m&#234;me endroit que la base Acc&#232;s).

   'D&#233;finition des variables
   Dim Chemin as String
   Dim Temp As String
   Dim ExApp As Excel.Application
    
   'D&#233;finition du chemin du fichier Excel
    Chemin = Application.CurrentProject.Path & "\Test.xls"
    
   'Ouverture du fichier Excel   
    Set ExApp = CreateObject("Excel.Application")
    ExApp.Visible = True
    Set ExDoc1 = ExApp.Workbooks.Open(Chemin)
    
   'A partir de l&#224;, tu recolles ton bout de code pour alimenter le fichier Excel avec tes donn&#233;es
   ...
   
   'Mise &#224; jour du graphique.
 
    'Derni&#232;re ligne de la zone de s&#233;lection (si commence en A5)
    Temp = 1 + i - 1 'O&#249; le premier chiffre est la premi&#232;re ligne de ton tableau de donn&#233;es
    'D&#233;finition de la zone de s&#233;lection
    Temp = "A5:B" & Temp
    'Modification de la zone de s&#233;lection
    ExDoc1.Worksheets("Feuil1").ChartObjects("Graphique 2").Activate 'Bien entendu, &#224; toi d'adapter le nom de ta feuille et du graphique
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Temp), PlotBy:= _
        xlColumns

Voil&#224;, &#231;a marche chez moi, il n'y a donc pas de raison que &#231;a ne fonctionne pas ailleurs ^^

Molenn · Answer

Donc, si j'ai bien compris. Tu importes 2 champs d'une table/requ&#234;te Acces dans les colonnes A et B de ton fichier Excel. Et le nombre d'enregistrements est variable.

Ce que je ferai.
Je dessinerai donc le graphique qui m'int&#233;resse &#224; partir d'un premier import, par exemple tes donn&#233;es en A1:B6.
Ce sera la graphique 1 dans ton fichier.

Dans une cellule au choix (pour mon ex., je mets en "E1"), je mettrai la formule "=NBVAL(A:A)"
Cette case te donnera donc &#224; chaque import de ta base acc&#232;s le nombre d'enregistrements (Bien entendu, il ne faudra pas que cette colonne serve &#224; autre chose. Ou alors, tu d&#233;limites un nb maximum de donn&#233;es import&#233;e au del&#224; duquel ton graphique ne se mettra plus &#224; jour ("=NBVAL(A1:A20)" par exemple).

Voil&#224;, tu as tout.
Plus qu'&#224; cr&#233;er un bouton Modification du graphe (ou &#224; coller le code directement dans ton code d'import d'acc&#232;s, je ne sais pas comment tu le g&#232;res)

'D&#233;finition variable
Dim Temp as String

'D&#233;limitation de la zone du graphique (on sait que &#231;a commenc toujours en A1)
Temp = range("E1").valueTemp 1 + Cint(Temp) -1 'Je te mets le d&#233;tail, parce que si ton tableau commen&#231;ait en A10 par exemple au lieu de A1, la formule deviendrait Temp 10 + Cint(temp) - 1. Le but est de d&#233;finir quelle ligne contient la derni&#232;re donn&#233;e
Temp = "A1:B" & Temp

'Modification du graphique
ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Temp), PlotBy:= _
        xlColumns

Et voil&#224;, c'est tout ^^
Ca, &#231;a marche si tu g&#232;res ton import de donn&#233;es Access &#224; partir d'Excel (en gros, un bouton qui g&#233;n&#232;re l'assistant d'import de Donn&#233;es Externe, et tu colles ce bout de code &#224; la fin). Si tu pars d'Access vers Excel, j'ai peur que ce code pose quelques soucis.

elpaulo · Answer

Oui pas mal comme solution mais voila, comme tu l'as dit, je pars d'access pour aller sous excel.
J'ai donc un formulaire avec un bouton "Statistiques" et lorsque je clique dessus, le code que j'ai ecrit plus haut s'ex&#233;cute. Et c'est dans ce code que j'aimerais d&#233;finir la zone en question pour que le formulaire s'affiche d&#232;s l'ouverture d'excel.

Ca doit etre un truc du genre Range("A & i ; B & i") mais j'en sais rien en fait !

elpaulo · Answer

Impeccable! je vais essayer ca desuite et je te met r&#233;pponse accept&#233;e d'embl&#233;e parce que t'as cern&#233; mon probl&#232;me, et tu as su y r&#233;pondre!

Merci encore!

Molenn · Answer

Mais de rien 
Mais je m'excuse pour la petite faute, je viens de voir &#231;a, rha ces satan&#233;s copier/coller 
Dans le bout de code qui suit, il faut bien entendu que tu remplaces les A5 par des A1 dans ton cas (dans mon fichier de test, mon graphique commen&#231;ait en A5 et j'ai oubli&#233; de tout corriger )

'Derni&#232;re ligne de la zone de s&#233;lection (si commence en A1)
    Temp = 1 + i - 1 'O&#249; le premier chiffre est la premi&#232;re ligne de ton tableau de donn&#233;es
    'D&#233;finition de la zone de s&#233;lection
    Temp = "A1:B" & Temp

cokinoumasterflash · Answer

Bonjour,
Comme vous j'essaie de travailler sur une feuille Excel depuis Access. J'ai donc essay&#233; de m'inspirer du code &#233;crit plus haut , sauf que je rencontre un probl&#232;me d&#232;s la premi&#232;re ligne de code :


Dim ExApp As Excel.Application

Basic ne reconnait pas Excel.Application.


Est-ce que l'un d'entre vous aurait une id&#233;e sur ce probl&#232;me ?


Merci.

Molenn · Answer

Il faut juste que tu penses à référencer Excel dans ta base de données ACCESS.
Pour cela, dans l'éditeur VB, il faut aller dans le menu Outils\Références et cocher la case Microsoft Excel 9.0 Object Library

Zones d'excel modifiées dans access vba

7 réponses

Discussions similaires