Problémé avec un code VBA

Question

Je vous joint le code en question le mot LoadPicture mon reconu

If Graph = 3 Then 'graph écart boule interprété

        Sheets("Feuil3").ChartObjects(1).Chart.Export fichier, "gif" 

        Me.Image3.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If

Answer 1

Quel est le texte exact du message d'erreur ? Et-ce que tu utilises une version 64 bits d'Office ? Est-ce que le code fonctionnait avec une version antérieure d'Excel ? Si oui est-ce que c'était une version 64 bits ?

Daniel

Answer 2

Bonjour,

Est-ce que tu veux dire que "LoadPicture" provoque une erreur de syntaxe ? Peux-tu poster la totalité de la macro ?

Cordialement.

Daniel

Answer 3

On trouve pas mal de problèmes semblables sur internet. Ca semble lié aux versions 64 bits. Je ne peux pas le tester moi-même. Quelle est la taille du fichier gif généré ?

Daniel

Answer 4

erreur 481

image incorrecte

les deux premier paragraphes fonctionne

le ficher fonctionnait sous excel 2007 en 32 bits

aujourd'hui je suis en 64 bits

merci

Answer 5

je te joint tout le code

Sub AffichageDesGraph(Graph)

Dim i%

For i = 1 To 6

If Graph = i Then 

    UserForm1.Controls("image" & i).Visible = True 

    Const fichier = "c:tempgraphique.gif" 

    If Graph = 1 Then 'graph nombre sortie boule 

        Sheets("Feuil4").ChartObjects(1).Chart.Export fichier, "gif" 

        Me.Image1.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If 

    If Graph = 2 Then 'graph nombre sortie étoile 

        Sheets("Feuil4").ChartObjects(2).Chart.Export fichier, "gif" 

        Me.Image2.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If 

    If Graph = 3 Then 'graph écart boule interprété 

        Sheets("Feuil3").ChartObjects(1).Chart.Export fichier, "gif" 

        Me.Image3.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If 

    If Graph = 4 Then 'graph écart étoile interprété 

        Sheets("Feuil3").ChartObjects(2).Chart.Export fichier, "gif" 

        Me.Image4.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If 

    If Graph = 5 Then 'graph écart réel boule 

        Sheets("Feuil3").ChartObjects(3).Chart.Export fichier, "gif" 

        Me.Image5.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If 

    If Graph = 6 Then 'graph écart réel étoile 

        Sheets("Feuil3").ChartObjects(4).Chart.Export fichier, "gif" 

        Me.Image6.Picture = LoadPicture("c:tempgraphique.gif") 

        Sheets("Feuil1").Select 

    End If 

ElseIf Graph <> i Then 

    UserForm1.Controls("image" & i).Visible = False 

End If 

Next i

End Sub