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...