Microsoft 365 code VBA incorrecte

[claude.bonato0]

Bonjour

J'ait un probléme de code vba qui fonctionnait avec excel 2007 seul 2 paragraphes fonctionnes il on tous le meme code seul le n° de paragraphe change
je ne comprend pas
merci à vous tous

 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

 

[claude.bonato0]

ce ficher viens de votre site je l'zit telegarger il y longtemp je ne vois pas ou est le probleme

 

[Etoto]

Je vois pas non plus sorry

 

[claude.bonato0]

je pense que la ily a un probleme

 

[Etoto]

En effets le fichier est trop gros pour le site donc on peux rien faire. Je suis désolé (mais je doit respecter la charte)

 

[claude.bonato0]

le fichier a deja ete modifier sur votre cite

 

[claude.bonato0]

🤣 🤣 Vives les fichiers !!

🤣 🤣 Vives les fichiers !!

fichier .xlsm