Inserion automatique images sur plusieurs feuilles

Question

Bonjour,

Dans ce fichier excel, via une VBA (trouvée sur le forum), j'arrive à faire une insertion d'image sur plusieurs feuilles mais voilà :

1- Elle ne se met pas en marche automatiquement (obligé de faire F5),
2- Je voudrais, comme chemin d'accès, la feuille "Photos", où sont stockées toutes mes photos de voitures,
3- les photos ne se mettent pas à la dimension de ma cellules et
4- sur la même VBA, je souhaite mettre toutes les voitures (C5, C6, C7 etc...)

Je compte sur votre aide

Cordialement

https://www.cjoint.com/c/KDuqX6yhWRV

Answer 1

C'est déjà plus clair. Ca va me demander deux ou trois jours. Qu'est-ce que tu appelles "automatique" ? A l'exécution de la macro ?

Daniel

Answer 2

Bonjour,

Je souhaite que mes images soient insérer automatiquement dans les colonnes C "voitures" des feuilles courses(Bahrein, Italieim, portugal etc...) lorsque je  change les images dans la feuille "Photos" colonne H.

J'ai trouvé cette VBA qui fonctionne mais que sur une seule colonne, la C5. J'ai voulu compléter en ajoutant Set xRg = Sheets(I).Range("C6") ainsi de suite jusqu'à 32 mais....

Cordialement

Answer 3

Tu veux les voitures seulement ou les pilotes aussi ?

Daniel

Answer 4

Bonjour,

Je n'ai pas trop le temps en ce moment, mais je peux regarder. Est-ce que tu veux  des photos à la place du nombre de points ?

Daaniel

Answer 5

Bonjour, 

Voilà la VBA qui me pose problème et si quelqu'un pouvait me conseiller.

Cordialement 

Sub InsertLogo()

    Dim I As Long

    Dim xPath As String

    Dim xShape As Shape

    Dim xRg As Range

    xPath = "D:\F1\F1 2021\Voitures 2021\Mercedes 2021.jpg"

    If Dir(xPath) = "" Then

        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"

        Exit Sub

    End If

    For I = 1 To ActiveWorkbook.Sheets.Count

            Set xRg = Sheets(I).Range("C5")

        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)

    Next

End Sub