Macro insertion image JPG et macro insertion PDF

FranckS

XLDnaute Nouveau
Bonjour,

J'aurai besoin de votre aide pour 2 macros auxquelles je dois apporter des améliorations.
Il s'agit d'une macro pour insérer une image JPG et une macro pour insérer un document PDF.

Les 2 améliorations seraient :
1/ La macro ouvre ver un chemin fixe vers le serveur : //Serveur/Commun/
Ensuite la personne sélectionne l'image ou le PDF qu'elle souhaite intégrer.
2/ Une fois l'image ou le PDF sélectionner, il s'affiche à la ligne 64 (l'utilisateur se charge ensuite de repositionner ou de redimensionner si nécessaire lui-même)

Voici la macro pour insérer l'image :
Public Sub Inserer_image()
Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
End Sub

Voici la macro pour insérer le PDF :
Sub Inserer_PDF()
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
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=True, Displayasicon:=False)
End Sub

Merci pour votre aide.
Franck
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal