Signaler

Afficher capture sur un multipage [Résolu]

Posez votre question delta70 136Messages postés mercredi 26 janvier 2011Date d'inscription 19 juillet 2017 Dernière intervention - Dernière réponse le 10 juil. 2017 à 16:37 par delta70
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)

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
Utile
+0
plus moins
Si le nom de ton UserForm est UserForm1, change-le en : UsfResume
mais c'est peut-être : With Usf_Resume ou With UsfRésumé ?
delta70 136Messages postés mercredi 26 janvier 2011Date d'inscription 19 juillet 2017 Dernière intervention - 9 juil. 2017 à 23:24
Merci bien quentin,
Mais j'ai un userform multipage et je veux afficher la capture sur la 4eme page.
Répondre
delta70 136Messages postés mercredi 26 janvier 2011Date d'inscription 19 juillet 2017 Dernière intervention - 10 juil. 2017 à 16:37
Bonjour tout le monde,
Mon probleme est résolut voici la resolution peut êtres utiles pour d'autres
With Usf
.MultiPage1.Pages(3).imgEliminatoires.Picture = LoadPicture(FicTmp)
End With

Merci tout le monde
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !