Prob pour enregistrer une image
Résolu
robapt
Messages postés
114
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
4 décembre 2009
-
13 mai 2006 à 14:45
robapt Messages postés 114 Date d'inscription mardi 6 juillet 2004 Statut Membre Dernière intervention 4 décembre 2009 - 13 mai 2006 à 18:25
robapt Messages postés 114 Date d'inscription mardi 6 juillet 2004 Statut Membre Dernière intervention 4 décembre 2009 - 13 mai 2006 à 18:25
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
13 mai 2006 à 16:30
13 mai 2006 à 16:30
Salut
-1- De mémoire, SavePicture ne sauvegarde pas au format JPG, mais BMP
Tu peux toujours appeler ton fichier .JPG, mais il n'en sera pas un
-2- La parenthèse se trouve dans le nom de l'image, bizarre. Ca donnera "Image(1).jpeg"
-3- ListCount te fournit le nombre d'item dans ta liste, pas l'index actuellement sélecttionné (ListIndex je crois)
Décompose ta ligne pour en être sûr :
Dim sTemp As String
sTemp = File1.Path & "Image" & "(" & File1.ListCount & ")" & ".jpeg"
Debug.Print "Cde SavePicture : Nom du fichier = "; sTemp
SavePicture Picture1.Image, sTemp
Regarde dans la fenêtre de Debug (Ctrl-G) se qui s'affiche
Regarde si les \ sont bien présents là où il faut
Si tu veux changer le nom du fichier pour l'incrémenter , il faudra :
-A- Créer une variable de comptage (Dim Cptr As Integer) et l'initialiser à 1
-B- Composer le nom du fichier final : sTemp = File1.Path & "Image" & "(" & CStr(Cptr) & ")" & ".jpeg"
-C- Vérifier si le fichier existe déjà avec un simple avec la fonction Dir
- Si le fichier n'existe pas, enregistrer (SavePicture) avec le nom préparé et sortir
- Si le fichier existe, incrémenter ta variable, et recommencer à partir de la ligne B
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
-1- De mémoire, SavePicture ne sauvegarde pas au format JPG, mais BMP
Tu peux toujours appeler ton fichier .JPG, mais il n'en sera pas un
-2- La parenthèse se trouve dans le nom de l'image, bizarre. Ca donnera "Image(1).jpeg"
-3- ListCount te fournit le nombre d'item dans ta liste, pas l'index actuellement sélecttionné (ListIndex je crois)
Décompose ta ligne pour en être sûr :
Dim sTemp As String
sTemp = File1.Path & "Image" & "(" & File1.ListCount & ")" & ".jpeg"
Debug.Print "Cde SavePicture : Nom du fichier = "; sTemp
SavePicture Picture1.Image, sTemp
Regarde dans la fenêtre de Debug (Ctrl-G) se qui s'affiche
Regarde si les \ sont bien présents là où il faut
Si tu veux changer le nom du fichier pour l'incrémenter , il faudra :
-A- Créer une variable de comptage (Dim Cptr As Integer) et l'initialiser à 1
-B- Composer le nom du fichier final : sTemp = File1.Path & "Image" & "(" & CStr(Cptr) & ")" & ".jpeg"
-C- Vérifier si le fichier existe déjà avec un simple avec la fonction Dir
- Si le fichier n'existe pas, enregistrer (SavePicture) avec le nom préparé et sortir
- Si le fichier existe, incrémenter ta variable, et recommencer à partir de la ligne B
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
robapt
Messages postés
114
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
4 décembre 2009
13 mai 2006 à 18:25
13 mai 2006 à 18:25
Merci beaucoup Jack pour tes conseil ! ^^
