Afficher capture sur un multipage
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour tout le monde
J’utilise la macro ci-dessous que j’ai trouvé sur un forum pour une capture sur un UserForm a multipage (5 page) Mais un bug (sur la ligne en gras soulignée) de la macro ci-dessous.
Je demande votre aide pour afficher la capture sur la page4 (la capture est une plage d’une feuille du classeur)
Merci pour vos aides
Cordialement
J’utilise la macro ci-dessous que j’ai trouvé sur un forum pour une capture sur un UserForm a multipage (5 page) Mais un bug (sur la ligne en gras soulignée) de la macro ci-dessous.
Je demande votre aide pour afficher la capture sur la page4 (la capture est une plage d’une feuille du classeur)
Private Declare Function GetTempFileNameA Lib "Kernel32" _
(ByVal lpszPath As String, ByVal lpPrefixString As String, _
ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function GetClipboardData Lib "user32" _
(ByVal uFormat As Long) As Long
Private Declare Function CopyEnhMetaFileA Lib "gdi32" _
(ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
Private Declare Function DeleteEnhMetaFile Lib "gdi32" _
(ByVal hDC As Long) As Long
Sub Capture()
Dim FicTmp As String
FicTmp = Space(50)
GetTempFileNameA Environ("TMP"), "", 0, FicTmp
FicTmp = Left$(FicTmp, InStr(FicTmp, vbNullChar) - 1)
Worksheets("Récap").Range("A247:X287").CopyPicture
OpenClipboard 0
DeleteEnhMetaFile CopyEnhMetaFileA(GetClipboardData(14), FicTmp)
CloseClipboard
With UsfResume
.Image1.Picture = LoadPicture(FicTmp)
Kill FicTmp
.Show
End With
End Sub
Merci pour vos aides
Cordialement
