Discussion :

[GBAGO]

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]

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]

bonjour

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

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


bonne soirée
michel

[GBAGO]

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]

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]

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!

[GBAGO]

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!

[SilkyRoad]

bonjour

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

Code :

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

"F:\REPERTOIRE1\image1.JPG"

michel

[GBAGO]

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,