Discussion :

[JIPE59552]

Bonjour,
j'ai une plage de cellules de A1 à Y25 avec du texte et deux photos je voudrais exporter cette plage au format JPG et la renommer suivant la cellule A1 et si c'est possible en cellule E23 c'est inscrire le chemin ou ce trouve la photo
J'ai ce code mais je ne sais pas comment le modifier et en plus il créer un nouveau classeur
Merci

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 CopiePlageDeCelluleEtExporterImage()
 
Application.ScreenUpdating = False
With Sheets("feuil1")
.Activate
Workbooks.Add
.Range("A1:Y25").CopyPicture
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\Jean-Paul. Masson\Pictures\photo mer.jpg", "jpg"
End With
End With
End With
 
End Sub