Discussion :

[hawk91]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

Bonjour,
si je lis bien dans ton code, il s'agit d'un fichier PDF.
Il existe un controle que tu peux activer dans ton userform qui s'appele "Adobe Pdf Reader" qui te permet d'intéger ton PDF dans ton userform.

Je l'ai personnellement abandonné car je n'ai eu que des problèmes avec (instabilité totale).

J'ai opté pour l'affichage du document via son application native par l'intermédiaire de ShellExecuteEx qui me permet d'ouvrir et de fermer le programme l'application liée à ma guise.

Bonne journée.

[hawk91]

En fait non pas d'un pdf mais cela peux être un word, ou un san donc jpeg.

A la base j aurai voulu faire un mail avec une piece jointe choisis par l utilisateur