Re: Insérer un pdf à l'aide d'une macro
#11
Aspirant XLPages

Inscription: 13/04/2010

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
excel 2007
Posté le : 15-04-2010 17h29
D'accord, merci pour ton aide ^^

 @ myDearFriend!

saurais tu me dire pourquoi à chaque 1ère utilisation de ta macro, l'image est en paysage alors que le pdf est en portrait ? Sachant que pour les 2ème, 3ème,... l'image est bien en portrait ?
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#12
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 15-04-2010 18h07
Re vodkaddict,
Bonjour Guy (pardon, je ne t'avais pas vu arriver tout à l'heure)

Citation :
vodkaddict a écrit :

 @ myDearFriend!

saurais tu me dire pourquoi à chaque 1ère utilisation de ta macro, l'image est en paysage alors que le pdf est en portrait ? Sachant que pour les 2ème, 3ème,... l'image est bien en portrait ?

Non, aucune idée.

Cela dit, tu peux contrôler la taille de l'objet inséré à ta guise et je pense que tu sais le faire...

A toutes fins utiles : (voir les 2 lignes ajoutées ci-dessous) :

Sub InsererPDF()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
    'Choix du fichier PDF
    Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à insérer")
    If Chemin = False Then Exit Sub
    Application.ScreenUpdating = False
    'Création nouvelle feuille
    With Worksheets.Add(After:=Worksheets(Worksheets.Count))
        On Error Resume Next
        .Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)
        '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 = 210     'Ajustement Largeur ***************
    Obj.Height = 297    'Ajustement Hauteur ***************
    Application.ScreenUpdating = True
End Sub

Petit rappel au passage : Excel est un tableur.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#13
Débutant XLPages

Inscription: 14/03/2018
De Québec

Messages: 1

Système d'exploitation:
pc
Version Excel utilisée:
2016
Posté le : 14-03-2018 18h18

Bonjour

 

Merci beaucoup pour votre aide mais juste une petit détail:

 

Lorsque j'envoi mon classeur par courriel via un bouton, la feuille crée avec le PDF ne suit pas.

 

Serait-il possible de faire en sorte que le fichier joint en pdf soit sur la feuille principale?

 

Merci beaucoup

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes