Microsoft 365 code VBA incorrecte

claude.bonato0 · 4 Juin 2021

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

VB:

 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 · 7 Juin 2021

Bonjour
je vous joint le fichier

Etoto · 7 Juin 2021

claude.bonato0 à dit:
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 · 7 Juin 2021

re
oais!!! on attend

claude.bonato0 · 7 Juin 2021

patricktoulon à dit:

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

VB:

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 · 7 Juin 2021

claude.bonato0 à dit:
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 · 7 Juin 2021

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

Etoto · 7 Juin 2021

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

Des images ?

patricktoulon · 7 Juin 2021

re

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

Etoto · 7 Juin 2021

patricktoulon à dit:
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 · 7 Juin 2021

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

Etoto · 7 Juin 2021

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

1 ?? Je croyais 25, cela reste bizarre.

patricktoulon · 7 Juin 2021

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 · 7 Juin 2021

patricktoulon à dit:
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 · 7 Juin 2021

à 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 · 7 Juin 2021

soan à dit:
à 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 ?

Microsoft 365 code VBA incorrecte

claude.bonato0

XLDnaute Nouveau

claude.bonato0

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

claude.bonato0

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Discussions similaires