Insérer image dans userform
valouchka62
-
Zoul67 Messages postés 2001 Statut Membre -
Zoul67 Messages postés 2001 Statut Membre -
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
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
A voir également:
- Insérer image dans userform
- Insérer vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Insérer une image dans word sans bouger le texte - Guide
- Insérer liste déroulante excel - Guide
- Insérer sommaire word - Guide
2 réponses
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+
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+
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 !
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 !
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 :
A+
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 = Falseje 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
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
A+
