Bonjour

je cherche un code pour exporter une plage de cellule vers une image JPG ou autre vers mes images pour cela j'utilise pour la sélection le code suivant

Sub EnvoiPlage()


Dim plage As Range

On Error Resume Next
Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If

End Sub

Bonjour,

Sub EnvoiPlage()
Dim plage As Range
On Error GoTo noselec
Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
plage.CopyPicture
Application.ScreenUpdating = False
With Worksheets.Add
.Paste
With .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "H:\Images\ImgPlage.png", "PNG"
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Exit Sub
noselec:
MsgBox "Aucune plage sélectionnée"
End Sub

En rouge : remplacer par chemin du fichier image et nom du fichier image (on peut aussi enregistrer en GIF ou JPG)

Merci

fonctionne à merveille

Re

Et pour enregistrer au format html

Bonjour

Comment que je peut faire pour ajouter le code printaeramod

à la place de Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)

Sub printAreaMod()
Dim derLig As Integer
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "a1:d" & derLig
ActiveSheet.AutoFilter.ApplyFilter
End Sub

massjipe a écrit :

Et pour enregistrer au format html

HTML n'est pas un format image !

massjipe a écrit :

Bonjour

Comment que je peut faire pour ajouter le code printaeramod

à la place de Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)

Sub printAreaMod()
Dim derLig As Integer
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "a1:d" & derLig
ActiveSheet.AutoFilter.ApplyFilter
End Sub

derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set plage = Range("A1:D" & derLig)

Mais que viennent faire la zone d'impression et le filtre automatique là-dedans ?

Bonjour

le filtre automatique est réglé sur cellule vide quand la feuille 1 est modifié le filtre met à jour la feuil2

la zone d'impression sert à sélectionner les cellules écrites pour ensuite créer la photo pour ma page web

Sub EnvoiPlage()
Dim plage As Range
On Error GoTo noselec
ActiveSheet.AutoFilter.ApplyFilter
derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set plage = Range("A1:D" & derLig)
plage.CopyPicture
Application.ScreenUpdating = False
With Worksheets.Add
.Paste
With .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Users\JP_Masson\Pictures\anaq.jpg", "JPG"
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Exit Sub
noselec:
MsgBox "Aucune plage sélectionnée"
ActiveWorkbook.Save
End Sub
Merci du coup de main

Un bon WE

Difficile voir l'effet du filtre sans modèle... ?

La zone d'impression n'a rien à faire dans cette opération (ça c'est confirmé !)

La nouvelle version rend inutile le gestionnaire d'erreur.

Si tu t'y es retrouvé, tant mieux !