Modification de la taille des fichiers image

Bonjour a tous,

Je suis entrain d'ecrire un programme en VBA sous excel. Avec ce programme, je dois modifier la taille des fichiers image.
Je prends un exemple : pour une image de 127 ko, je dois reduire cette image pour avoir 75ko. Comment vais-je proceder?

Merci de votre collaboration.

:roll:

_________________________________________________________________

Bonjour!

Il s'agit de la compression d'image. Pour atteindre la taille voulue, je dois compresser le fichier.
Quelqu'un aurait-il fait l'expérience?

Merci d'avance!!!

bonjour

J'espère que ce lien pourra t'aider

http://silkyroad.developpez.com/VBA/...geAcquisition/


bonne soirée
michel

Bonjour!!!

Je te remercie pour le support.

J'ai essayé de tester le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub redimensionnerImage() Dim Img 'As WIA.ImageFile, Dim IP 'As WIA.ImageProcess Dim repertoire 'Création conteneur pour l'image à manipuler Set Img = CreateObject("WIA.ImageFile") 'Création du gestionnaire de filtre Set IP = CreateObject("WIA.ImageProcess") 'Chargement de l'image dans le conteneur '''''On Error Resume Next repertoire = "F:\REPERTOIRE1\image1.JPG" Img.LoadFile (repertoire) 'Ajoute le filtre pour redimensionner l'image (Scale) IP.Filters.Add IP.FilterInfos("Scale").FilterID 'Définit la largeur maxi pour le redimensionnement IP.Filters(1).Properties("MaximumWidth") = 90 'Définit la hauteur maxi pour le redimensionnement IP.Filters(1).Properties("MaximumHeight") = 90 'remarque : 'Les proportions sont conservées. Le filtre prend en compte 'les ratios et adapte la taille pour ne pas dépasser les valeurs maxi définies. 'Application du filtre à l'image Set Img = IP.Apply(Img) 'Enregistre l'image redimensionnée Img.SaveFile "F:\REPERTOIRE2\image2.JPG" End Sub

---

Mais j'ai toujours une erreur, "ERREUR AUTOMATION" au niveau de Img.LoadFile(repertoire).
Je ne comprends plus rien et pourtant j'ai bien ajouté la référence à wiaaut.dll.
Je suis en train de rechercher les solutions dans l'environnement de travail. J'ai bien Windows XP SP2 mais je télécharge maintenant sdk pour renforcer l'environnement de travail.
Merci une fois de plus de votre collaboration.

bonsoir

Je viens de retester la procédure, sans problème.
Par contre je ne réussis pas à ouvrir ta pièce jointe. Tu es sur d'avoir indiqué un chemin et un nom de fichier existant.


michel

Bonjour,

C'est le message d'erreur que j'avais en pièce jointe.

Si le module marche chez toi, mon problème serait certainement au niveau de l'environnement. Je vais maintenant installer SDK pour réessayer l'exécution.

Je te remercie beaucoup pour la vérification.

A très bientôt!

Après installation du sdk de Microsoft, je constate que le message d'erreur persiste.
Ci-joint au format pdf ledit message d'erreur.
A très bientôt!

bonjour

Cela signifie que le chemin et/ou le nom du fichier sont incorrects:

Code:

---

"F:\REPERTOIRE1\image1.JPG"

---

michel

Je viens de découvrir l'erreur.
J'ai juste omis un caractère de l'extension du fichier. Au lieu de JPEG, j'ai mis jpg.
Merci de ta dernière précision qui a constitué pour moi la bonne piste de recherche.

Amicalement,