Discussion :

[cesbidart]

Bonjour à toute la communauté !

Je suis nouveau sur le forum, enchanté tout le monde.

Je vais essayer de vous décrire mon problème de la manière la plus simple.
Je précise que mes connaissances du VBA sont assez limitées (je ne suis pas débutant, mais moyen quand même).

Alors, j'effectue des opérations sur un fichier Excel comportant plusieurs feuilles.
Après traitement, je génère deux PDFS (qui correspondent à deux feuilles de mon fichier Excel) et je joint ces deux PDF dans un mail.

Cette opération est répétée pour une cinquantaine de mail.

Lorsque je lance la macro, tout se passe nickel, pas de messages d'erreurs. J'ai bien tous mes mails de générés, sauf que lorsque j'ouvre les PDF, c'est le drame !!!!
=====> Adobe reader affiche un message me disant que les fichiers sont endommagés ou corrompus !!!

Je précise que ces fichiers ne sont pas vides.

Voici le code utilisé pour l'impression des documents en PDF (je ne vous mets pas el reste, c'est très long et surement pas pertinent dans mon cas) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
  'impression des courriers en .pdf
        Sheets("COURRIER").Activate
        FileTiff1 = ActiveWorkbook.Path & "\" & "COURRIER" & "-" & codesite & ".pdf" 'chemin d'enregistrement
        '---------------------------------------------------------------------------
        Application.ActivePrinter = "PDFCreator sur ne02:"
 
        Sheets("COURRIER").PrintOut Copies:=1, Preview:=False, Collate:=True, PrToFileName:=FileTiff1     'impression suivant le chemin spécifié
 
        Sheets("ETIQUETTES").Activate
        '---------------------------------------------------------------------------
        FileTiff2 = ActiveWorkbook.Path & "\" & "ETIQUETTES" & "-" & codesite & ".pdf" 'chemin d'enregistrement
        Application.ActivePrinter = "PDFCreator sur ne02:"
        Sheets("ETIQUETTES").PrintOut Copies:=1, Preview:=False, Collate:=True, PrToFileName:=FileTiff2    'impression suivant le chemin spécifié

Avez-vous une idée de la source du problème ?

Bien à vous,

Ces

[Jean-Philippe André]

SAlut,

en 2013 tu peux directement enregistrer ton fichier au format PDF, pas la peine de passer par Adobe:
https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR

[cesbidart]

Bonsoir Jean-Philippe,

Merci de ta réponse rapide.

Tu entends par là que la ligne de code suivante où j'utilise PDF Creator nest pas nécessaire ?

Application.ActivePrinter = "PDFCreator sur ne02:"

Lorsque je la supprime, le code s'exécute en effet normalement, sans message d'erreur.
Toutefois, les fichiers PDF générés sont toujours corrompus.

Bien à toi,

Cés

[Jean-Philippe André]

Non, ici il s'aigirait de faire un code proche de celui ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "tondossier" & strTonNom & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

[cesbidart]

Merci jean-Philippe,

J'avais certaines lignes de codes qui parasitaient les lignes de codes que tu m'a donné.

Ca marche maintenant, merci beaucoup à toi !!!

Cés