Modification de la taille des fichiers image

**GBAGO** · 25/08/2007, 15h31

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.

_________________________________________________________________

**GBAGO** · 27/08/2007, 08h23

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!!!

**SilkyRoad** · 27/08/2007, 18h04

bonjour

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

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

bonne soirée
michel

**GBAGO** · 28/08/2007, 15h15

Bonjour!!!

Je te remercie pour le support.

J'ai essayé de tester le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**SilkyRoad** · 28/08/2007, 18h09

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

**GBAGO** · 29/08/2007, 03h02

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!