Erreur 13 incompatibilité de type

Bonjour,

J'ai une erreur de type dans un fichier au moment de faire apparaitre un graphique en image dans un userform.

Voici mon code. Pouvez-vous m'aider s'il vous plait?

'Graphique
   Dim Legraph As ChartObject
   Dim nomImage As String

   Set Legraph = Worksheets("Dynamique").ChartObjects("GrapheJoueur2").Chart
   nomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
   Legraph.Export Filename:=nomImage, FilterName:="GIF"
   Graphe_Joueurs.Image1.Picture = LoadPicture(nomImage)

Merci d'avance

Iron

Bonjour,

As-tu essayé de déclarer

Dim Legraph As Chart

Hello,

Quand j'essaie, ça me donne une nouvelle erreur : 481 image Image incorrect.

Re,

Est-ce-que l'erreur apparait exactement au même endroit qu'auparavant .... ou plus loin dans le code ... ?

Bien vu elle apparait sur la dernière ligne du code.

Une idée?

Iron ik a écrit :

Bien vu elle apparait sur la dernière ligne du code.

Une idée?

Ma mémoire me trahit ... mais je crois me souvenir que le format de l'image est déterminant dans un formulaire...

Il faudrait faire un test avec du jpeg ...

J'ai essayé ça mais à nouveau erreur 13 :

'Graphique
   Dim Legraph As ChartObject
   Dim nomImage As String

   Set Legraph = Worksheets("Dynamique").ChartObjects("GrapheJoueur2").Chart
   nomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.jpeg"
   Legraph.Export Filename:=nomImage, FilterName:="jpeg"
   Graphe_Joueurs.Image1.Picture = LoadPicture(nomImage)

Ca plante sur la ligne

 Set Legraph = Worksheets("Dynamique").ChartObjects("GrapheJoueur2").Chart

Re,

J'ai l'impression que tu as repris ChartObject au lieu de Chart ...

Me trompe-je ???

Ah oui désolé.

Du coup je reviens à l'erreur 481 qui intervient sur la dernière ligne.

Re,

Sincèrement debugger à distance ...sans le fichier ... c'est vraiment .... de la voyance ... et ma boule de cristal est justement en panne ...

Merci de joindre ton fichier ...

Le pb est dans l'userform "Graphe_Joueurs" zone Graphique.

Re,

Avant toute chose, je tiens à très sincèrement te féliciter pour le Superbe travail que tu as réalisé ... !!!

C'est vraiment très très impressionant ...

Pour revenir à ton problème, en ouvrant ta UserForm Graphe_Joueurs... aucun bug et le graphique apparait correctement ...

Est-ce-qu'il y a un épisode que j'ai râté ...???

Merci pour ton retour. Ca fait quelques semaines que je suis sur ce fichier et il a 1 belle tête maintenant. Mais c'est pas finit.

Moi j'ai toujours le PB 481. Par contre le fichier marchait sur un autre ordinateur: est-ce que ça peut venir de la version d'Excel? Je suis en 2010

Bonjour,

Je n'ai pas Excel 2010 ... mais je te propose de tester :

'Graphique
    Dim Legraph As Chart
   Dim nomImage As String

   Set Legraph = Worksheets("Dynamique").ChartObjects("GrapheJoueur2").Chart
   nomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.jpeg"
   Legraph.Export Filename:=nomImage, FilterName:="jpeg"
   Me.Image1.Picture = LoadPicture(nomImage)

Hello James007,

Ca ne marche pas non plus. 'ai toujours l'erreur 481.

Re,

Gros mystère ...

Ou alors, ton fichier se trouve directement sur C: ou sur D: ... et c'est ton Application.PathSeparator qui entraine le bug ...

Oui mon fichier est sur mon C. Je n'ai pas d'autre disque dur.

Re,

Je viens de refaire un test ... cà ne peut pas être ton Application.PathSeparator ... qui doit être \

Alors, encore une tentative sur le format :

'Graphique
    Dim Legraph As Chart
   Dim nomImage As String

   Set Legraph = Worksheets("Dynamique").ChartObjects("GrapheJoueur2").Chart
   nomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.bmp"
   Legraph.Export Filename:=nomImage, FilterName:="bmp"
   Me.Image1.Picture = LoadPicture(nomImage)

J'ai essayé un truc : j'ai changé le nom de mon graphique dans Excel ==> et ça marche!

Je ne comprends pas pourquoi mais bon...

En tout cas merci pour ta dispo James

Re,

J'ai l'impression de deviner maintenant ce qui s'est passé ...

Car tu as dû faire pas mal de tests ...!!!

Je te recommande d'aller voir sur C:\ .... et de correctement nettoyer tous tes fichiers images ... car il y avoir foule ...

Content que tu aies finalement trouvé la solution ...!!!