Sauvegarder sur le disque dur une image de picturebox

Bonjour à tous,

Je n'ai pas trouvé de réponse à ces deux questions. j'espère que vous pourrez m'aider.

Tout d'abord est'il possible de tester la presence d'une image dans une picturebox?

Ensuite, est'il possible de sauvegarder cette image directement sous un répertoire spécifié au préalable.

Pour cette dernière question j'ai tenté le code suivant, qui ne fonctionne pas:

  • la boite d'enregistrement s'affiche sur le bout chemin
  • le nom n'est pas proposé
  • le bouton save ne fonctionne pas

Merci à tous pour me faire avancer sur ce probléme

Cordialement

fabrice

      Dim fichier As String
                Dim NomDeSauvegarde As String
                Dim chemin As String
                Dim monsauv As String
                'On cherche le chemin d'accées du présent fichier
                chemin = Workbooks(ActiveWorkbook.Name).Path & "\Complement\Picture Article"
                'on donne le chemin plus le nom de la photo
                monsauv = chemin & "\" & TextBox1.Value & ".jpg"
                On Error Resume Next
                ChDir Workbooks(ActiveWorkbook.Name).Path & "\Complement\Picture Article"
                NomDeSauvegarde = TextBox1.Value
                fichier = Application.GetSaveAsFilename(InitialFileName:=NomDeSauvegarde, _
                                                        FileFilter:="Pictures, *.jpg; *.gif")
                If fichier <> False Then Image1.Picture.SaveAs fichier

Une petite piste???

Merci Eric, je regardes ça tout de suite.

En fait j’étais pas loin, c'était tout bête

Merci Eric pour ton aide.

Cordialement

'On va definir le chemin d'accés et le nom sous lesquels l'image sera enregistrée
                Dim Chemin As String
                Dim monsauv As String
                'On cherche le chemin d'accées du présent fichier
                Chemin = Workbooks(ActiveWorkbook.Name).Path & "\Complement\Picture Article"
                'on donne le chemin plus le nom de la photo
                monsauv = Chemin & "\" & TextBox2 & ".jpg"
               ' et le bout de code qui me manquer pour enregistrer:
                SavePicture Image1.Picture, monsauv
Rechercher des sujets similaires à "sauvegarder disque dur image picturebox"