Discussion :

[kir4000]

Bonjour, je cherche depuis quelques heures une façon de toucher à un objet excel présent dans un formulaire access. Je ne cherche donc pas à créer ou ouvrir un fichier excel.

Oui ça parait simple, mais je n'y arrive pas !
Mon objet excel se compose d'une feuil1 avec des données, et d'un graphique sur la feuille "graph1". Le graphe étant un nuage de points, je veux mettre des étiquettes aux points. Je sais le faire sur le logiciel excel, mais pas encore sur un graph excel sous access.

Après avoir vu un gd nb de posts, je suis tombé sur la méthode qui pourrait me servir, cependant j'ai access 2000 et l'appli est développé sous access 2002. Access 2000 ne permet pas d'utiliser la référence indispensable "owc11" au bon fonctionnement de ton appli. j'ai téléchargé owc10, compatible 2000, mais je n'ai pas les droits d'installation à mon bureau grr...
http://starec.developpez.com/tuto/listesowc/

Donc ma question est, comment je peux faire pour contrôler en vba d'une manière ou d'une autre ma feuille "graph1" incorporée dans un cadre d'objet indépendant de mon formulaire.

Car quand j'utilise le code souvent décrit sur le forum, cela m'ouvre Excel en logiciel, et pas simplement mon classeur directement dans le formulaire.

Help !

PS:Avant j'avais un objet graph2000, mais c'était un peu trop rigide, et je n'ai pas eu de retour à ce post http://www.developpez.net/forums/d78...-point-access/

[kir4000]

Bonjour,

up:!

Je vous met l'image de mon formulaire.
J'ai un sous formulaire qui présente proprement les données, pas de pb, source par envoi de requete lors de l'ouverture

Meme systeme pour mon objet excel qui reçoit les données de la requête dans la Feuil1, et le Graph1 est associé à la Feuil1. D'ailleurs hormis l'envoi des données en VBA suffit pour faire ça (!)

Mon graph est un nuage de point, et je veux le controler pour effectuer un sub de ce style, pas de problème sous excel, ici c'est pour un graph situé sur la meme feuille que mon tableau, mais on s'en fout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub Etiquette()
'ajoute les étiquettes de la colonne avion aux points (x;y) (ou colB;colC)
Dim NbLigne As Integer, J As Variant
 
For J = 1 To 1000
    If ActiveSheet.Cells(J, 1) = "" Then
        NbLigne = J - 1
        Exit For 'interruption de la boucle
    End If
Next J
 
For J = 2 To NbLigne 'on commence la boucle après les étiquettes
Sheets("Feuil1").ChartObjects(1).Activate
    If Sheets("feuil1").Range("B" & J).Value = 0 Or Sheets("feuil1").Range("C" & J).Value = 0 Then
    Else
        ActiveChart.SeriesCollection(1).Points(J - 1).ApplyDataLabels
        ActiveChart.SeriesCollection(1).Points(J - 1).DataLabel.Select
        Selection.Characters.Text = Sheets("feuil1").Range("A" & J).Value
    End If
Next J
ActiveSheet.Cells(1, 1).Select 'retour sur la feuille
End Sub

Mais comment simplement atteindre cette feuille en VBA depuis mon formulaire Access ??!!

Peut-etre que comme mon objet excel est un workbook, mais je ne connais pas son nom dans ce genre de situation.

Help