XL 2019 copy filtered range to jpeg

duplaly · 30 Septembre 2020

Hi
I'm trying to find the good way to transform that vba code for a fixed range.

'Create JPG file of the range
'Only enter the Sheet name and the range address
MakeJPG = CopyRangeToJPG("Rapport", "A1:H108")

to a filtered range

'Only the visible cells in the selection
Dim lr As Long
lr = Sheets("Registre").Cells(Application.Rows.Count, 1).End(xlUp).Row
Set Rng = Sheets("Rapport").Range("A1:H" & lr).SpecialCells(xlCellTypeVisible)

Any help!!

Thanks!

kiki29 · 30 Septembre 2020

Salut, qqch comme ceci, à adapter à ton contexte.

VB:

Option Explicit

Sub Export()
Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long

    Set oWs = ActiveSheet
    Set oRng = oWs.Range("B2:H11")

    oRng.CopyPicture xlScreen, xlPicture
    lWidth = oRng.Width
    lHeight = oRng.Height

    Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

    oChrtO.Activate
    With oChrtO.Chart
        .Paste
        .Export Filename:=ThisWorkbook.Path & "\" & "Range2JPEG.jpg", Filtername:="JPG"
    End With

    oChrtO.Delete
End Sub

duplaly · 30 Septembre 2020

Bonjour
Je me suis mal exprimé, j'aimerais pouvoir filtrer le range et copier les cellules visibles. Bref, une range variable.
Merci

kiki29 · 30 Septembre 2020

à adapter à ton contexte

Re, n'étant pas un adepte du "tout cuit", à toi de poursuivre.

XL 2019 copy filtered range to jpeg

duplaly

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

duplaly

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

Discussions similaires