Insertion auto de photos Fermé

Question

Bonjour, 


J'aimerais savoir si il est possible de créer une macro pour insérer des photos se trouvant dans un dossier en face des cellules contenant les mêmes noms que les photos.

Une espèce de recherche V pour photo finalement.

Pour le moment j'ai une macro qui insère les photos en masse en fonction de l'ordre des photos dans le dossier. Mais je suis assez limitée.

Merci d'avance pour votre aide :)

WeaponEDGE · Answer

Bonjour,

C'est possible mais il faut que la cellule de destination fasse la même taille que l'image qui est inséré sinon sa rognera forcément sur les lignes en dessous.

CaroleDia · Answer

Bonjour, 

Merci pour ta réponse, pour ce qui est du souci de taille de cellule ce n'est pas un problème puisque je les redimensionne par script sur photoshop

Et du coup quelle serait la formule magique pour que ça fonctionne ?

:)

eriiic · Answer

Bonjour,

tu devrais trouver ton bonheur sur l'excellent site de j. boisgontier :
http://boisgontierjacques.free.fr/pages_site/lesimages.htm 
Si tu peux privilégie plutôt les solutions où les images restent externes au fichier, à moins que l'ensemble ne soit pas trop lourd.
 
eric

WeaponEDGE · Answer

Re Bonjour,

Comme promis voici le code :

Sub ID_List()
    Chemin = "C:\Repertoire\"
    Nb_Ligne = Sheets(1).Cells(1000000, 1).End(xlUp).Row

    For i = 1 To Nb_Ligne
        Nom_Image = UCase(Sheets(1).Cells(i, 1)) & ".JPG"
        MyPath = Chemin
        MyName = Dir(MyPath, vbDirectory)
        Do While MyName <> ""
            If UCase(MyName) = Nom_Image Then
                Sheets(1).Cells(i, 2).Select
                ActiveSheet.Pictures.Insert(Chemin & Nom_Image).Select
                GoTo Suite
            End If
            MyName = Dir
        Loop
Suite:
    Next i
    
    MsgBox ("Les images sont chargés")
End Sub


Je t'es mis en gras les zones à changer pour les adapter à ton fichier :

Le chemin est le répertoire dans lequel sont stoqués te images
Le premier "1" en gras est la colonne ou se situes les titres de tes images
Le deuxième "1" en gras est la première ligne où se trouve un titre d'image
Le troisième "1" en gras est la colonne ou se situes les titres de tes images
Le JPG est l'extension de la photo (ssi tes images sont BMP par exemple il faudra le remplacer
Le "2" en gras est la colonne ou il va insérer l'image

A toi de moduler les données en gras en fonction de ton fichier.

Dernière Chose il faut que l'onglet soit en première position en partant de la gauche.

Si tu ne connais pas du tout le VBA dis le moi et je t'indiquerais comment insérer cette Macro dans ton fichier.


WeaponEDGE

Insertion auto de photos

4 réponses

Discussions similaires