Bug suivant excel utilisé

[Guigui]

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

 

[Pierrot93]

Re : Bug suivant excel utilisé

Bonjour,

peut être que le chemin / fichier n'est pas présent sur la machine...

bonne journée
@+

 

[Guigui]

Re : Bug suivant excel utilisé

Re,

Ah oui !!! je ne pensais pas du tout que le c:/ à mon travail étais verouillé !!

Merci bien ! 😉

Guillaume