[XL-2013] Macro en VBA : Je génère des fichiers Excel corrompus ! :(

Macro en VBA : Je génère des fichiers Excel corrompus ! :(

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 !!! :calim2:

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:

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

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

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

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

Code:

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

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