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