Discussion :

[Beub']

Bonjour bonjour,

Alors, j'ai un petit problème (quelle surprise... ! ).

J'ai un formulaire sous Access. Ce formulaire permet de sélectionner un document *.xls (via un bouton "parcourir"). Une fois le document sélectionné, il s'ouvre automatiquement.

Grosso modo, on aurait ensuite une procédure qui parcourerait toutes les feuilles du classeur et enregistrerait tous les graphiques.

J'ai épuré google (si si, jvous jure), et y a pas mal de façons de faire. En fait, elles marchent toutes très bien sous Excel. Mais quand jles mets dans Access, ça coince. Et elles me ramènent toutes au même problème.
J'ai une erreur d'execution 48 (erreur de chargement de la dll) sur la dernière ligne (activechart.export). Et j'ai rien de "manquant" dans les références (je crois qu'il suffit d'avoir MS Office Excel 10.0 de toutes façons non ?)...

Mon code est ci-dessous.

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
26
27
 
Dim xlApp As Object
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open (Me.Nom_FileExcel)   'Me.Nom_FileExcel est le nom issu de la fenêtre "Parcourir", comme expliqué précédemment
 
    ' Boucle parcourant les feuilles
    For Each Sheets In xlApp.Sheets
        ' On ecrit dans la boite de message le nom de la feuille
        MsgBox Sheets.Name
        ' On parcourt les graphiques de la feuille
        For Each Graph In Sheets.ChartObjects
            i = i + 1
 
            ' Selection d'un graphique
            Sheets.ChartObjects(i).Activate
            MsgBox Sheets.ChartObjects(i).Name
 
            ' Chemin où l'on veut exporter les graphiques
            Fich = "P:\"
 
          ActiveChart.Export FileName:=Fich & "test.jpg", FilterName:="JPEG"    'PAF !!!! ERREUR !!
 
        Next
    Next
End Sub

Voilà... Donc si quelqu'un pouvait m'expliquer d'où ça vient (après 4h de galère, jpense que je l'ai mérité... ), j'admets que ça m'embellirait la journée ! ^^ Merci d'avance !! ^^

PS : euh... Au fait, la question va faire très noob, mais la présentation du code en mode couleur et cadrage + barres de défilement, on la fait comment ? Histoire que je sache pour la prochaine fois ^^'
Edit : ok j'ai rien dit, j'ai trouvé comme un grand. Suffisait d'ouvrir les yeux...

[Tofalu]

Essaye en ajoutant la référence Microsoft Office 11.0 Object Library à ton projet.

Elle est activée dans Excel mais pas dans Access

[Beub']

Justement, j'ai dû oublier de préciser que dans les contraintes de développement, on devait se limiter à la 10.0... Donc pas possible d'utiliser la 11.0 .

(Je jure que c'est pas moi qui ai décidé... lol)

[Tofalu]

Tu as Access 2002 donc c'est la 11

Tu peux essayer quand même avec la référence 11.0 d'office XP (2002) pour voir si le soucis vient de là ou non ?

Edit, j'ai bien dit référence Office et non Excel hein

[Beub']

Alors alors...

J'ai réussi à trouver la 12.0 (oui je dis ça comme si c'était un exploit... ) et ça passait pas avec elle non plus.


Par contre, j'ai modifié

Code :

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

ActiveChart.Export FileName:=Fich & "test.jpg", FilterName:="JPEG"

Par

Code :

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

xlApp.ActiveChart.Export FileName:=Fich & "test.jpg", FilterName:="JPEG"

Et là ça marche... Avec la 10.0 (et la 12.0 évidemment) !

Bref, je crois que pour le moment, j'ai tout ce qu'il me faut (jrisque de revenir, ça me semble un peu trop beau pour être vrai

Merci beaucoup à toi en tous cas !! Le fait d'expliquer la situation et de voir tes réponses m'a permis d'évacuer un peu... lol ^^