Je n'ai jamais écrit ça:
Private Sub CommandButton1_Click()
Me.Image1.Picture = LoadPicture("https://www.google.fr/images/srpr/logo11w.png")
End Sub
Je n'aime pas la malhonnêteté.
Mon programme a été testé en Excel 2002 et Excel2010
Boisgontier!
Version imprimable
Je n'ai jamais écrit ça:
Private Sub CommandButton1_Click()
Me.Image1.Picture = LoadPicture("https://www.google.fr/images/srpr/logo11w.png")
End Sub
Je n'aime pas la malhonnêteté.
Mon programme a été testé en Excel 2002 et Excel2010
Boisgontier!
re
jacques je ne vois pas de raison de dire ce qui ne serait pas
preuve capture c'est bien ton premier fichier non?
Pièce jointe 310135
Bon après de multiple essais suite à vos réponses, je n'arrive pas a charger l'image souhaité.
J'ai essayé les différentes méthodes proposées.
je dois passer à coter de quelques choses, mais je ne vois pas.
De plus je ne sais pas si cela à une influence mais le chemin d'accès vient d'un site intranet (entreprise).
Pièce jointe 310136
Je vous remet le fichier en question, si une ame charitable pouvez modifier mon code afin d'y intégrer une de vos propositions. Cela m'évitera certainement une nuit blanche :?:?
si ca intéresse quelqu'un voil 36 manière d'y arriver sur un userform
https://www.developpez.net/forums/d1...?highlight=ico
jacques si cela t'interesse voila coment je telecharge une image (sauf png) et la met dans un control image
pour le intranet il te faut être connecté a ce réseau si tu est chez toi tu risque pas d'y arriver a moins qu'une connexion externe y ai été paramétréeCode:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Private Sub CommandButton1_Click() With Image1 CHEMIN = ThisWorkbook.Path & "\imagetemp.jpg" .Picture = LoadPicture(Image_par_UrL("http://www.voirlemonde.com/img/paques.jpg")) End With Kill ThisWorkbook.Path & "\imagetemp.jpg" End Sub ' ' Function Image_par_UrL(url As String, CHEMIN) As String Dim CHEMIN As String Dim ReQ As Object, oStream As Object On Error Resume Next 'On ne gère pas les erreurs Set ReQ = CreateObject("Microsoft.XMLHTTP") ReQ.Open "get", url, False: ReQ.send Set oStream = CreateObject("ADODB.Stream") oStream.Open: oStream.Type = 1: oStream.Write ReQ.responsebody: oStream.SaveToFile CHEMIN: oStream.Close Image_par_UrL = CHEMIN Set oStream = Nothing: Set ReQ = Nothing End Function
Bonjour Patrick,
Merci pour ton aide précieuse, je suis désolé de ne pas avoir donner suite à vos réponse mais je ne pouvais pas avant ce jour.
Concernant le problème pour afficher une image venant d'internet, j'ai commencé à regarder de plus prés vos solutions.
Pour le problème de multicolones dans la listbox, ta solution répond à mes attentes, seulement maintenant si je me retrouve avec plus de deux lignes ma listbox, je n'arrive plus a faire le double clic sur la ligne voulu.
En effet le doubleclic ne fonctionne que sur la première ligne....
J'ai regardé dans les preopriétés mais je ne vois rien qui pourrait m'aider.
Pièce jointe 311105