Erreur d'execution 481 image incorrecte, VBA

Bonjour le forum,

Excusez-moi de poster le sujet une deuxième fois mais ca fait quelques jours que je cherche une solution à mon problème sans succès. En fait, j'ai un userform dans lequel je voudrais afficher 5 graphiques, ces derniers se trouve dans la feuille "Qualité" de mon fichier Excel, pour cela j’utilise le code ci-dessous.

Alors après une quarantaine d'essais je me suis rendu compte que l'origine du problème est le "graphique 4" (en commentaire), dés que je l'active j'ai une erreur au niveau de la ligne en gras, quand je le mets en commentaire les quatre autres fonctionnent sans problèmes, ce que je trouve bizarre car c'est le même code pour tous.

Aidez-moi s'il vous plait car j'ai perdu beaucoup de temps sur ca.

Cordialement

ci-joint le fichier excel.

(Le code se trouve dans feuil1)

Set g = Sheets("Qualité").ChartObjects("Graphique 1").Chart

Fichier = ActiveWorkbook.Path & "\" & "graphe1.gif"

g.Export Filename:=Fichier, FilterName:="GIF"

Acceuil.Image1.Picture = LoadPicture(Fichier)

Set g = Sheets("Qualité").ChartObjects("Graphique 2").Chart

Fichier = ActiveWorkbook.Path & "\" & "graphe2.gif"

g.Export Filename:=Fichier, FilterName:="GIF"

Acceuil.Image2.Picture = LoadPicture(Fichier)

Set g = Sheets("Qualité").ChartObjects("Graphique 3").Chart

Fichier = ActiveWorkbook.Path & "\" & "graphe3.gif"

g.Export Filename:=Fichier, FilterName:="GIF"

Acceuil.Image3.Picture = LoadPicture(Fichier)

' Set g = Sheets("Qualité").ChartObjects("Graphique 4").Chart

' Fichier = ActiveWorkbook.Path & "\" & "graphe4.gif"

' g.Export Filename:=Fichier, FilterName:="GIF"

' Acceuil.Image4.Picture = LoadPicture(Fichier)

Set g = Sheets("Qualité").ChartObjects("Graphique 5").Chart

Fichier = ActiveWorkbook.Path & "\" & "graphe5.gif"

g.Export Filename:=Fichier, FilterName:="GIF"

Acceuil.Image5.Picture = LoadPicture(Fichier)

Bonjour,

On aurait tendance à croire le message : ton image graphe4.gif n'est pas correcte...

Renomme une copie de graphe3.gif en graphe4.gif et teste pour confirmer.

eric

eriiic a écrit :

Bonjour,

On aurait tendance à croire le message : ton image graphe4.gif n'est pas correcte...

Renomme une copie de graphe3.gif en graphe4.gif et teste pour confirmer.

eric

Bonjour eriic,

merci pour ta réponse rapide, effectivement quand je change le "graphique 4" avec le "graphique 3" ca marche.

Set g = Sheets("Qualité").ChartObjects("Graphique 3").Chart

Fichier = ActiveWorkbook.Path & "\" & "graphe4.gif"

g.Export Filename:=Fichier, FilterName:="GIF"

Acceuil.Image4.Picture = LoadPicture(Fichier)

mais je ne comprends pas l'origine de l'erreur, est ce que tu as une idée s'il te plait ?

Cordialement

Je ne te parlais pas de changer dans le code, mais de changer ton fichier graphe4.gif