Discussion :

[mkshan]

Bonjour,

J'ai un catalogue en Excel. L'original contient plus de 1400 photos en basse resolution et compressé en 96ppp.

Il y a beaucoup de photos et c'est long de les mettres a jours dans ce catalogue.

Est-ce qu'il y a un moyen d'ajouter une macro qui va aller chercher tous les photos dans un dossier et les importer automatiquement en les "resize" et "compresser" tout en respectant la disposition qu'elles doivent avoir?
Ex: Emplacement, noms, tailles, compressions... (Il y a une macro qui "resize" et met les photo dans l'onglet de présentation.)

Bref, besoin d'un expert qui peut comprendre mon fichier et faire a sorte que je puisse faire une mise a jour des photos facilement.

J'ai joint mon fichier "allégé et avec exemple"

le noms des photos est le numéro de produit.

EX: 40.jpg, 64.png

Le fomat des fichier est .jpg & .png

Merci!

[jurassic pork]

hello,

pour les fichiers .xlsm postés en pièces jointes voir ici : fichier-xlsm-piece-jointe et ici
Pour le premier message j'attends toujours une réponse d'un des modérateurs ou responsables du forum

Pour la macro, tu peux peut-être t'inspirer de ma macro chargeTrombinoscope et aussi de ce fil de discussion pour le placement et le centrage des photos.


Ami calmant, J.P

[mkshan]

j'ai attaché le fichier dans un .zip

Test-Catalog-20160922.zip

[mkshan]

Bon, ceci marche pour ajouter les photos et ajouter le nom de la photo dans la colonne. Est-ce possible d'ajouter un code qui va prendre le name box Ex: Picture 1


Lorsque j'ajoute une photo, un nom lui est attribué (Picture 1, Picture 2, Picture 3...)

J'ai besoin de ce nom (pour chaques photos ajoutées) dans la colonne I, a partir de I3.

Merci a jurassic pork pour son code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
Sub ChargeTrombinoscope()
    Dim Chemin As String, Fichier As String
    Dim Nom, Prénom As String
    Dim splitArr() As String
    Dim Ligne As Integer
    Worksheets("Pix").Activate
 
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\test-20160928\MyPH\"
    'Boucle sur tous les fichiers jpg du répertoire.
    Ligne = 3
    Fichier = Dir(Chemin & "*")
    Do While Len(Fichier) > 0
        'Extraction prénom
         splitArr = Split(Fichier, ".")
         Prénom = splitArr(0)
         Range("H" & Ligne).Value = Prénom
         'insertion de la photo dans la colonne C
         With ActiveSheet.Pictures.Insert(Chemin & Fichier)
           With .ShapeRange
            .LockAspectRatio = msoTrue
            .Width = ActiveSheet.Cells(Ligne, 11).Width
            .Height = ActiveSheet.Cells(Ligne, 11).Height
           End With
        .Left = ActiveSheet.Cells(Ligne, 11).Left
        .Top = ActiveSheet.Cells(Ligne, 11).Top
        .Placement = 1
        .PrintObject = True
        End With
        'Fichier suivant
        Fichier = Dir()
        Ligne = Ligne + 1
    Loop
End Sub

[mkshan]

Est-ce qu'il y a moyen de faire en sorte que lorsque je supprimer le numéro de produits l'image disparaît de la zone recep?

Merci de votre aide, c'est très apprécié!

Ne pas oublier, le dossier MyPH doit être dans C:\test-20160928\MyPH\ (ou modifier au besoin dans le code)

J'ai joint le fichier