Exporter une image

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Flavien41100
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 20 décembre 2015
Version d'Excel : 2013 FR,

Message par Flavien41100 » 21 décembre 2015, 00:10

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
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'208
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 21 décembre 2015, 11:37

Bonjour,
A essayer :
Clique droit sur l'image et "Envoyé vers le bureau"
Cdlt,
Raja
F
Flavien41100
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 20 décembre 2015
Version d'Excel : 2013 FR,

Message par Flavien41100 » 21 décembre 2015, 14:32

Bonjour, oui j'y avait pensé :)
Mais mon document excel sera protégé. donc je souhaiterais une macro qui exporte l'image.
Merci
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'208
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 21 décembre 2015, 14:40

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 ?
Cdlt,
Raja
F
Flavien41100
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 20 décembre 2015
Version d'Excel : 2013 FR,

Message par Flavien41100 » 21 décembre 2015, 17:42

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message