Discussion :

[Ronin-MK]

Actuellement et ceci pour des raisons de flexibilité de graphiques j'ai un fichier Excel introduit dans un formulaire Access.

Par défaut le fichier Excel montre le graphique et lorsque je veux mettre à jour des données notamment les courbes objectif ou le réalisé à l'instant t je suis obligé d'éditer l'objet Excel pour accéder aux onglets de mises à jour et ceci bien entendu manuellement.

J'ai actuellement mis en place tous les "tuyaux" qui vont bien pour connecter les deux éléments données Access et Objet Excel mais il me manque si l'on peut dire l'adaptateur.

Existe-t-il une propriété permettant d'accéder à ces objets Excel dans un formulaire ?

En consultant la FAQ j'ai trouvé pour animer un fichier Excel externe mais rien sur le pont entre un fichier Excel interne à Access et Access lui-même.

Merci d'avance si quelqu'un a une piste pour résoudre ce petit problème qui m'empêche d'automatiser à 100% ma base.

[demerzel0]

j'ai exactement le meme probleme, je ne peut pas acceder aux parametres (enfin pas tous en tt cas)de mon objet excel dans mon formulaire access, il y a bcp de doc pourtravailler a distance dans un fichier excel externe mais peu qd il s'agit de parametrer a l'interieur d'acces.

j'espere qu'un expert pourra nous aider^^

[=JBO=]

Bonjour Ronin-MK,

Existe-t-il une propriété permettant d'accéder à ces objets Excel dans un formulaire ?

Si je comprends bien, dans ton formulaire il y a un contrôle OLE qui "contient" un classeur ou une feuille Excel.

Ce contrôle OLE offre la propriété Object qui renvoie une référence à l'objet qu'il contient. Partant de là, tu peux intervenir directement sur ce tobjet en VBA.

Tous les tuyaux sont-ils bien "branchés" ?
=JBO=

[Ronin-MK]

Je suis toujours entrain de fouiller pour faire marcher tout cela.

En fait je crois qu'il me manque l'équivalent pour définir mon objet OLE en item Excel comme cela est fait avec WordBasic dans l'exemple de la propriété Object.

Y'a-t-il une piste pour trouver comment je dois déclarer cet objet OLE pour qu'il le reconnaisse comme item Excel ?

[micniv]

Je suis toujours entrain de fouiller pour faire marcher tout cela.

En fait je crois qu'il me manque l'équivalent pour définir mon objet OLE en item Excel comme cela est fait avec WordBasic dans l'exemple de la propriété Object.

Y'a-t-il une piste pour trouver comment je dois déclarer cet objet OLE pour qu'il le reconnaisse comme item Excel ?

As-tu déclaré une référence à Excel ?
ex: Microsoft Excel 9.0 Object library (pour excel 2000)

[Ronin-MK]

Oui ça c'est fait

Mais impossible de trouver ce qu'il faut mettre comme attribut pour qu'il le prenne en item Excel.

[=JBO=]

Hello Ronin-MK,

Je ne comprends pas bien. Qu'est-ce que tu appelles un "attribut" ?

Mais impossible de trouver ce qu'il faut mettre comme attribut pour qu'il le prenne en item Excel.

Bon, pour faire avancer le sujet...

Un formulaire nommé [MonForm] qui est lié à une source de données.
Dans [MonForm]:
>> un contrôle OLE (cadre d'objet dépendant) nommé CtrlOLE est lié à un champ contenant des objets OLE.
>> un bouton de commande nommé [CmdInfosExcel].

Quand on clique sur le bouton [CmdInfosExcel], une procédure s'exécute qui "explore" l'objet contenu dans CtrlOLE et, s'il s'agit d'un classeur Excel, récupère son nom et le nombre de feuilles et affiche ces informations.

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
23
24
25
Private Sub CmdInfosExcel_Click()
    Dim obj As Object, wb As Excel.Workbook
    Dim sMsg As String, sType As String
 
    If IsNull(Me.CtrlOLE) Then
        sMsg = "Vide"
    Else
        Set obj = Me.CtrlOLE.Object
        sType = TypeName(obj)
 
        If sType = "Workbook" Then
            Set wb = obj
            sMsg = "Le classeur [" & wb.Name & "] contient " & _
                    wb.Worksheets.Count & " feuilles." & vbCrLf & _
                    "La feuille affichée est [" & wb.ActiveSheet.Name & "]."
        Else
            sMsg = "Contient un objet " & sType
        End If
 
        Set wb = Nothing
        Set obj = Nothing
    End If
 
    MsgBox sMsg, vbInformation, "Infos CtrlOLE"
End Sub