Macro impression écran zone de sélection d'impression

MFerrand a écrit :

Bonsoir,

A essayer :

Sub ExportImgPlage()
    Dim plage As Range, chemin$, nomimg$, w!, h!
    chemin = "H:\Images\"
    nomimg = "ImagePlage.jpg"
    With ActiveSheet
        Set plage = .Range("B3:N16")
        w = plage.Width: h = plage.Height
        plage.CopyPicture
        With .ChartObjects.Add(0, 0, w, h)
            .Chart.Paste
            .Chart.Export chemin & nomimg, "JPG"
            .Delete
        End With
    End With
End Sub

Remplacer chemin et nomimg par ceux appropriés.

Cordialement.

Bonsoir MFERRAND !

Pourrais tu faire incrementer un numero en commencant par le "1" a la fin du nomming.

De facon qu'a chaque fois que la macro est lancé cela enregistre une nouvelle image.

Merci d'avance.

Nyco