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
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