Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Probleme de fonction...

2 réponses
Avatar
david anceau
Bonjour =E0 tous,
J'ai cr=E9=E9 une fonction qui r=E9cup=E8re sur un serveur des images et le=
s
"colle" dans la feuille excel.
Sur excel 2007 cette fonction r=E9cup=E8re 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 =3D codeart


url =3D "\\10.100.0.72\mediatheque\ARTICLES\JPG\"

' Cr=E9ation du chemin du repertoire ou se trouve l'image
Rep =3D C / 1000
Rep =3D Int(Rep)
Rep =3D Rep * 1000

Rep =3D Format(Rep, "0000000")

url =3D url & Rep & "\" & C & "_PRIN_200C.jpg"

Set P =3D ActiveSheet.Pictures.Insert(url) 'la fonction s'arr=E8te =E0 ce
niveau l=E0 dans 2003
Set P =3D Nothing
End Function


Merci d'vance pour votre aide pr=E9cieuse.
David

2 réponses

Avatar
isabelle
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



Avatar
david anceau
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