Afficher PJ dans un UserForm

  • Initiateur de la discussion Initiateur de la discussion hawk91
  • 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 !

hawk91

XLDnaute Nouveau
Bonjour à tous,

J'ai trouver un code pour integrer un fichier joint dans excel a partir d'un UserForm

Code:
rivate Sub CommandButton4_Click()
Dim x As Integer

'**********************************************
'sélection possible de plusieurs fichiers
'**********************************************
che = Application.GetOpenFilename(, , , , True)
For x = 1 To UBound(che)
Call InsererFichier(che(x))
Next x
End Sub

Sub InsererFichier(ByVal Chemin As String)
Dim Fichier As String
Dim Obj As OLEObject
Dim n As Integer

'*******************************************
'détermine le nombre de fichiers sur la page
'*******************************************
n = ActiveSheet.OLEObjects.Count

'*******************************************
'détermine le nom du fichier
'*******************************************
tabc = Split(Chemin, "\")
Fichier = tabc(UBound(tabc))

'*******************************************
'insère le fichier
'*******************************************
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1036-7B44-A70900000002}\PDFFile.ico", _
IconIndex:=0, IconLabel:= _
Fichier _
)

With Obj
'****************************************
'placement en fonction du nombre d'objets
'****************************************
.Top = Cells(1).Top
.Left = Cells(1).Left
End With
End Sub

a la base je souhaitais pouvoir integrer le fichier joins dans outlook mais je ne trouve pas car j'utilise se code pour envoyer le classeur actif et donc pas de fichier joins possible
Code:
Private Sub CommandButton3_Click()

lenom = ThisWorkbook.Name
Workbooks(lenom).SendMail Recipients:="j@france.pe.com", _
                          Subject:=" à valider", _
                          ReturnReceipt:=True
Mon problème est que je souhaiterai que l'objet dans le 1er code soit indiquer dans l'UserForm.
Comment dois je proceder?? Passer par un combo qui affiche la cellule ou est envoyer le fichier?
Merci de votre aide
 
- 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

Retour