Insérer image dans userform

valouchka62 -  
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Je bloque sur action que je souhaite faire sur Excel,

Je souhaite qu'un collègue à moi qui utilise mon fichier excel (mis en réseau), puisse cliquer sur un bouton qui lui ouvre l'explorateur windows afin qu'il puisse chercher un fichier (excel) sur son pc. Ensuite, après que le fichier soit sélectionné, je souhaite que le fichier soit converti en image pour qu'il s'enregistre dans un userform.

Ensuite, je souhaite créer un autre bouton qui permet d'afficher l'userform contenant l'image.

Ce que j'arrive à faire:
Créer le bouton, cliquer sur le bouton, choisir le fichier, convertir le fichier en image
Mon problème c'est que l'image apparaît dans la feuille du fichier excel et non dans l'userform

Voici la macro que j'ai crée :
Sub joindrefichier_click()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim L As Single, T As Single, W As Single, H As Single
Chemin = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls", Title:="Choisissez le fichier .xls à insérer")
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=True, Displayasicon:=False)
Sub End

Merci de votre aide

2 réponses

Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

Tu peux peut-être t'inspirer de ça : https://www.cjoint.com/c/CHcmhfqIpQl

NB : ce n'est pas moi qui ai fait ce fichier.

A+
0
valouchka62
 
Merci pour ta réponse,

Effectivement, j'ai continué à chercher le temps qu'on m'aide.

J'ai réussi à faire un userform avec un commandbutton et une image.
Dans le commandbutton j'ai mis :
Private Sub CommandButton1_Click()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String

UserDir = CurDir

TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg")
If TheFile = False Then ChDir UserDir: Exit Sub

With Me.Image1
.Picture = LoadPicture(TheFile)
.PictureSizeMode = fmPictureSizeModeZoom
End With

ChDir UserDir
End Sub

J'obtiens ce que je souhaiterais sauf qu'au lieu d'une image je souhaite mettre le fichier excel sous format image.

D'où mon problème !
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Re,

En utilisant ça, tu peux mettre un tableau, mais ça oblige à passer par des références et je ne sais pas si ça gère la lecture seule : https://stackoverflow.com/questions/13527540/how-to-display-part-of-excel-on-vba-form
En cherchant à utiliser le presse papier après les instructions :
    Application.CutCopyMode = False
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
je suis tombé sur https://www.developpez.net/forums/d258635/logiciels/microsoft-office/excel/macros-vba-excel/vba-e-exporter-plage-cellule-image-gif/ qui devrait résoudre ton problème

A+
0

Discussions similaires