XL 2016 chart Object erreur

[tarik.malah]

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]

Bonjour,

la ligne en gras marque erreur
Laquelle?

 

[tarik.malah]

quand j'exécute le module
le résultat est :

 

[Oneida]

Bonjour,
Ok, mais est ce que vous avez un message d'erreur dans une boite dialogue VBA ou Excel?
A defaut mettez votre fichier a dispo

 

[tarik.malah]

Bonjour,
Ok, mais est ce que vous avez un message d'erreur dans une boite dialogue VBA ou Excel?
A defaut mettez votre fichier a dispo

non

 

[Oneida]

Bonjour,

Mettez votre fichier a disopsition

 

[tarik.malah]

le voila
le code est dans le module
merci pour vous

 

[jm.andryszak]

Bonjour
A tester
Un conseil, mettez option explicit en début des modules pour corriger les erreurs de code.

 

[Oneida]

Bonjour,

jm.andryszak ca roule?​

tarik.malah:
votre code modifie:

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

 

[jm.andryszak]

Bonjour
J'at fait une erreur
Il faut remplacer :
chrt.Parent.Height = UserForm4.Height
par :
chrt.Parent.Height = UserForm4.Image1.Height
Sinon nous avons le même code, sauf que je n'utilise pas la variable frm1

 

[tarik.malah]

Bonjour
A tester
Un conseil, mettez option explicit en début des modules pour corriger les erreurs de code.

merci ça marche bien