Celeda
XLDnaute Barbatruc
Bonjour,
Pour afficher un graphique de la feuille AREA dans un userform déclenché par un bouton, j'ai récupéré une macro d'un xldnaute.
Private Sub UserForm_Activate()
Set CurrentChart = Sheets("AREA").ChartObjects(2).Chart
Fname = ThisWorkbook.Path & "C:\WINDOWS\Temp.gif"
CurrentChart.Export Filename:=Fname, filtername:="GIF"
Image1.Picture = LoadPicture(Fname)
End Sub
Cette macro marchait pile poil sur mon pc maison excel 2007.
Revenue à la triste réalité du boulot, sur mon pc bureau excel 2000, elle s'arrêtait sur :
Fname = ThisWorkbook.Path & "C:\WINDOWS\Temp.gif"
en modifiant le chemin C:\WINDOWS\Temp.gif, plus aucun problème sur cette ligne de code;
maintenant elle s'arrête sur
CurrentChart.Export Filename:=Fname, filtername:="GIF"
Pouvez-vous m'aider, svp, à comprendre pourquoi elle se bloque ???:confused:
Je vous remercie à l'avance de votre aide.
Pour afficher un graphique de la feuille AREA dans un userform déclenché par un bouton, j'ai récupéré une macro d'un xldnaute.
Private Sub UserForm_Activate()
Set CurrentChart = Sheets("AREA").ChartObjects(2).Chart
Fname = ThisWorkbook.Path & "C:\WINDOWS\Temp.gif"
CurrentChart.Export Filename:=Fname, filtername:="GIF"
Image1.Picture = LoadPicture(Fname)
End Sub
Cette macro marchait pile poil sur mon pc maison excel 2007.
Revenue à la triste réalité du boulot, sur mon pc bureau excel 2000, elle s'arrêtait sur :
Fname = ThisWorkbook.Path & "C:\WINDOWS\Temp.gif"
en modifiant le chemin C:\WINDOWS\Temp.gif, plus aucun problème sur cette ligne de code;
maintenant elle s'arrête sur
CurrentChart.Export Filename:=Fname, filtername:="GIF"
Pouvez-vous m'aider, svp, à comprendre pourquoi elle se bloque ???:confused:
Je vous remercie à l'avance de votre aide.