Bonjour,
Je ne suis expert en vba donc si c'est possible je voudrai faire une sélection d'une plage de cellule celle ci peut changer au fil de l'eau et l'exporter au format image JPG gif ou autre et même html dans le répertoire images
mais comment faire
mon code pour la sélection
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Adapte : Range("A1:K20").CopyPicture Appearance:=xlScreen, Format:=xlPicture Set CO = ActiveSheet.ChartObjects.Add(0, 0, [A1:K20].Width, [A1:K20].Height) Set oChartArea = CO.Chart CO.Activate With oChartArea .ChartArea.Select .Paste .Export ("c:tempimage.jpg") End With CO.Delete Cordialement. Daniel
Bonjour, Je ne suis expert en vba donc si c'est possible je voudrai faire une sélection d'une plage de cellule celle ci peut changer au fil de l'eau et l'exporter au format image JPG gif ou autre et même html dans le répertoire images mais comment faire mon code pour la sélection 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,
Adapte :
Range("A1:K20").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set CO = ActiveSheet.ChartObjects.Add(0, 0, [A1:K20].Width,
[A1:K20].Height)
Set oChartArea = CO.Chart
CO.Activate
With oChartArea
.ChartArea.Select
.Paste
.Export ("c:tempimage.jpg")
End With
CO.Delete
Cordialement.
Daniel
Bonjour,
Je ne suis expert en vba donc si c'est possible je voudrai faire une
sélection d'une plage de cellule celle ci peut changer au fil de l'eau et
l'exporter au format image JPG gif ou autre et même html dans le répertoire
images mais comment faire
mon code pour la sélection
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
Bonjour, Adapte : Range("A1:K20").CopyPicture Appearance:=xlScreen, Format:=xlPicture Set CO = ActiveSheet.ChartObjects.Add(0, 0, [A1:K20].Width, [A1:K20].Height) Set oChartArea = CO.Chart CO.Activate With oChartArea .ChartArea.Select .Paste .Export ("c:tempimage.jpg") End With CO.Delete Cordialement. Daniel
Bonjour, Je ne suis expert en vba donc si c'est possible je voudrai faire une sélection d'une plage de cellule celle ci peut changer au fil de l'eau et l'exporter au format image JPG gif ou autre et même html dans le répertoire images mais comment faire mon code pour la sélection 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
