Discussion :

[pikameuh]

Bonjour à tous,

J'ai developpé un formulaire en VBA.
Maintenant je dois le doter de l'option suivante:

Le UseForm doit être capable de s'archiver sous un format visuel sans impression puis scan.

Ma question est donc comment puis-je faire un export du UseForm sous un format image (.jpg par exemple)

Merci de m'aider !

[patricktoulon]

bonjour pikameu


avant de poser une question tu devrais regarder la faq elle renferme plein de truc qui pourraient t'intérésser

regarde ici

tu a largement ta reponse


au plaisir

[pikameuh]

Merci de me répondre !

Cependant quand j'ai ecris :

Le UseForm doit être capable de s'archiver sous un format visuel sans impression puis scan.

Je voulais dire par là, que l'archivage doit rester 100% numérique donc pas d'impression.

Je voudrais exporter un UseForm en .jpg ou .pdf

[patricktoulon]

alors re regarde le lien que je t'ai donné et utilise juste la partie qui fait ce que tu demande


relis attentivement le code et tu comprendra!!!!!!


au plaisir

bonjour

je te propose ma solution preferé pour sauver l'image en jpeg a toi d'adapter le chemin et le nom de l'image

code a metre dans un module standard
j'avais fait ca l'année derniere pour je sais plus qui je l'ai retrouvé
je te le livre

tu appelle la macro ""cliché_de_l_userform"" quand tu veux a partir du momment ou l'userform est affiché
essai de comprendre 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
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
 
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long)
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Public Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Public Declare Function CloseClipboard& Lib "user32" ()
Public Declare Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Public Declare Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Public Declare Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long
 
Public Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(8) As Byte
End Type
 
Public Type PICTDESC
  cbSize As Long
  picType As Long
  hImage As Long
End Type
 
Public iPic As IPicture
Public mode As Long
 
 
 
 
 
Sub cliché_de_l_userform()
 'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
Dim hCopy&: OpenClipboard 0&
hCopy = CopyImage(GetClipboardData(2), 0, 0, 0, &H8)
CloseClipboard
If hCopy = 0 Then Exit Sub
Const IPictureIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"
Dim tIID As GUID, tPICTDEST As PICTDESC, Ret As Long
Ret = IIDFromString(StrConv(IPictureIID, vbUnicode), tIID)
If Ret Then Exit Sub
With tPICTDEST
.cbSize = Len(tPICTDEST)
.picType = 1
.hImage = hCopy
End With
Ret = OleCreatePictureIndirect(tPICTDEST, tIID, 1, iPic)
If Ret Then Exit Sub
 
SavePicture iPic, "C:\Users\Patrick\Desktop\" & "capture de l'userform.jpg"
Set iPic = Nothing
 
End Sub

ce code fonctionne parfaitement bien
au plaisir

[kiki29]

Salut,juste une remarque le jpg généré s'ouvre bien via la visionneuse Microsoft mais pas par exemple avec PhotoShop

[patricktoulon]

bonjour
je vais voir pourquoi mais apriori ca viens de chez toi

et voila je revien

je l'ai mis dans les contribs

j'ai ajouter la fenetre de dialog pour choisir la destination

c'est ici

voila

au plaisir

[kiki29]

Salut,c'était juste une remarque, le probleme restant entier avec PhotoShop avec le message d'erreur : Impossible d'ouvrir C:\....\USF.jpg en raison d'un marqueur JPEG inconnu ou incorrect