XL 2019 Importer des images

Staple1600 à dit:

RE

@Tsimbina
On va peut commencer par la base
Quel est ton niveau de maitrise du VBA ?

Cliquez pour agrandir...

Staple1600 à dit:

Re

@Tsimbina
Comme mon thé était trop chaud, je suis allé farfouillé dans mes archives
Voici un exemple basique qui importe les images contenues dans un dossier que l'on sélectionne au départ de la macro.

Code:

Sub Importer_IMAGES_depuis_Dossier()
Dim DLog As FileDialog, Dossier$, Fic$, IMG$, r%, x%, y%, w%, h%
Set DLog = Application.FileDialog(4)
If DLog.Show = -1 Then
    Dossier = DLog.SelectedItems(1) & "\"
    Fic = Dir(Dossier)
    Do While Fic <> ""
        r = r + 1
        Cells(r, 2).Value = Fic
        With Cells(r, 1)
            .RowHeight = 57
            x = .Left
            y = .Top
            w = .Width
            h = .Height
        End With
        IMG = Dossier & Fic
        ActiveSheet.Shapes.AddPicture IMG, 0, -1, x, y, w, h
        Fic = Dir
    Loop
End If
ActiveSheet.Cells(1).CurrentRegion.Columns.AutoFit
End Sub

NB: Test OK sur mon PC ( W10 + Office 365)

Cliquez pour agrandir...

Tsimbina à dit:

Re,

J'ai téléchargé le fichier, mais je rencontre un bug ci-dessous lorsque je l'ouvre.
Regarde la pièce jointe 1203101

Cliquez pour agrandir...

Staple1600 à dit:

Re

@sousou
[pour info]
Dans ton appli, j'avais dans les références de VBE
[X] MANQUANT : Microsoft Windows Common Controls-2 6.0 (SP6)
(Sans doute, parce que sous Office 64 bits)
J'ai décoché et j'ai mis en commentaires le code de l'userform : userrecherche
Ce faisant j'évite l'affichage de l'erreur indiquée par @Tsimbina

Tu fais référence à MSCOMCT2.OCX dans ton appli ?
[/pour info]

Cliquez pour agrandir...

Staple1600 à dit:

Re

@Tsimbina
Question subsidiaire:
Est-ce que tu as besoin que les images importées aient leur taille réelle dans Excel ?

Cliquez pour agrandir...