Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Importer une image d'un site Web

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour,

J'ai une question, est-il possible d'importer une image d'un site Web dans contrôle image se trouvant sur un Usf.

Je vous remercie d'avance
 
Trier par date Trier par votes
Re : Importer une image d'un site Web

Re,

@job

chemin = ThisWorkbook.Path

Image1.Picture = LoadPicture(chemin & "\MonImage.jpg")

D'après ces lignes, il ne doit pas seulement copier mais aussi enregistrer-sous non?



A+ 😎
 
Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Re,

J'ai compris, il faut sélectionner la Shape :

Code: 
Private Sub CommandButton3_Click()
Dim chemin$, w, h
chemin = ThisWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 's'il n'y a rien dans le presse-papiers
Image1.Picture = LoadPicture("") 'RAZ
With Sheets.Add 'nouvelle feuille
  .Paste
  .Shapes(1).Select
  If TypeName(Selection) <> "Range" Then
    w = Selection.Width: h = Selection.Height
    With .ChartObjects.Add(0, 0, w, h).Chart
      .Paste
      .Export chemin & "\MonImage.jpg", "JPG"
    End With
    Image1.Picture = LoadPicture(chemin & "\MonImage.jpg")
    Kill chemin & "\MonImage.jpg"
  End If
  .Delete 'suppression de la nouvelle feuille
End With
[A1].Copy [A1] 'facultatif, vide le presse-papiers
Application.ScreenUpdating = True
End Sub
Edit : Selection.Delete inutile...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Re,

Pour peaufiner on peut ajuster la hauteur du contrôle Image :

Code: 
Private Sub CommandButton3_Click()
Dim chemin$, w, h
chemin = ThisWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 's'il n'y a rien dans le presse-papiers
Image1.Picture = LoadPicture("") 'RAZ
With Sheets.Add 'nouvelle feuille
  .Paste
  .Shapes(1).Select
  If TypeName(Selection) <> "Range" Then
    w = Selection.Width: h = Selection.Height
    With .ChartObjects.Add(0, 0, w, h).Chart
      .Paste
      .Export chemin & "\MonImage.jpg", "JPG"
    End With
    Image1.Height = Image1.Width * h / w
    Image1.Picture = LoadPicture(chemin & "\MonImage.jpg")
    Kill chemin & "\MonImage.jpg"
  End If
  .Delete 'suppression de la nouvelle feuille
End With
[A1].Copy [A1] 'facultatif, vide le presse-papiers
Application.ScreenUpdating = True
End Sub
Edit : avec la propriété PictureSizeMode à 3 (Zoom) l'image remplit tout le contrôle.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Bonjour,

Suite au code réaliser par Job75 que je salut et remercie encore, j’aimerais si possible après avoir récupérer mon image sur mon Usf pouvoir à l’aide d’un bouton envoyer cette image en Jpg dans un dossier Ex : C:\Image en prenant le nom qui se trouve dans le textbox.

Je joint mon fichier pour modèle

Je vous remercie d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Re,

J'ai essayé se code sur un bouton mais apparemment sa ne fonctionne pas.

Code: 
SavePicture UserForm1.Image1.Picture, "C:\Users\Max\Desktop\ESSAIS.Gif"

Bonne soirée
 
Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Bonjour maval, le fil,

La TextBox est bien inutile puisque le nom est affiché par la ComboBox.

Et le 2ème bouton aussi, utiliser simplement la macro que j'ai donnée sans "tuer" le fichier JPEG :

Code: 
Private Sub CommandButton3_Click()
Dim chemin$, w, h
 chemin = "C:\Image\"
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 On Error Resume Next 's'il n'y a rien dans le presse-papiers
 Image1.Picture = LoadPicture("") 'RAZ
 With Sheets.Add 'nouvelle feuille
   .Paste
   .Shapes(1).Select
   If TypeName(Selection) <> "Range" Then
     w = Selection.Width: h = Selection.Height
     With .ChartObjects.Add(0, 0, w, h).Chart
       .Paste
       .Export chemin & ComboBox1 & ".jpg", "JPG"
     End With
     Image1.Height = Image1.Width * h / w
     Image1.Picture = LoadPicture(chemin & ComboBox1 & ".jpg")
   End If
   .Delete 'suppression de la nouvelle feuille
 End With
 [A1].Copy [A1] 'facultatif, vide le presse-papiers
 Application.ScreenUpdating = True
 End Sub
A+
 
Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Bonjour Job

