Macro format .pdf non pris en charge ou endommagé. Fermé

Question

Bonjour,

J'étais au début content de moi car j'avais réussi à passer ma macro pour enregistrer automatiquement un dossier.xls vers.pdf avec nom valeur cellule vers un repertoire donné.Cool.
(ActiveWorkbook.SaveAs Filename:= _
"O:\****\Attestations\****\CM\Edition ATT\" & Range("H9") & ".pdf")
Sauf que je n'arrive pas à ouvrir le fichier enregistré. Adobe Reader s'ouvre et indique que le fichier n'est pas pris en charge ou est endommagé.

Quelqu'un aurait une idée du beug?

Merci ;-)

Frenchie83 · Answer

Bonjour

Cela ne fonctionne pas, parce qu'il ne suffit de remplacer l'extension .XLS par ".PDF"

Pour que cela fonctionne correctement, passe par l'enregistrement d'une macro, 
faire
 -Enregistrer sous, 
   -sélectionne format PDF
arrêt de l'enregistrement

lit le code enregistré automatiquement, tu devrais avoir quelque chose comme ce qui suit:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "O:\****\Attestations\****\CM\Edition ATT\Classeur1.pdf", Quality:=xlQualityStandard , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False

A la suite de ça, ton fichier PDF s'ouvrira normalement

cdlt

Follownow · Answer

Merci pour ta réponse,
Cependant il me manque l'élément pour nommer le fichier suivant la valeur de la cellule (H9).

Je cherche où le placer...

Frenchie83 · Answer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "O:\****\Attestations\****\CM\Edition ATT\" & range("H9").value & ".pdf", Quality:=xlQualityStandard , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False

Follownow · Answer

Mission accomplie..:D

Merci beaucoup.

Au boulot maintenant! ;-)

Macro format .pdf non pris en charge ou endommagé.

4 réponses

Discussions similaires