Création d'une image sur une zone defini

Le 14/03/2015 à 09:04

Bonjour à tous!

Je souhaiterai un peu d'aide

J'ai un classeur excel avec plusieurs onglets j'aimerai faire une capture (image) sur deux onglets de mon classeur sur des zones défini

.Range("B1:L44")

et les copier à la racine d’où se trouve mon fichier excel.

Dans un second temp crééer une page HTML avec les deux images

j'ai trouve se code

SubSub CreateAccueil(FilePathName As String)
    Dim pathfile As String
    pathfile = FilePathName & "\Accueil.html"

    'mise à jour du chemin
    pathfile = Replace(pathfile, "http://", "\\")
    pathfile = Replace(pathfile, "/", "\")

    Open pathfile For Output As #1
    Print #1, "<html>"
    Print #1, vbLf
    Print #1, "<img src=""photo.jpg"" width=800 height=500 alt=""lien sous photo"" >"
    Print #1, vbLf
    Print #1, "</html>"
    Print #1, vbLf
    Close #1

End Sub

par contre sur ce code j'aimerai associer un lien hypertexte.

Merci d'avance

Le 15/03/2015 à 18:26

Bonsoir le Forum Excel Pratique,

Pas si simple comme sujet? ou il n'y a pas de solution....

encore merci à tous

Le 16/03/2015 à 20:27

Bonjour,

pour la capture il y en a, suffit juste de commencer par une recherche sur le forum ou encore via un quelconque moteur ‼

Voir par exemple du côté de CopyPicture , ChartObjects , Export , …

Le 17/03/2015 à 19:51

Bonsoir Marc ainsi qu'au forum,

Je trouvé un bout de code, mais j'ai encore quelques problème :

1/ la capture est en faible résolution !

2/ est-il possible de générer deux captures de la feuil2, Feuil5 en même temps ?

3/ comment faire pour effectuer la macro automatiquement lors de la sauvegarde ? (sans devoir faire exécuter la macro)

Sub jpeg()
    With Feuil2
        .Range("B1:L44").CopyPicture
    With .ChartObjects.Add(Left:=100, Width:=100, Top:=100, Height:=100).Chart
        .Paste
        .Export ThisWorkbook.Path & "\image.jpg", "JPG"
    End With
        .ChartObjects(Feuil2.ChartObjects.Count).Delete
    End With
End Sub

Merci bonne soirée

Le 17/03/2015 à 19:57

1/ ???

2/ Oui, l'une après l'autre …

3/ Dans le module du classeur ThisWorkbook via son évènement Workbook_BeforeSave …

Le 18/03/2015 à 07:52

Bonjour à tous,

pour mon point n°1 j'ai pas très bien compris comment la capture s’effectue?

        .Range("B1:L44").CopyPicture
    With .ChartObjects.Add(Left:=100, Width:=100, Top:=100, Height:=100).Chart

J'ai bien défini une zone de sélection

par contre sur (Left Width Height) comment dire une capture grand format ?

Merci

Le 29/03/2015 à 20:03

Bonsoir le forum,

Pas de réponse à ma question ?

Merci à vous

Le 08/04/2015 à 18:38

Bonsoir le forum personne pour m'aider?