Exporter une image

Bonjour, quelqu'un aurai t'il la solution pour exporter une image qui ce situe dans le document excel ver le bureau par exemple, en ouvrant la fenêtre parcourir ?

En espérant trouver réponse

Cordialement

Bonjour,

A essayer :

Clique droit sur l'image et "Envoyé vers le bureau"

Bonjour, oui j'y avait pensé

Mais mon document excel sera protégé. donc je souhaiterais une macro qui exporte l'image.

Merci

Re,

Dans ce cas, il faudra absolument connaître le mot de passe pour déprotéger macro et de le remettre la protection. Auras-tu le mot de passe ?

Oui c'est mon document. mais pour l'instant je ne trouve pa le code pour exporter l'image

Voici le code

Nom = ActiveWorkbook.ActiveSheet.Name & Range("O12").Value & Range("X6").Value

DEPROTECTION
    ActiveSheet.Unprotect "xxxx"

    If Range("BE6") <> "" Then
        PHOTO = Range("BE6").Value
        ActiveSheet.Shapes(PHOTO).Select
    Else
        MsgBox "Opération impossible." & vbCrLf & "Aucune photo trouvée." & vbCrLf & "Si vous pensez que l'opération aurai du aboutir, envoyer moi un mail via la page d'accueil.", vbExclamation
        ActiveSheet.Protect "lesage"
        Range("BE6").Select
    Exit Sub
    End If

        Export = Application.GetSaveAsFilename(Nom)
        If Export = "Faux" Then
            MsgBox "Operation annulée" & vbCrLf & "Attention, veuillez renouveler l'action !", vbExclamation
        Else
            Activeshats.Export (Export)
        End If

 End Sub