Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 chart Object erreur

tarik.malah

XLDnaute Nouveau
bonjours tout le monde
je veux appeler un graphique dans un user forme
j'ai écrit le code dans un module
mais la ligne en gras marque erreur
merci en avance

Sub graphique()

Dim frm1 As String
Dim chrt As Chart

Set chrt = Feuil13.ChartObjects(2).Chart

chrt.Parent.Height = UserForm4.MultiPage1.Image1.Height
chrt.Parent.Width = UserForm4.MultiPage1.Image1.Width
frm1 = ThisWorkbook.Path & ".gif"
chrt.Export Filename:=frm1
UserForm4.MultiPage1.Image1.Picture = LoadPicture("frm1")
End Sub
 

Oneida

XLDnaute Impliqué
Bonjour,

jm.andryszak ca roule?​

tarik.malah:
votre code modifie:

VB:
Sub graphique()
    Dim frm1 As String
    Dim chrt As Chart
    
    Set chrt = Feuil13.ChartObjects(1).Chart
    chrt.Parent.Height = UserForm4.Image1.Height
    chrt.Parent.Width = UserForm4.Image1.Width
    frm1 = ThisWorkbook.Path & "\dfghjkl.gif"             'mettre le nom de votre fichier
    chrt.Export Filename:=frm1
    UserForm4.Image1.Picture = LoadPicture(frm1)        'variable chemin et nom de fichier, pas du texte
End Sub
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…