Probleme de fonction...

Le
david anceau
Bonjour à tous,
J'ai créé une fonction qui récupère sur un serveur des images et le=
s
"colle" dans la feuille excel.
Sur excel 2007 cette fonction récupère correctement la photo, sur 2003
elle ne fonctionne pas (mais pas de message d'erreur)
J'ai besoin d'un peu d'aide.
voici le code :

Function insertion_image(codeart)

Dim url As String
Dim Rep As String
C = codeart


url = "\10.100.0.72mediathequeARTICLESJPG"

' Création du chemin du repertoire ou se trouve l'image
Rep = C / 1000
Rep = Int(Rep)
Rep = Rep * 1000

Rep = Format(Rep, "0000000")

url = url & Rep & "" & C & "_PRIN_200C.jpg"

Set P = ActiveSheet.Pictures.Insert(url) 'la fonction s'arrète à ce
niveau là dans 2003
Set P = Nothing
End Function


Merci d'vance pour votre aide précieuse.
David
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19371091
bonjour David,

il y a plusieurs méthode ici : http://excel.developpez.com/faq/?page=Image

isabelle

david anceau a écrit :
Bonjour à tous,
J'ai créé une fonction qui récupère sur un serveur des images et les
"colle" dans la feuille excel.
Sur excel 2007 cette fonction récupère correctement la photo, sur 2003
elle ne fonctionne pas (mais pas de message d'erreur...)
J'ai besoin d'un peu d'aide.
voici le code :

Function insertion_image(codeart)

Dim url As String
Dim Rep As String
C = codeart


url = "\10.100.0.72mediathequeARTICLESJPG"

' Création du chemin du repertoire ou se trouve l'image
Rep = C / 1000
Rep = Int(Rep)
Rep = Rep * 1000

Rep = Format(Rep, "0000000")

url = url & Rep & "" & C & "_PRIN_200C.jpg"

Set P = ActiveSheet.Pictures.Insert(url) 'la fonction s'arrète à ce
niveau là dans 2003
Set P = Nothing
End Function


Merci d'vance pour votre aide précieuse.
David



david anceau
Le #19372911
Merci Isabelle.

Le code fonctionnel pour 2003 est :

Function insertion_image(codeart)

Dim url As String
Dim Rep As String
Dim strImage As String
Dim Sh As Shape
C = codeart

url = "\10.100.0.72mediathequeARTICLESJPG"
Rep = C / 1000
Rep = Int(Rep)
Rep = Rep * 1000
Rep = Format(Rep, "0000000")
url = url & Rep & "" & C & "_PRIN_200C.jpg"
Set Sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 80, 80, 100,
100)
strImage = url
Sh.Fill.UserPicture strImage
ActiveCells.Value = ""
End Function
Publicité
Poster une réponse
Anonyme