IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Pdf endommagé quand envoyé en pièce jointe par VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 12
    Par défaut Pdf endommagé quand envoyé en pièce jointe par VBA
    Bonjour,
    excusez moi si la question a déjà était posée, mais je ne l'ai pas trouvé.
    Sous excel 365
    je souhaite envoyer un pdf d'une feuille masquée, le pdf se crée sans soucis et je peux l'ouvrir de mes documents.
    Toutefois, le pdf en pièce jointe ne s'ouvre pas "le fichier est endommagé et n'a pas pu être réparé"

    voici le 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 mail()
    '
    ' mail Macro
    '
     
    '
        Sheets("compteur").Select
        Sheets("Rapport").Visible = True
        Sheets("Rapport").Select
            Sheets("Rapport").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             "rapport comportement.PDF", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False
        Workbooks.Open Filename:="C:\Users\laurent\Documents\rapport comportement.PDF"
        Application.Dialogs(xlDialogSendMail).Show
        Workbooks("rapport comportement.PDF").Close True
        ActiveWindow.SelectedSheets.Visible = False
    End Sub
    Je vous remercie si vous localisez le problème (et avaez une solution )
    Bonne journée

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, va voir par ici

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 12
    Par défaut
    Citation Envoyé par kiki29 Voir le message
    Salut, va voir par ici
    super merci!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Macro Excel pour envoyer des pièces jointes par mail
    Par benadry dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 14/10/2013, 18h12
  2. Réponses: 2
    Dernier message: 20/03/2013, 12h59
  3. [AC-2010] Envoi PDF + pièces jointes par mail
    Par renard700 dans le forum VBA Access
    Réponses: 5
    Dernier message: 17/06/2012, 20h25
  4. Envoyer état (en cours) en pièce jointe par mail
    Par Jacques-Henri dans le forum IHM
    Réponses: 9
    Dernier message: 20/03/2009, 12h15
  5. Lotus Notes - Enregistrer Pièce Jointe par VBA
    Par Peterson82 dans le forum Général VBA
    Réponses: 1
    Dernier message: 17/10/2006, 06h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo