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

 

[patricktoulon]

ben ca prends a peine un peu plus que le même texte dans une fichier text
il arrive meme parfois que le fichier grossi simplement en l'ouvrant et en l'enregistrant sans avoir rien changé
c'est du au fait que quand des erreurs se produisent le xml du fichier est faussé
je parlerais pas des shapes ,images ,querytable des feuilles etc....

perso pour moi
au delà de 5/10 méga ( et encore je suis généreux) un fichier excel étant l'applicatif est forcement de mauvaise conception
excel est un tableur ,toute option qui ne soit pas d'ordre calcul ou tableau doit être dynamique

 

[soan]

@Etoto (réponse à ton post #28)

un code VBA, ce n'est que du texte brut (c'est-à-dire sans aucune mise en forme comme c'est le cas dans un fichier Word) ➯ en taille, ça prend la même place que ce même texte s'il est placé dans un simple fichier .txt ; pour ce qui est de le comparer à la taille des données : ça dépend de la taille de ces données et de la taille du code VBA.​

soan

 

[Etoto]

ben ca prends a peine un peu plus que le même texte dans une fichier text
il arrive meme parfois que le fichier grossi simplement en l'ouvrant et en l'enregistrant sans avoir rien changé
c'est du au fait que quand des erreurs se produisent le xml du fichier est faussé
je parlerais pas des shapes ,images ,querytable des feuilles etc....

perso pour moi
au delà de 5/10 méga ( et encore je suis généreux) un fichier excel étant l'applicatif est forcement de mauvaise conception
excel est un tableur ,toute option qui ne soit pas d'ordre calcul ou tableau doit être dynamique

Ok, très intéressant, merci de votre aide à vous deux.

 

[Etoto]

Ok, très intéressant, merci de votre aide à vous deux.

Par hasard, @claude.bonato0 les codes fonctionnent désormais ou pas ?

 

[soan]

@Etoto

je crois que tu as zappé mon post #32 ; je répondais à ton post #28.

j'ajoute que par « mise en forme », je voulais parler de gras, italique, souligné, listes à puces, tabulations, retraits de paragraphes, etc... ; tout ça existe dans un .docx mais pas dans un .txt ; ni dans un code VBA !​

soan

 

[Bernard_XLD]

à 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.

re,

aussi, des MFC mal conçues sur un grand nombre de lignes peuvent faire grossir un fichier de façon phénoménale.

Bien cordialement, @+

 

[Etoto]

re,

aussi, des MFC mal conçues sur un grand nombre de lignes peuvent faire grossir un fichier de façon phénoménale.

Bien cordialement, @+

D'accord merci.

 

[claude.bonato0]

Par hasard, @claude.bonato0 les codes fonctionnent désormais ou pas ?

 

[Etoto]

Cela veut dire quoi ?

 

[claude.bonato0]

Cela veut dire quoi ?

de quoi tu parle

 

[Etoto]

de quoi tu parle

Ton message #38 il est vide.

 

[claude.bonato0]

de qu'elle codes vous parler
merci

 

[Etoto]

de qu'elle codes vous parler
merci

Ceux que nous t'avons donné.

 

[claude.bonato0]

bonjour
je viens de copier le nouveau code
la fonction
Sub AffichageDesGraph()
mot ambigu

 

[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 j' ait tester cela ne fonctionne pas merci quand meme