XL 2019 Importer des images

Tsimbina

XLDnaute Junior
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 ?
 
Dernière édition:
Solution
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...

Phil69970

XLDnaute Barbatruc
Bonjour @Tsimbina

Relire la charte § 1.3

Existe-t-il déjà un fichier Excel, partagé sur ce forum,
Et bien tu peux chercher plutôt que nous demander de chercher pour toi !!! 🤔 :oops:

1725613600140.png


Bonne lecture
 

Tsimbina

XLDnaute Junior
Bonjour à tous,
Je vais reformuler ma demande alors.
Quelqu'un peut m'aidé ou me proposé un fichier Excel 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. Merci d'avance!
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour @Phil69970

Je suis en mode bisounours aujourd'hui ;)

Quand je parlais de Ressources, il fallait lire Téléchargements

Un exemple (fourni par @sousou )

Voilà, maintenant, tu as de quoi faire, @Tsimbina
 

Staple1600

XLDnaute Barbatruc
Re

@Tsimbina
Pour interagir avec l'auteur du classeur, il y a un endroit dédié

En attendant une réponse de @sousou, je regarde si le même bug se produit sur mon PC.
 

Discussions similaires

Réponses
1
Affichages
387
Compte Supprimé 979
C

Membres actuellement en ligne

Statistiques des forums

Discussions
313 929
Messages
2 103 635
Membres
108 741
dernier inscrit
adel_benammar