Bonjour,

J'ai besoin d'une macro qui me permet d'importer une photo qui se situe sur une page web

J'ai cette macro pour un photo avec http:// en adresse

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub InsererImage()
 
 Dim Fichier As String
 Dim objImg As Object
 Dim Emplacement As Range
 
 
 
 Fichier = "http://www.xxxxx.jpg"
 Set objImg = ActiveSheet.Pictures.Insert(Fichier)
 
 Set Emplacement = Range("B3:E8")
 Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
 
 With objImg.ShapeRange
     .LockAspectRatio = msoFalse
     .Left = Emplacement.Left
     .Top = Emplacement.Top
     .Height = Emplacement.Height
     .Width = Emplacement.Width
 End With
 
 End sub
mais je voudrais la même avec ftp://

merci d'avance

cordialement

Thibaut