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]

Bonjour
je vous joint le fichier

 

[Etoto]

Bonjour
je vous joint le fichier

Heu y'a peut-être un bug, mais je ne vois aucun fichier dans ton message. S'il est trop massif places le dans un fichier ZIP et montre le nous.

 

[patricktoulon]

re
oais!!! on attend

 

[claude.bonato0]

re
bonjour
j'aurais fait un truc dans le genre perso

Function exportGraph(x As Long)
    Dim fichier$
    fichier = ThisWorkbook.Path
    Select Case x
    Case 1, 2: fichier = fichier & "\chart" & x & ".gif"
        Sheets("Feuil4").ChartObjects(x).Chart.Export fichier, "gif"

    Case 3, 4, 5, 6: fichier = fichier & "\chart" & x - 2 & ".gif"
        Sheets("Feuil3").ChartObjects(x - 2).Chart.Export fichier, "gif"
    End Select
    Do: Loop While Dir(fichier) = ""
    exportGraph = fichier
End Function


Sub AffichageDesGraph()
    Dim i%, fichier$
    For i = 1 To 6
        fichier = exportGraph(i)
        With UserForm1.Controls("image" & i)
            .Visible = True
            .Picture = LoadPicture(fichier)
            Sheets("Feuil1").Select
        End With
        Kill fichier
    Next i
End Sub

bien sur je peux pas tester et optimiser vu que tu persiste a n'envoyer que le code et non le fichier xl

bonjour je veut bien envoyer le fichier la page ne le prend pas trot volumineux
j'ai fait un zip toujour trot volumineux

 

[Etoto]

bonjour je veut bien envoyer le fichier la page ne le prend pas trot volumineux
j'ai fait un zip toujour trot volumineux

Mince ! Teste nos proposition de code si ça fonctionne et si c'est pas le cas essaie de le mettre sur Google Drive et de nous transmettre le lien.

 

[patricktoulon]

re
mais qu'est ce qui peut bien prendre autant de place dans un fichier xl

 

[Etoto]

re
mais qu'est ce qui peut bien prendre autant de place dans un fichier xl

Des images ?

 

[patricktoulon]

re

@Etoto
les images on les load ,on les garde pas dans le fichier surtout si il y en a beaucoup

 

[Etoto]

re

@Etoto
les images on les load ,on les garde pas dans le fichier surtout si il y en a beaucoup

Mais peut-être qu'il ne l'a pas fait. Mais c'est vrai que c'est bizarre qu'un fichier xl dépasse 25MO.

 

[soan]

rappel : taille maxi d'un fichier joint, zippé ou non : 1 Mo !

 

[Etoto]

rappel : taille maxi d'un fichier joint, zippé ou non : 1 Mo !

1 ?? Je croyais 25, cela reste bizarre.

 

[patricktoulon]

re
de toute façon un fichier xl de 25 Mo pour moi c'est impensable
on a là un exemple concret de très mauvaise conception
ça va pas aller bien loin tout ça
je dis ça moi j'dis rien

 

[Etoto]

re
de toute façon un fichier xl de 25 Mo pour moi c'est impensable
on a là un exemple concret de très mauvaise conception
ça va pas aller bien loin tout ça
je dis ça moi j'dis rien

Haha oui en effets et j'ai une question, le VBA cela prend plus de place dans le fichier que les données sur les feuilles de calcul ou pas ?

 

[soan]

à part les images, ce qui peut prendre beaucoup de place, c'est si y'a beaucoup de formes (Shapes) qui sont parfois présentes tout en étant non visibles ; autre possibilité : de très nombreuses lignes et colonnes vides en trop, sous le tableau ou à droite du tableau, et qui sont à supprimer.​

soan

 

[Etoto]

à part les images, ce qui peut prendre beaucoup de place, c'est si y'a beaucoup de formes (Shapes) qui sont parfois présentes tout en étant non visibles ; autre possibilités : de très nombreuses lignes et colonnes vides en trop, sous le tableau ou à droite du tableau, et qui sont à supprimer.​

soan

Y'a aussi tous les types de styles qui peux rendre un fichier massif, les requêtes, ça prend beaucoup de place ?