Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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...

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
439
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…