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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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