Bonjour,

J'ai crée un bouton qui me permet d'aller chercher un fichier Pdf et de me l'afficher en t'en qu'icone
juste ici tout va bien..
mon problème c'est qu'il va mettre l'icone la ou est la selection
j'ai donc crée une forme (shape) pour un cadre cible et cela je n'y arrive pas, il me recrée un nouvel objet et pas à la bonne place...
j'aimerais cibler une forme et pas une cellule car je suis amener a rajouter(ou retirer) des lignes, colonnes du fichier...

La forme s'apelle Cert1
voici mon code :

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
 
Sub ajoutPdf()
' ouvrir un fichier avec l'extention demander
 
 fichier = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf,Fichier .*(*.*),*.*")
 If fichier = False Then Exit Sub
 
 '   With ActiveSheet.Shapes("Cert1").Select    <--- marche pas non plus
 
 'Creation de l'objet 
 
        ActiveSheet.OLEObjects.Add(Filename:= _
         fichier, Link:=False, Displayasicon _
         :=True, IconFileName:= _
         "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe", _
         IconIndex:=0, IconLabel:="certificat").Select
'    End With  <-- lié à With
 End Sub
C'est possible ?