Enregistrer un usf en bmp

  • Initiateur de la discussion Initiateur de la discussion Lanetmel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lanetmel

XLDnaute Nouveau
Bonjour

J'ai trouvé sur ce forum une bonne partie de la solution. merci beaucoup
Cependant j'aimerais modifier 3 choses et j'aurais besoin d'un coup de main..
1ère chose : J'aimerais enlever certains items de mon usf avant de le transférer.
ex :
commandButton1. visible= false
commandButton2. visible= false
Je ne sais pas ou mettre ce code dans le code donné par KiKi :
Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long)
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long

Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(8) As Byte
End Type

Private Type PICTDESC
cbSize As Long
picType As Long
hImage As Long
End Type

Private iPic As IPicture
Private mode As Long

Sub SnapShot_USF_BMP()
Dim tIID As GUID, tPICTDEST As PICTDESC, Ret As Long
Dim hCopy As Long
Const IPictureIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"

keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

OpenClipboard 0&

hCopy = CopyImage(GetClipboardData(2), 0, 0, 0, &H8)
CloseClipboard
If hCopy = 0 Then Exit Sub

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, ThisWorkbook.Path & "\" & "USF.bmp"
Set iPic = Nothing
End Sub

2ème chose : J'aimerais que le nom du fichier soit "Bon de Commande" (à la place de USF) ça je sais faire mais j'aimerais que la valeur de ma Texbox4 soit aussi dans le nom
ça donnerais ex : Bon De Commande 2217 (le numéro augmente de 1 chaque fois que le usf est fermé)
et finalement la 3ème chose est que je voudrais qu'à la suite de tout ceci en appuyant sur le même bouton qui créer le fichier .bmp, un courriel s'envoi avec l'adresse courriel contenue dans la Combobox6 avec le fichier .bmp créer

Tout cela est-il possible?
Quelqu'un peu m'aider?
merci à l'avance!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
572
Retour