Graphique de Karasek

Alim@

XLDnaute Nouveau
Bonjour la communauté!
Alors je voudrais transformer en image le graphique de Karaseck que j'avais réussi à faire grace à votre aide précieuse.
Cependant en appliquant la formule-ci:
Sub SauveGIF ()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export FileName:=Fname, FilterName:="GIF"
End Sub

C'est sans succés. En effet une boite de dialogue Microsoft Visual Basic me dit: Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie

Dans l'attente de votre retour.
Merci et bien à vous!
 

Statistiques des forums

Discussions
312 216
Messages
2 086 350
Membres
103 194
dernier inscrit
rtison