Besoin du code pour image inkPicture qui irait se sauver dans le dossier "Temp" et doit être nomé visite4

[bellenm]

Bonjour à tous,

je suis sur un userform et là je fait une sauvegarde d'image manuscrite.

Cette image devrait ce sauver dans le dossier "Temp" avec comme nom "visite4" avec son ext.
Par la suite cette image devra se placer sur ma feuille en "B107". Cela se fera soit en important l'image depuis le dossier "Temp" soit en collant l'image .

Elle ne devra pas sortir de la cellule donc devra être redimensionné.

Voilà pour cette partie je n'ais pas de code.

Mais voici celui que j'utilise pour copier l'image:

Private Sub sauve4_Click()
ActiveSheet.Unprotect Password:=strSheetPassword
InkPicture4.Ink.ClipboardCopy
ActiveSheet.Paste
   Set newImg = Selection
   With newImg
      .Top = 240
      .Left = 575
   End With
    ActiveSheet.Protect Password:=strSheetPassword

Merci pour votre aide
Marc B