Discussion :

[creolia]

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

[creolia]

Re bonsoir

j'ai trouver ceci


Code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daranc]

as tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chdir "C:\image"

ou de faire un nom d'image composé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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