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.

 

[aero60]

Re : ActiveChart.Export Filename

Bonjour,
Je pense avoir trouvé la solution à ce problème en tous cas chez moi je n'est plus cette erreur.
ATTENTION à TOUS[/COLOR] 😡 il existe des problème entre excel 2003 et owc11 pour que tous soit fonctionnelle veiller à telécharger la dernière version de owc11.
lien: Détails du téléchargement : Complément d'Office 2003 : composants Web Office
Même si le fil est un peut vieux je pense que cela pourra bien aider quelqu'un
Cordialement
Aero60