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