Afficher PJ dans un UserForm
Bonjour à tous,
J'ai trouver un code pour integrer un fichier joint dans excel a partir d'un UserForm
Code:
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
| Private 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:
1
2
3
4
5
6
| 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
