VBA Création photo (image)

Bonjour à tous,

Je cherche à simplifier mon projet "Concours_Pétanque",

pour cela, j'aurai besoin de créer une image (outil icône photo)

Cette image sera supprimée et recrée à chaque nouveau concours

Pouvez-vous m'aider à coder cette action

l'enregistreur ne donne rien !

Amicalement

Claude

Salut Claude

Regarde si ce sujet peut t'aider

http://forum.pcastuces.com/code_vba_pour_coller_image_du_presse_papier_-f23s25951.htm

Amicalement

Bonjour Amadéus,

Excellent !

c'est donc l'instruction : "CopyPicture"

ce qui donne pour mon cas

Sub Photo()
    With Sheets("Feuil2")
        .Activate
        On Error Resume Next 'si "bibi" n'existe pas
        .Shapes("bibi").Delete
        On Error GoTo 0
        Sheets("Feuil1").Range("f6:i20").CopyPicture xlScreen, xlBitmap
        .Paste Destination:=.Range("b2")
        Selection.Name = "bibi"
        .Range("A1").Activate
    End With
End Sub

merci et bonne journée

Amicalement

Claude