Dim Nom_Fichier As String
With Feuil1
'Demande le nom du futur fichier
Nom_Fichier = InputBox("Entrez la reference du pantalon (ex : Sarga)")
'Copie la cellule en tant qu'image
.Range("A1").CopyPicture
'On zoom a 300 pourcent pour augmenter la qualité de la capture
ActiveWindow.Zoom = 300
'Créer un graphique temporaire
With .ChartObjects.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width, Cells(1, 1).Height).Chart
'Y passe l'image
.Paste
'Exportation dans le répertoire du fichier xl
.Export ThisWorkbook.Path & "\" & Nom_Fichier & "_croquis.jpg", FilterName:="jpg"
End With
'On repasse en zoom 100 pourcent
ActiveWindow.Zoom = 100
'Supprimer le graphique temporaire
.ChartObjects(Feuil1.ChartObjects.Count).Delete
End With
End Sub