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