ActiveChart.Export Filename

[Atiom]

Bonsoir le forum

J’utilise les mêmes version Excel, à savoir la 10, sur deux PC différents, un à la maison et au autre au travail.

J’ai une UserForm que affiche un graphique, avec le code ci-dessous.
(Grand merci à pierrejean pour ce code )

Sub Graph(parc As Boolean, quantite As Boolean)
 For n = 1 To ActiveSheet.Shapes.Count
   ActiveSheet.Shapes(n).Delete
 Next n
If parc Then
    col = "C"
  Else
    col = "B"
End If
If quantite Then
 lab = xlDataLabelsShowValue
Else
 lab = xlDataLabelsShowPercent
End If
    Sheets("DETAIL_COMMANDES").Range(col & "10:" & col & Sheets("DETAIL_COMMANDES").Range("B65536").End(xlUp).Row).Copy Destination:=ActiveSheet.Range("A1")
    Sheets("DETAIL_COMMANDES").Range("F10:F" & Sheets("DETAIL_COMMANDES").Range("F65536").End(xlUp).Row).Copy Destination:=ActiveSheet.Range("B1")
    Call regroup
    derlin = ActiveSheet.Range("A65536").End(xlUp).Row
    Charts.Add
    ActiveChart.ChartType = xl3DPieExploded
    ActiveChart.SetSourceData Source:=Sheets("GRAPHIQUES").Range("A1:B" & derlin), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="GRAPHIQUES"
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Position = xlBottom
    ActiveChart.ApplyDataLabels Type:=lab, LegendKey:=False, HasLeaderLines:=True
    ActiveChart.PlotArea.ClearFormats
    ActiveChart.ChartTitle.Characters.Text = "Cde du " & Date & Chr(10) & " QUANTITÉ "
    fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
    ActiveChart.Export Filename:=fichier, FilterName:="GIF"
End Sub

Mon problème est que dans un PC tout fonctionne correctement et dans un autre j’ai une erreur dans la dernière ligne :

Et évidement mon graphique ne s’affiche pas.

Est-ce que quelqu’un à une idée d’où peu venir le problème ?

Merci d’avance.

 

[MichelXld]

Re : ActiveChart.Export Filename

bonjour

refait un essai en remplaçant

    fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
    ActiveChart.Export Filename:=fichier, FilterName:="GIF"

par

    fichier = ActiveWorkbook.Path & "\" & "graphe.bmp"
    ActiveChart.Export Filename:=fichier, FilterName:="BMP"

Sinon, est ce qu'une version d'essai d'Excel2007 aurait été sur ce poste?


bonne journée
michel

 

[Atiom]

Re : ActiveChart.Export Filename

Salut MichelXld

J’ai essayé mais j’obtiens toujours la même erreur :

Erreur d’exécution 1004
La méthode Export de l’objet _ Chart a échoué

Au débogage c’est la dernière ligne que vient en jaune.

Sinon, il n’a aucune version d'essai d'Excel2007 qui a été installé.

Et je viens de me rendre compte que la version Excel ou ça ne fonctionne pas est plus récente ( version 11 alors que dans l’autre pc avec la version 10 il n’ y a pas de problème)

 

[MichelXld]

Re : ActiveChart.Export Filename

bonsoir

je n'ai pas de solution à ton soucis.

ce lien pourra peut être t'aider:
Ce lien n'existe plus


bon week end
michel

 

[Atiom]

Re : ActiveChart.Export Filename

Bonjour
Merci Michel pour ce lien.

J’ai bien regardé toutes ces pages, j’ai même traduit pour être sûr de tout comprendre.
Mais je n’ai rien trouvé.

C’est vraiment une de ces choses que nos énerve à fond.

Il doit y avoir une raison, une configuration dans Excel ? ou dans Windows ?

Je ne sais pas s’il peu y avoir son importance mais le PC donc l’application ne fonctionne pas est avec Windows 2000 version Excel 11 et on est en réseau.

Et donc à la maison avec Windows XP et version Excel 10, pas de problème tout fonctionne correctement.

Je continue mes recherches et si je trouve la solution je vos dis, car je suis certain que je ne doit pas être le seule à y avoir de problèmes de ce genre

 

[Staple1600]

Re : ActiveChart.Export Filename

Bonjour à tous


Une piste peut-être

Il faut aussi que le filtre GIF soit installé
pour pouvoir exporter un seul graphique
dans un fichier GIF à l'aide de Microsoft Visual Basic pour Applications

Est-ce que les filtres graphiques sont installés sur le PC ou cela plante?

 

[Atiom]

Re : ActiveChart.Export Filename

Salut Staple1600

Oui les filtres graphiques sont installés sur le PC ou cela plante je vient de testé comme recommandé dans la page :

Pour tester un filtre graphique, procédez comme suit :

