Bonjour à tous.
Voici mon problème.
j'ai récuperé ce code pour faire afficher une image dans un USF suivant tel ou tel condition.
Sub DESSIN_ARVNST()
Const CHEMIN As String = "c:\tempo_pmo.jpg"
Dim SH As Shape
Dim CO As ChartObject
Set S = Sheets("DATA")
Set SH = S.Shapes("ARV_NST")
Set CO = S.ChartObjects.Add(SH.Left, SH.Top, SH.Width, SH.Height)
SH.Copy
With CO.Chart
.Paste
.Export Filename:=CHEMIN
End With
CO.Delete
CHOIX.ARV_DPT.Picture = LoadPicture(CHEMIN)
Kill CHEMIN
End sub
Mon probleme est le suivant.
En utilisant le code à mon domicile, aucun probleme mais en changeant de poste (travail) le code s'arrete sur :
.Export Filename:=CHEMIN
Avez vous une idée ? Peut etre quelque chose n'est pas activé sur le poste au travail ?
Merci d'avance pour votre aide
Slts
Guillaume
Voici mon problème.
j'ai récuperé ce code pour faire afficher une image dans un USF suivant tel ou tel condition.
Sub DESSIN_ARVNST()
Const CHEMIN As String = "c:\tempo_pmo.jpg"
Dim SH As Shape
Dim CO As ChartObject
Set S = Sheets("DATA")
Set SH = S.Shapes("ARV_NST")
Set CO = S.ChartObjects.Add(SH.Left, SH.Top, SH.Width, SH.Height)
SH.Copy
With CO.Chart
.Paste
.Export Filename:=CHEMIN
End With
CO.Delete
CHOIX.ARV_DPT.Picture = LoadPicture(CHEMIN)
Kill CHEMIN
End sub
Mon probleme est le suivant.
En utilisant le code à mon domicile, aucun probleme mais en changeant de poste (travail) le code s'arrete sur :
.Export Filename:=CHEMIN
Avez vous une idée ? Peut etre quelque chose n'est pas activé sur le poste au travail ?
Merci d'avance pour votre aide
Slts
Guillaume