XL 2019 Importer des images

[Tsimbina]

Bonjour à tous,
Existe-t-il déjà un fichier Excel, partagé sur ce forum, qui permet d'importer des images depuis un dossier de l'ordinateur dans des cellules spécifiques, tout en extrayant le nom de chaque image pour l'afficher dans une autre colonne ?

 

[Staple1600]

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.

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)

 

[Tsimbina]

RE

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

RE,

Je suis en cours débutant en VBA.
Peut tu m'indiquer comment contacté sur l'auteur du classeur. Merci d'avance.

 

[Tsimbina]

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.

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)

Merci beaucoup pour ton aide!!!

 

[Staple1600]

Re

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

 

[sousou]

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

Faut voir dans les compléments

 

[Staple1600]

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]

 

[kiki29]

Salut, si curieux, à télécharger puis consulter/adapter à ton contexte : Liste Contributions PDF
y voir les posts# 210 211 entre autres.

 

[sousou]

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]

Effectivement j'utilise un calendar ' mscomct2', on peux modifier les deux textbox calendar avec autre chose
Je peux pas en ce moment,

 

[Tsimbina]

Re

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

Bonjour,

J'aimerai que les image importé suive le taille des cellule ou ils sont placé.
Si c'est possible.