Créez une composition vierge qui ne doit pas être enregistrée.
Dans la barre d'outils Objets, cliquez sur Cadre de l'image , puis sur Image à partir d'un fichier.
Faites glisser la souris en diagonale jusqu'à ce que le cadre de l'image ait atteint la taille souhaitée.
Dans la boîte de dialogue Insérer une image, recherchez le dossier C:\Program Files\Common Files\Microsoft Shared\Grphflt.
Double-cliquez sur l'image pour le filtre que vous voulez tester, par exemple Ms.tif.

Si l'image de test est insérée correctement, il existe peut-être un problème lié à l'image que vous tentez d'insérer.

Si l'image de test n'est pas insérée correctement, il existe peut-être un problème lié au filtre graphique de ce format d'image.

Et les images au format Gif ou Jpeg sont inséres sans problème, donc le filtre est belle et bien installé.

Pour tester j’ai mis une image ( graphe.gif ) dans le même dossier que mon fichier Excel et j’ai constaté que ma macro efface l’image existante, par contre on n’y arrive pas à le générer ensuite.

Je continue mes recherches
Merci d’avance à tous ces que on une petite idée.

 

[Pierrot93]

Re : ActiveChart.Export Filename

Bonsoir Atiom, Jean-Marie, Michel🙂

essaye peut être en placant l'instruction dans un bloc "with", mais sans garantie.

fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
With ActiveChart
    .Export Filename:=fichier, FilterName:="GIF"
End With

bonne soirée
@+

 

[Atiom]

Re : ActiveChart.Export Filename

Salut Pierrot93

Non malheureusement il y quelque chose d’autre.
Ta proposition dans un bloc "with", fonctionne parfaitement dans mon PC.
Mais toujours pas dans le PC du boulot.
Toujours et encore ce foutu Erreur d’exécution 1004
La méthode Export de l’objet _ Chart a échoué

Merci Pierrot pour avoir essayer de trouver la solution🙂

 

[Atiom]

Re : ActiveChart.Export Filename

Bonjour le Forum

Je vous mets en pièce jointe l’application sous une forme allégée.

Je souhaiterait savoir d’une par, si quelqu’une d’autre obtient l’Erreur d’exécution 1004.
Histoire de me rassurer que je ne suis pas le seul à qui ça arrive.

Et d’autre part si on ne trouve pas la solution comment peut-on contourner le problème, cette à dire obtenir le même résultat sous une autre forme.

Mais franchement il doit bien avoir une raison, et ça serait bien de trouver pourquoi ça plante dans ce deuxième PC!

Merci d’avance à ces que trouvent la solution .

 

[Staple1600]

Re : ActiveChart.Export Filename

Bonjour


Test OK sur Excel 2000 SP3 / Windows XP

Le graphique s'affiche dans l'userform.

 

[Pierrot93]

Re : ActiveChart.Export Filename

Bonjour Atiom, jean-Marie

pas de problème également chez moi (excel2003), le graph est bien affiché dans l'usf avec export préalable dans le bon dossier. Par contre tu devrais peut être déclarer toutes tes variables de façon explicite en utilisant les bons types de données. L'erreur vient peut être de là, pas sur, mais bon, une piste.

bonne journée
@+

 

[Atiom]

Re : ActiveChart.Export Filename

Bonjour Jean-Marie et Pierreot

tu devrais peut être déclarer toutes tes variables de façon explicite en utilisant les bons types de données.

Cette à dire ?
Comme mes connaissances en VBA ne sont pas les meilleures et par crainte de provoquer d’autres erreurs, et sans vouloir trop demander, peux-tu remettre la pièce jointe avec ces corrections stp.

Je teste ensuite et te dis si c’est ça l’origine du problème.

Merci

 

[Pierrot93]

Re : ActiveChart.Export Filename

Re

ton fichier en pièce jointe avec les variables déclarées.

@+

 

[Atiom]

Re : ActiveChart.Export Filename

Merci Pierrot
Malheureusement j’ai toujours la même erreur.
Donc le problème ne vient pas des variables déclarées.

J’ai aussi testé
En modifient cette ligne:

fichier = ActiveWorkbook.Path & "\" & "graphe.gif"

en

Fichier= Nomdurepertoire & "\" & "graphe.gif"

Et toujours la même erreur.

Comme j’ai dis dans un poste précèdent, lorsque l’erreur vient et j’ai essayé de déboguer l’image graphe.gif est effacé, par contre on n' y arrive pas à l’exporter.

Comme l’il s’agit d’un ordinateur en réseau il est possible que les ordinateurs sont configurés pour refuser les fichiers susceptibles d'avoir des virus.

Donc on n’arrive pas à exporter l’image.

Simplement c’est une simple hypothèse, je ne suis pas sur.
Si c’est ça il n’y a rien à faire.

Mais comment être sur de l’origine de l’erreur ?