Discussion :

[stanley830]

Bonjour
Suite a une discutions avec mon petit fils
Souci pour incérer image dans cellule
Merci.

https://www.cjoint.com/c/MAdmZbVDdi8

[hyperion13]

Salut
C'est un fichier Calc *.ods d'OpenOffice !
Avez-vous au moins Excel ? Si Non, rapprochez-vous d'un forum OpenOffice.
Sinon dans un module standard

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
24
25
26
Sub SelectCell()
Dim rng As Range
Dim strFilePath As Variant
Dim photo As Picture
 
On Error Resume Next
 
Set rng = Application.InputBox("Sélectionnez une cellule svp ! ", "Selection d'une cellule", , , , , , 8)
On Error GoTo 0
 
If rng Is Nothing Then Exit Sub
 
strFilePath = Application.GetOpenFilename(Title:="Selectionnez la photo à insérer")
On Error GoTo 0
 
If strFilePath = False Then Exit Sub
 
Set photo = ActiveSheet.Pictures.Insert(strFilePath)
    With photo
       .Left = ActiveSheet.Range(rng.Address).Left
       .Top = ActiveSheet.Range(rng.Address).Top
       .Width = ActiveSheet.Range(rng.Address).Width
       .Height = ActiveSheet.Range(rng.Address).Height
       .Placement = 1
    End With
End Sub

[riton00]

Bonsoir,

Un essai sans VBA fichier .xlsx

https://www.cjoint.com/c/MAdspD5EfUb

Slts