Discussion :

[LiBasic]

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' avance merci, bonne soirée

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

[Invité]

Bonjour

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

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

[LiBasic]

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 :

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

[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

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

[LiBasic]

Voila le code :

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

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

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

Et l' erreur affichée est la suivante :

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.

[Invité]

Re

Tu as déclaré une variable

Code :

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

Dim wsExcel As Excel.Worksheet 'Feuille Excel

a qui tu as donné une affectation

Code :

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

Set wsExcel = wbExcel.Worksheets(1)

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

Code :

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

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

[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 ^^

[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

[SfJ5Rpw8]

tu est sur que ta FEUIL1 à l'index 1.?

remplace

Code :

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

1
2
 
Set wsExcel = wbExcel.Worksheets(1)

par

Code :

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

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 :

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

appExcel.visible=true

[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.
Ainsi donc le tag Résolu est de la fête ^^