XL 2019 Importer des images

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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...
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:
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
643
Réponses
1
Affichages
462
Compte Supprimé 979
C
Retour