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