Discussion :

[fxfxfx]

Bonjour,

J'ai dans une cellule une photo et je souhaite l'exporter dans un dossier en lui donnant un nom particulier. Chose que j'ai réussi à faire (après multiples tentatives laborieuses ^^).

Mon problème est le suivant : l'image exportée perd beaucoup en qualité et des bordures apparaissent lors de son exportation ....
Je souhaite qu'il n'y ai pas de bordures et que l'image reste en jpeg !


D'avance merci pour vos réponses et voici 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
Sub generer()
 Dim Plage As Range
 Dim Area As String
 Set Plage = Range("G8")
 Area = InputBox("Entrez le nom de l'actif", "Nom")
 Application.ScreenUpdating = False
 Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
 With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
 .Paste
 .Export ThisWorkbook.Path & "\" & Area & " - PlanComparables" & ".jpeg", "jpeg"
End With
 ActiveWorkbook.Close False
End Sub

[mercatog]

J'ai revu ton code et pas besoin de créer un autre classeur temporaire.

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
Sub Generer()
Dim Plage As Range
Dim Area As String
 
Application.ScreenUpdating = False
Area = InputBox("Entrez le nom de l'actif", "Nom")
If Area <> "" Then
    With Feuil9
        Set Plage = .Range("G8")
        With Plage
            .Borders.LineStyle = xlNone
            .CopyPicture
            .Borders.LineStyle = xlContinuous
        End With
 
        With .ChartObjects.Add(0, 0, Plage.Width - 1, Plage.Height - 1)
            With .Chart
                .Paste
                .Export ThisWorkbook.Path & "\" & Area & " - PlanComparables.jpeg", "jpeg"
            End With
            .Delete
        End With
        Set Plage = Nothing
    End With
End If
End Sub

Pour la qualité, je ne saurai répondre

[fxfxfx]

Merci pour le code!

J'ai modifié le feuil9 par ma feuille active...

Mais ca met toujours les bordures...

[Soraphiroth]

essaye de rajouter ça avant le .paste :

Code :

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

.ChartArea.Border.LineStyle = xlNone

Pour ce qui est de la qualité d'image, j'ai peur que l'on ne puisse pas avoir mieux avec les fonctions de bases de vba. J'ai vu qu'il existait une librairie pour manipuler les images (gdiplus.dll si je me souvient bien), il faudrait se renseigner de ce côté si tu tiens vraiment à améliorer la qualité, il faut l'avouer, assez moyenne d'Excel.

[fxfxfx]

merci beaucoup ça fonctionne, il n'y a plus de bordures!

cependant toujours un problème de qualité... des idées ?