Retailler une image et enregistrer sous en .jpg

[multimania]

Bonjour


Je cherche à l'aide de vba access d'ouvrir une image .jpg de la visualiser dans un formulaire (jusque là pas de soucis) et ensuite depuis le formulaire pourvoir selectionner une zone (retailler) faire un pivotement 90° par exemple et enregistrer le tout modifier sous un répertoire au format .jpg.

D'avance merci pour toutes pistes

[Godzestla]

Bonjour,

access n'est pas vraiment conçu pour cela .

je te conseille d'aller voir du côté de certains programmes libres, comme irfanview pour faire la manip de rotation et de save as .JPG.

Pour info, avec ce programme tu peux faire des conversions batchs.

Un exemple de code basique qui converti un .PCX en .JPG pour pouvoir faire un Picture.Insert en excel. (Le .PCX n'est plus supporté).

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
'******************************************************************************
'*                Specific For .PCX Management                                *
'******************************************************************************
'>>>> BEG
'******************************************************************************
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Dim Spec_Temp_Folder        As String 'Specific temporary folder
Dim From_Pcx_FullFileName   As String 'Original PCX Full Filename
Dim From_Pcx_Folder         As String 'Original Pcx Folder Name
Dim To_Jpg_FullFileName     As String 'Temporary JPG Full Filename
Dim Jpg_Filename            As String 'Jpg Filename
Dim Pcx_Filename            As String 'Pcx Filename
Dim PCX_Converter           As String 'Pcx Conversion Program
Dim Missing_Pcx_Converter   As Boolean 'Flag missing PCX Converter
 
Sub Inz_Pcx_Management()
Check_Pcx_Converter
If Not Missing_Pcx_Converter Then
    Check_Temporary_Folder
    Clear_Temporary_folder
    Inz_Pcx_Folder_Name
 Else
    MsgBox ("Irfanview not found at " & PCX_Converter & ". Please Install")
End If
End Sub
 
Sub Inz_Pcx_Folder_Name()
From_Pcx_Folder = "G:\Emballage\Profiles\"
End Sub
'***********************************************************************
'* Check existence of temporary specific to this application subfolder *
'*   and build it if not present                                       *
'***********************************************************************
Sub Check_Temporary_Folder()
Dim ret             As String
Dim tablo()         As String
Dim Spec_folder     As String
 
'Check Temp Folder Existence
ret = Dir("C:\Temp", vbDirectory)
If ret = "" Then
  MkDir "C:\Temp"
End If
 
'Check Specific Subfolder existence for this application in Temp folder
tablo = Split(ThisWorkbook.Name, ".")
If tablo(0) <> "" Then
    Spec_Temp_Folder = "C:\temp\" & tablo(0)
    ret = Dir(Spec_Temp_Folder, vbDirectory)
    If ret = "" Then
        MkDir Spec_Temp_Folder
    End If
End If
End Sub
'***********************************************************************
'* Clear Temporary specific to this workbook subfolder                 *
'***********************************************************************
Sub Clear_Temporary_folder()
Dim ret             As String
ret = Dir(Spec_Temp_Folder & "\*.*", vbHidden)
Do While ret <> ""
    Kill Spec_Temp_Folder & "\" & ret
    ret = Dir
Loop
End Sub
'************************************************************************
'*   Check ir IRFANVIEW installed (Converter for PCX to JPG)            *
'************************************************************************
Sub Check_Pcx_Converter()
Dim ret             As String
PCX_Converter = "C:\Program Files\IrfanView\i_view32.exe"
ret = Dir(PCX_Converter, vbHidden)
If ret = "" Then
   Missing_Pcx_Converter = True
 Else
   Missing_Pcx_Converter = False
End If
End Sub
'*************************************************************************
'*  Build Single .JPG file name from single .PCX File name               *
'*************************************************************************
Function Build_Jpg_Name(Pcx_File_Name As String) As String
Dim tablo()         As String
Dim Jpeg_name       As String
If Pcx_File_Name <> "" Then
    tablo = Split(Pcx_File_Name, ".")
    If UBound(tablo) > 0 Then
        Jpeg_name = tablo(0) & ".jpg"
       Else
        Jpeg_name = ""
    End If
End If
Build_Jpg_Name = Jpeg_name
 
End Function
 
'***************************************************************************
'*  Convert PCX File To JPG File using Irfanview Convertion functionnality *
'***************************************************************************
Sub Convert_Pcx_To_Jpg()
 
Dim Proc As String
Dim parm1 As String
Dim parm2 As String
Dim Parms As String
Dim ret As Variant
 
Proc = PCX_Converter
parm1 = From_Pcx_FullFileName
parm2 = "/convert=" & To_Jpg_FullFileName
quote = ""
 
 
Parms = parm1 & " " & parm2
ret = ShellExecute(0, "open", Proc, Parms, "", 0)
End Sub
'*******************************************************************************
'*<<<<<< END                                                                   *
'*******************************************************************************

[loufab]

Bonjour,

Voir aussi l'excellent travail d'Arkham46 sur la GDI+.

à voir ici :

http://access.developpez.com/cours/?...mages#imggdi32

Cordialement,