macro export image fonctionne plus 2016

[tennis]

Bonjour,

cette macro ne fonctionne plus sous excel 2016. Je necomprends pas pourquoi alors qu'elle fonctionne bien sur mon autre pc avec excel 2013. Les mêmes cases sont cochées dans outils/références sous VBA. Je dois admettre ne pas avoir d'explications. cette macro me sert à copier une plage "NewSeance" contenant des images et du textes. Malheureusement, rien y fait, seul une image blanche est copiée. Si quelqu'un pouvait m'aiguiller...

Merci

Sub exportseancejpg()

Dim NomPlage, NomFich
Dim LeGraph As Object
Dim Rep As String
Dim i As Byte
Application.ScreenUpdating = False
Rep = ActiveWorkbook.Path & "\Fc Séances\Fc Séances modifiées\" 'Répertoire de sauvegarde
NomPlage = Array("NewSeance") 'Nom de tes plages

With ActiveSheet
ActiveWindow.Zoom = 400 'à adapter
For i = LBound(NomPlage) To UBound(NomPlage)
.Range(NomPlage(i)).CopyPicture
Set LeGraph = .ChartObjects.Add(0, 0, .Range(NomPlage(i)).Width, .Range(NomPlage(i)).Height)
LeGraph.Chart.Paste
LeGraph.Chart.Export Filename:=Rep & Range("A4").Value & ".jpg"
LeGraph.Delete
ActiveWindow.Zoom = 100
Next i
End With

End With
Application.ScreenUpdating = True
End Sub

 

[tennis]

Re : macro export image fonctionne plus 2016

Bonjour,

Mon problème reste d'actualité. Cette macro fonctionne tjrs sur mon ancien PC. En revanche, seule la copie d'une image blanche se fait sur mon nouveau. Si quelqu'un connait la solution à mon pb.

Merci

 

[job75]

Re : macro export image fonctionne plus 2016

Bonjour tennis,

Telle que présentée votre macro ne peut pas fonctionner : il y a un End With de trop...

A+

 

[tennis]

Re : macro export image fonctionne plus 2016

Oui pardon

Ce end with n'arien à faire ici effectivement. C'est une erreur de copie. Mon pb reste entier.

Merci

 

[tennis]

Re : macro export image fonctionne plus 2016

Bonjour,

personne ne peut visiblement trouver une solution à mon problème. Existerait il une solution à chercher du côté des références à cocher dans VBA project ?

Merci