exporter des images depuis excel

Version imprimable

16/04/2008, 17h03
LiBasic

exporter des images depuis excel

Bonjour à tous.
Je vous expose mon problème : je travaille en VB6 et je dois développer une application qui exporte les images contenus dans des fichiers Excel.
Je sais manipuler des données mais pas moyen d 'exporter les images sur le DD...
J' ai réussi à effectuer cette tâche en VBA,mais le code n' est pas le même sous VB6.
J' ai cherché sur le forum, avec mon ami Google ^^ et sur d' autres sites anglophones mais rien pour mon cas.
Si un connaisseur passait par là, il serait le bienvenu :D

D' avance merci, bonne soirée
16/04/2008, 23h27
SfJ5Rpw8

voir http://vb.developpez.com/cours/?page=automation#office

si tu t'en sort pas montre ton code VBA on t'aideras à l'adapter au VB6.
17/04/2008, 07h59
Invité
Bonjour

En plus de la lecture que te fournie bbil (bonjour :coucou:)

Le principe est de :
- Créer une instance d'Excel (voir le premier article du lien)
- Ouvrir ton classeur
- Utiliser le code VBA en déclarant correctement tes feuilles.
Tu trouveras également dans la FAQ Access des méthodes pour piloter Excel. Tu peux faire la même chose en VB6.

Starec

Merci pour vos réponses. En effet je déclare bien mes variables, j' ajoute la référence Excel 11 à mon projet mais plantage à chaque fois.
Le code que j' utilise en VBA est le suivant (chopé sur la FAQ Excel) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub ExtractionImagesFeuille()
    Dim Pict As Picture
    Dim Nb As Byte
 
    Application.ScreenUpdating = False
 
    For Each Pict In Worksheets("Feuil1").Pictures
        Pict.CopyPicture 'copie l'image
 
        With Worksheets("Feuil1").ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
            .Paste 'colle l'image dans un graphique temporaire
            'Sauvegarde au format image, dans le même répertoire que ce classeur.
            .Export ThisWorkbook.Path & "\" & Pict.Name & ".gif", "GIF"
        End With
 
        'Supprime le graphique
        Nb = Worksheets("Feuil1").ChartObjects.Count
        Worksheets("Feuil1").ChartObjects(Nb).Delete
    Next Pict
 
    Application.ScreenUpdating = True
End Sub

Le code est fonctionnel sous VBA Excel mais je ne sais pas si vous arriverez à faire quelque chose avec ça sous VB6..
Merci

17/04/2008, 08h39
Invité

Re

Pourrais-tu mettre la déclaration de tes variables, et nous dire où ton code plante et quel est le message.

Parceque ce n'est pas bon au niveau de la déclaration du classeur etc.. ç priori.

Starec
17/04/2008, 10h35
LiBasic

Je vous met ça après le repas car du boulot m' attend ^^'
De plus je ne programme pas sur ce pc, donc tout code que je transmet dois passer par une clé usb etc...

Voila le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Form_Load() 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:\testexport.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1) Dim ch As Chart Set ch = Worksheets(1).ChartObjects("image1").Chart ch.Export "C:\testimage.jpg", "JPG" wbExcel.Close Set ch = Nothing Set wk = Nothing End Sub
L' erreur vient de là :

Code:

Set ch = Worksheets(1).ChartObjects("image1").Chart

Et l' erreur affichée est la suivante :

Citation:

Erreur d' exécution 1004
Impossible de lire la propriété ChartObjects de la classe Worksheet

Je tiens à dire que ce code n' est pas le même que mon code VBA mais que ce code a été récupéré sur un forum VB6, du fait que ma source VBA ne marche pas du tout.

17/04/2008, 11h15
Invité

Re

Tu as déclaré une variable

Code:

Dim wsExcel As Excel.Worksheet 'Feuille Excel

a qui tu as donné une affectation

Code:

Set wsExcel = wbExcel.Worksheets(1)

C'est cette variable que tu dois utiliser à la placde

Code:

Worksheets(1)

dans le code.

Et la même chose pour le classeur.

Tu as copié intégralement le code VBA, il faut l'adapter.

Starec
17/04/2008, 11h31
LiBasic

Malheureusement il me reproduit toujours le même message d' erreur, sur la même ligne. J' ai essayé de changé la variable que tu m' avais indiqué en mettant wsExcel,Worksheets(1),wbExcel.Worksheets,... mais rien ne fonctionne..
Merci de passer ton temps sur mon sort Starec ^^
17/04/2008, 11h34
Invité

Re

Non,

As-tu ceci dans la FAQ Access : Piloter Excel via Access : exemples d'opérations courantes effectuées sur cellules, plages, lignes ou colonnes excel à partir d'access.
Décortique le code et tu comprendra mieux.

Starec
17/04/2008, 11h41
SfJ5Rpw8
tu est sur que ta FEUIL1 à l'index 1.?

remplace
Code:

1 2 Set wsExcel = wbExcel.Worksheets(1)
par
Code:

1 2 Set wsExcel = wbExcel.Worksheets("Feuil1")
(c'est bien Feuil1 que tu utilise dans ton VBA)

j'ai pas vu la ligne .. où tu rendais l'application excel visible (c'est mieux pour le debug)

Code:

appExcel.visible=true
17/04/2008, 14h07
LiBasic

Voilà je viens de trouvé la solution à mon problème : il fallait utiliser des "Shape" à la place de "Chart"... Tout bête mais assez déconcertant... Merci à ceux qui se sont penchés sur le sujet. :zoubi:
Ainsi donc le tag Résolu est de la fête ^^