Je vous remercie encore, je voudrais finaliser mon Usf.
J'ai ajouter deux CheckBox a mon formulaire pour envoyer les photos dans les sous dossiers "Acteurs ou Réalisateurs"
C:\Film\Acteurs ou C:\Film\Réalisateurs en cochant la ou les checkBox car un acteur peut être aussi réalisateur. J'ai chercher sur la toile un code qui me permettrez d'ajouter cette fonction a votre code sans succès.
Je joint mon fichier et si vous avez le temps et l'envie de jeter un œil
Je vous en remercie d'avance et vous souhaite une bonne journée
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Bonjour maval, le forum,

Sur la toile pour si peu ?? Ce n'est quand même pas bien sorcier :

Code: 
Private Sub CommandButton3_Click()
 Dim chemin1$, chemin2$, w, h
  chemin1 = "C:\Film\Acteurs\"
  chemin2 = "C:\Film\Réalisateurs\"
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  On Error Resume Next 's'il n'y a rien dans le presse-papiers
  Image1.Picture = LoadPicture("") 'RAZ
  With Sheets.Add 'nouvelle feuille
    .Paste
    .Shapes(1).Select
    If TypeName(Selection) <> "Range" Then
      w = Selection.Width: h = Selection.Height
      Image1.Height = Image1.Width * h / w
      With .ChartObjects.Add(0, 0, w, h).Chart
        .Paste
        If CheckBox1 Then .Export chemin1 & ComboBox1 & ".jpg", "JPG": _
          Image1.Picture = LoadPicture(chemin1 & ComboBox1 & ".jpg")
        If CheckBox2 Then .Export chemin2 & ComboBox1 & ".jpg", "JPG": _
          Image1.Picture = LoadPicture(chemin2 & ComboBox1 & ".jpg")
      End With
    End If
    .Delete 'suppression de la nouvelle feuille
  End With
  [A1].Copy [A1] 'facultatif, vide le presse-papiers
  Application.ScreenUpdating = True
End Sub
Cela dit je n'ai pas testé.

Edit : coquille, j'avais oublié un slash...

Bonne journée.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Importer une image d'un site Web

Bonjour Job

Et merci beaucoup de votre aide, j'ai un petit souci: j'ai un dossier nommé Film a l'intérieur un sous dossier nommé" Acteurs et un Réalisateurs" et quand j'enregistre la photo vas uniquement dans le dossier Film non pas dans le sous dossier approprier.
Et il enregistre comme ceci "ActeursAlain Delon RéalisateursAki Aleong"

Merci et bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Afficher Masquer des images en boucle
Réponses
3
Affichages
151
pat66
P
  • Question Question
Microsoft 365 Classeur xlsm en partage
Réponses
4
Affichages
198
JJ68
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
816
Marc Vanlindt
M
J
  • Question Question
Microsoft 365 userform avec contrôle image
Réponses
12
Affichages
350
JULLIEN Philippe
J
  • Résolu(e)
Microsoft 365 Zoom sur image
Réponses
3
Affichages
205
Electron24
  • Question Question
XL pour MAC Graphique évolutif
Réponses
0
Affichages
156
Nono1835
P
  • Question Question
XL 2019 importation Web avec connexion
Réponses
8
Affichages
241
Phio79
P
  • Question Question
Microsoft 365 Bloccage Excel
Réponses
1
Affichages
330
wDog66
  • Résolu(e)
XL 2016 VBA - Réduire la largeur de la grille Excel
19 20 21
Réponses
314
Affichages
4 K
nullosse
N
T
  • Résolu(e)
XL 2019 Importer des images
2
Réponses
23
Affichages
1 K
Tsimbina
T
V
  • Question Question
XL 2021 Import web avec filtre dynamique
Réponses
9
Affichages
498
vmax67
V
  • Question Question
Autres Problème sur mon fichier excel
2
Réponses
21
Affichages
471
Usine à gaz
  • Question Question
Microsoft 365 déplacer lien hypertexte
Réponses
2
Affichages
280
philsogood
  • Résolu(e)
XL 2016 contrôle image
Réponses
14
Affichages
541
patricktoulon
E
  • Résolu(e)
Microsoft 365 cette image est trop grande et va être tronquée ouverture fichier excel avec macro
Réponses
3
Affichages
269
eric123
E
  • Résolu(e)
XL 2016 Impossible d'insérer un contrôle activeX Web Browser dans feuille Excel sous Windows 11
Réponses
6
Affichages
222
patricktoulon
J
  • Question Question
XL 2021 Copier Coller données numériques page WEB
Réponses
1
Affichages
127
Jul1en
J
N
  • Question Question
Power Query Comment changer la source d'un requête WEB ?
Réponses
3
Affichages
353
chris
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
291
Redba13
R
R
  • Question Question
Microsoft 365 Afficher PDF dans un Web Browser
Réponses
8
Affichages
891
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…