Problème avec macro pour insérer un objet
Bonsoir à tous et toutes,
je cherche à insérer dans une cellule (la E9 en l'occurence) un document pdf qui s'afficherait sous forme d'icone mai qui serait lié au document.
Je bidouille un code mais ça ne marche, ça bloque là ou c'est rouge,
Sub InsererPDF()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim L As Single, T As Single, W As Single, H As Single
'Choix du fichier PDF
Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisissez le fichier .PDF à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Sélectionne la cellule de réception
With Range("E9").Select
'Insertion de l'objet pdf
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, Displayasicon:=False)
End With
Obj.Left = 1
Obj.Top = 1
Obj.Width = 15 'Ajustement Largeur ***************
Obj.Height = 21.2 'Ajustement Hauteur ***************
Application.ScreenUpdating = True
End Sub
Merci d'avance pour votre aide.
Bone soirée
Bonsoir,
Essaye en utilisant le code suivant :
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=True, Displayasicon:=False) Amicalement
Air2
Bonjour,
merci Air_2, je n'ai plus de message d'erreur par contre ça ne m'insère pas mon pdf dans la case. Ca ouvre l'explorer pour sélectinner mon document, je le sélectionne let résultat est qu'il m'a sélectionné la case E9.
Comprends pas.
Merci pour votre aide
Bonsoir,
Il est normal que le résultat soit affiché dans la cellule "E9".
Tu trouveras ci dessous l'explication du pourquoi :
Sub InsererPDF()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim L As Single, T As Single, W As Single, H As Single
'Choix du fichier PDF
Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisissez le fichier .PDF à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Sélectionne la cellule de réception
With Range("E9").Select '--------------------------->ici tu demande que le résultat soit toujours en "E9"
'Insertion de l'objet pdf
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=True, Displayasicon:=False)
End With
Obj.Left = 1
Obj.Top = 1
Obj.Width = 15 'Ajustement Largeur ***************
Obj.Height = 21.2 'Ajustement Hauteur ***************
Application.ScreenUpdating = True
End SubAmitié
Air_2