Convertir plage cellule en image pour courriel

Bonjour,

Pour convertir une plage de cellules en image dans Excel VBA, vous pouvez utiliser la méthode ExportAsFixedFormat pour exporter la plage sélectionnée en tant que fichier image. Voici comment vous pouvez le faire dans votre code :

Sub EnvoyerEmail()

    Dim réponse As Integer
    réponse = MsgBox("Est-ce que votre application Outlook est ouverte?", vbYesNo, "Attention!")
    
    If réponse = vbNo Then
        MsgBox ("Vous devez ouvrir votre application pour continuer")
        Exit Sub
    End If
            
    Dim oOutlook As Object
    Set oOutlook = CreateObject("Outlook.Application")
    
    Dim oMail As Object
    Set oMail = oOutlook.CreateItem(0)
    
    With oMail
        Dim oObjetword As Object
        Set oObjetword = .GetInspector.WordEditor
        .To = ""
        .Subject = "Voici votre HORAIRE 2024-2025 : " & Range("B6").Value & " - " & Range("C6")
        .Body = ""
        ' Exporter la plage de cellules en tant qu'image
        ActiveSheet.Range("A1:O12").ExportAsFixedFormat Type:=xlTypePicture, Filename:="C:\Temp\Plage_Cellules.png", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        ' Insérer l'image dans le courriel
        oObjetword.InlineShapes.AddPicture "C:\Temp\Plage_Cellules.png", LinkToFile:=False, SaveWithDocument:=True
        ' Afficher le courriel
        .Display
    End With
    
    Application.CutCopyMode = False
    Range("D6").Select

End Sub
 

Dans ce code, la plage de cellules sélectionnée est exportée en tant qu'image au format PNG dans le répertoire C:\Temp\ avec le nom de fichier Plage_Cellules.png. Ensuite, l'image est insérée dans le corps du courriel à l'aide de la méthode InlineShapes.AddPicture. Assurez-vous de spécifier le chemin d'accès correct pour l'exportation de l'image. Une fois le courriel affiché, l'image sera visible dans le corps du courriel.

En espérant vous apporter la solution. Ca devrait fonctionner.