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