Probleme insertion images

Bonjour,

j'ai actuellement un fichier avec une macro pour insérer des images

Mais les images ne ce positionne pas dans le rectangle demander

A partir du rectangle photo 13 et photo 14 (voir fichier) elles ce positionne les unes sur les autres

j'aimerais que les photos ce positionne dans les 20 rectangle demander

Ps : j'ai vraiment besoin du fichier pour lundi matin 24.04.17

merci de votre aide

s'il vous plait

de l'aide je cherche sans trouver

merci

djemol, le forum,

À la fin de la macro "Sub Image()", met en commentaire :

   With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
        .Copy
        .Delete
    End With
    ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
        DisplayAsIcon:=False

Teste à nouveau si ça convient.

LaCéline

bonjour,

je vient de testé mais cela ne fonctionne pas

j'ai beau chercher mais rien ne fait

merci de me venir en aide

bonjour,

essaie ceci

Sub InsertionImagesSelonRepertoire()

    'Macro qui permet une insertion d'une série d'images d'un répertoire donné,
    'Avec une ligne blanche entre chaque image
    Dim lesfichiers() As String
    Dim Repertoire As String
    Dim Extension As String
    Dim Fichier As String
    Dim limage As String
    Dim i As Integer
    Dim positiongauche As Single
    Dim positionhaut As Single
    Dim decalagedroite As Single
    Dim decalageBas As Single
    'On peut modifier les valeurs des constantes
    'pour modifier les résultats obtenus
    Const CombienParLigne = 2
    Const debutgauche = 2
    Const debuthaut = 32
    Const espacedroite = 10
    Const espacebas = 23
    Const largeurimage = 460
    Const HauteurImage = 270
    'emplacement de la première image
    positiongauche = 2
    positionhaut = 32
    decalagedroite = espacedroite
    decalageBas = espacebas
    'Saisie du nom du répertoire
    Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "C:\Temp\Réserves-Commentaires\")
   'Saisie du type d'extension
        Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg")
    i = 1
    'Récupération du premier fichier du répertoire
    Fichier = Dir(Repertoire & "*." & Extension)
    Do While Fichier <> ""
        If i > CombienParLigne Then
         'Position de la ligne suivante
         'et retour à la gauche de l'écran
            positionhaut = positionhaut + decalageBas
            positiongauche = debutgauche
            i = 1
        End If
        limage = Repertoire & Fichier
        Set mafeuille = Worksheets("Réserves-Commentaires")
        mafeuille.Shapes.AddPicture limage, True, True, _
           Cells(positionhaut, positiongauche).Left, Cells(positionhaut, positiongauche).Top, largeurimage, HauteurImage
        'emplacement de la prochaine image
        positiongauche = positiongauche + decalagedroite
        i = i + 1
        Fichier = Dir
    Loop
   'sauvegarde de l'oeuvre.
   ThisWorkbook.Save
 End Sub

re

je vient de testé mais cela ne marche pas j'ai changer les valeur moi même mais rien ne fait

plus les valeur devienne grande et les images ce positionnes les unes sur les autres sur les photos 17 et 18

merci

le code fonctionne tel quel avec ta mise en page pour 20 photos

ta mise en page ne permet de n'avoir que 20 photos affichées correctement. Si tu veux plus il faut adapter ta mise en page.

djemol, h2s04, le forum,

djemol a écrit :

bonjour,

je viens de tester, mais cela ne fonctionne pas

j'ai beau chercher mais rien ne fait

merci de me venir en aide

Pour ma part, à plusieurs reprises, j'ai effectué un pas-à-pas de ta macro image, laquelle nous demande de choisir une image pour la positionner dans la case sélectionnée. Une fois l'image sélectionnée, le bouton Ouvrir, après un délais de quelques secondes, affiche l'image. Le reste du code positionne l'image correctement ... si je désactive le bout de code mentionné.

Je n'ai pas regardé autre chose que l'insertion des images, une-à-une via la macro "Sub Image()".

Je te laisse avec l'assistance de h2so4 qui est énormément meilleur que moi avec le code VBA.

Bon succès dans ton projet.

LaCéline

djemol, h2s04, le forum,

Je viens de tester la macro de h2so4, elle fonctionne à merveille ... sous Excel 2016.

LaCéline

bonjour,

Désolé pour ne pas avoir répondu plutôt

J'ai moi même fait un essaie avec office 2016

J'ai toujours le même problème je vous envoie le fichier avec les photos insérés juste après l'essaie

Je doit inséré seulement que 20 photos dans le fichier pas plus

Merci de votre aide

bonjour,

je ne parviens pas à reproduire le problème que tu rencontres. j'ai testé avec le fichier que tu as envoyé, je n'ai pas de problème. on parle bien de la macro InsertionImagesSelonRepertoire ? as-tu modifié le fichier avant de nous l'envoyer ?

djemol, h2so4, le forum,

Le dernier fichier soumis par djemol fonctionne correctement avec le code de h2so4 ... à une exception près ... si les images existent déjà, le code ajoute par-dessus autant de fois l'images que l'on exécute de fois le code.

Il manquerait à enlever les images avant de les réinsérer.

J'ai effectué les tests avec des images à l'extension .jpg

LaCéline