Discussion :

[Michel-philippines]

re Bonjour
PUIS JE ABUSER DE VOTRE GENTILLESSE ,

Maintenant que mon probleme de selection de zone image dans un userforme est reglé (gros merci a Tête de Chat ), je n'arrive pas a la sauvegarder en jpg
Je me heute a des methodes non gérer, incompatibilité de type etc ..... j'ai fait plusieurs essais pour revenir a ma solution initiale dans le code ci-dessous

Update : qui en fait etait une erreur colossale puisque je n ai plus gdpicture


donc si vous avez des solutions a me suggerer ...... je suis preneur

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
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
 
Public Sub PageFreqimg_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' Lorsque l'utilisateur relâche le clic, enregistrez les coordonnées de fin
    If SelectionEnCours = 2 _
        Then
            SelectionEnCours = 0
        X2 = X
        Y2 = Y
    End If
         ' Copie et sauvegarde de la zone sélectionnée en tant qu'image JPEG
    Dim FicCible As String
    FicCible = RepExport & "\" & ActionOCR & ".jpg"
    CopierEtSauvegarderSelection FicCible    '<w=================== appel 
    '............................................  reste du code
 
Public Sub CopierEtSauvegarderSelection(FicCible As String)
    ' Vérifiez si les coordonnées de début et de fin de la sélection sont valides
    If X1 = 0 Or Y1 = 0 Or X2 = 0 Or Y2 = 0 Then
        MsgBox "Please select an area to copy first.", vbExclamation
        Exit Sub
    End If
 
    ' Créez un objet GdPicture
    Dim gdPicture As Object
    Set gdPicture = CreateObject("GdPicture.GdPicture.10") '<============== le probleme est là, j ai meme essayé de passer par un userformtemporaire  :arf::arf:
 
    ' Chargez l'image source
    Dim imagePath As String
    imagePath = PageFreqimg.Picture
    If gdPicture.LoadFromFile(imagePath) = 0 Then
        MsgBox "Unable to load the image.", vbExclamation
        Exit Sub
    End If
 
    ' Calculez les coordonnées de la zone sélectionnée
    Dim width As Long
    Dim height As Long
    width = X2 - X1
    height = Y2 - Y1
 
    ' Copiez la zone sélectionnée
    gdPicture.Crop X1, Y1, width, height
 
    ' Enregistrez la zone sélectionnée en tant qu'image JPEG
    If gdPicture.SaveAsJPEG(FicCible, 75) = 0 Then
        MsgBox "Error while saving the image.", vbExclamation
    Else
        MsgBox "The selection has been copied and saved as a JPEG image.", vbInformation
    End If
 
    ' Libérez les ressources de GdPicture
    gdPicture.CloseImage
    Set gdPicture = Nothing
End Sub

Avez vous une solution pour moi

[jurassic pork]

Hello,
as-tu gdpicture installé sur ta machine ? Si oui quelle version , est-il gratuit, dans ce cas où peut-on l'obtenir ? j'ai bien vu un gdpicture.Net ​qui ressemble à ce que tu utilises mais c'est un logiciel payant.
Ami calmant, J.P

[Michel-philippines]

Hello,
as-tu gdpicture installé sur ta machine ? Si oui quelle version , est-il gratuit, dans ce cas où peut-on l'obtenir ? j'ai bien vu un gdpicture.Net ​qui ressemble à ce que tu utilises mais c'est un logiciel payant.
Ami calmant, J.P

en fait je ne l'ai plus gdpicture.
c'est une erreur de ma part d'y faire appel, il faut que je trouve une autre solution

[jurassic pork]

si tu nous mets en pièce jointe un classeur avec ton code ton formulaire et sans données confidentielles (ex: Feuilles Excel vides) on pourra peut-être t'aider à trouver une solution

[Michel-philippines]

si tu nous mets en pièce jointe un classeur avec ton code ton formulaire et sans données confidentielles (ex: Feuilles Excel vides) on pourra peut-être t'aider à trouver une solution

pas de prob
J'ai un userform dans lequel j'affiche le resultat d'un scan dont voici une partie
En fait c'est l'impression d'une feuille excel dont on doit récuperer des infos dispersées dans les feuilles avec des formats non standard (cellules fusionnées, retour a la ligne, coupure de mots, etc) pour les passer a travers tesseract-OCR pour pouvoir les réinjecter vers une nouvelle feuille excel et bien sur les sources excel ont disparue (merci le papier)


la selection de zone semble bien se passer, je recupere bien X1 Y1 et dans la procedure sur fin de souris X2 Y2
Maintenant il faut que je sauvegarde cette partie d'image dans un fichier au format Jpg pour l'envoyer a tesseract_OCR a travers le shell qui va me le sauvegarder en txt
que je retravail apres pour faire du nettoyage en partie automatique (suppression des doubles, triple espace, retour chariot, . decimal versus virgule etc etc) , en partie manuelle validation visuelle ....

j ai donc une gestion d'évenement mousedown pour le dbut de zone et mousseup pour la fin de zone voici le code

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
 
Public Sub PageFreqimg_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' Lorsque l'utilisateur relâche le clic, enregistrez les coordonnées de fin
    If SelectionEnCours = 2 _
        Then
            SelectionEnCours = 0
        X2 = X
        Y2 = Y
    End If
 
' ==================================================== C est ici que je n arrive pas a sauvegarder je faisais par erreur un appel a GdPicture mais je ne l'ai plus 'de dispo et j ai essayé avec clipboard et je n'arrive pas a le mettre au point
' il faut donc que je trouve une solution le plus possible "native de windows et excel" pour integrer dans le code de   CopierEtSauvegarderSelection  qui va aller enregistrer ici = FicCible
 
         ' Copie et sauvegarde de la zone sélectionnée en tant qu'image JPEG
    Dim FicCible As String
    FicCible = RepExport & "\" & ActionOCR & ".jpg"
    CopierEtSauvegarderSelection FicCible
    ' Repasser le formulaire en mode modal
    Me.Show vbModal
    '
 '  Reste du code  vers l'OCR est l'appel du userform de validation manuelle
End Sub

J espere avoir été clair

[jurassic pork]

Question bête : pourquoi passer par du VBA alors que l'opération peut être faite avec un logiciel de dessin (séléction partie image et sauvegarde) ou des logiciels qui utilisent tesserac
Sinon voir ici : how-to-crop-an-image-using-wia-in-vba