Une macro pour enregistrée une image d'un USF

bonsoir

je recherche une solution pour creer une macro qui me permetra de sauvegarder une image contenue dans le controle image d'un USF vers le fichier c:/image/formation1....ect de mon disque dur

ont ma gentillement fauis part d'un USF qui me permet de charger et renomer l'image mais je sais pas comment faire pour la partis sauvegarder

pouvez vpus m'aider merci

Re bonsoir

j'ai trouver ceci


Code:

Code:

---

1 2 3 4 5 6 7 8 9

Dim NomImage As String, Reponse If TextBoxNom.Text = "" Then Exit Sub NomImage = ThisWorkbook.Path & "\" & TextBoxNom & ".bmp" If Dir(NomImage) <> "" Then Reponse = MsgBox(TextBoxNom & ".bmp" & " existe déjà. L'écraser ?", _ vbYesNo + vbCritical, "Sauvegarde") If Reponse = vbNo Then Exit Sub End If SavePicture Image1.Picture

---

, NomImagesa fonctionne mais il m'enregistre que dans la racine du classeur

comment changer ceci pour le mettre dans le dossier c:/image

et me laisser choisir ensuite le sous dossier


merci pour votre aide

as tu essayé

Code:

---

chdir "C:\image"

---

ou de faire un nom d'image composé

Code:

---

nom_image= "c:\image\nom-d_image"

---