Extraction image Excel via appli Access
Bonjour bonjour,
Alors, j'ai un petit problème (quelle surprise... ! :roll: ).
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:
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é... :P ), 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...
