Sauvegarder sur le disque dur une image de picturebox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
f
fouxien
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 janvier 2015
Version d'Excel : 2013 FR

Message par fouxien » 20 août 2015, 12:08

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
f
fouxien
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 janvier 2015
Version d'Excel : 2013 FR

Message par fouxien » 22 août 2015, 19:06

Une petite piste???
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'254
Appréciations reçues : 363
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 23 août 2015, 00:11

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
f
fouxien
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 janvier 2015
Version d'Excel : 2013 FR

Message par fouxien » 24 août 2015, 09:18

Merci Eric, je regardes ça tout de suite.
f
fouxien
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 janvier 2015
Version d'Excel : 2013 FR

Message par fouxien » 1 septembre 2015, 21:04

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
.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message