Astuces Excel
  1. Astuces Excel
  3. Exporter la feuille de travail Excel en erreur PDF
Intereting Posts
VBA: utilisation de la fonction dans le file Excel généré par Matlab VBA Selection.PasteAndFormat ajout d'une ligne de rupture Python xlsx vers csv Le complément Excel ne fonctionne pas après la protection dans l'éditeur VBA PHP effectue une application de bourse en time réel Comment copyr datatables dans la dernière ligne et copyr la dernière ligne d'une table dans la même feuille de calcul automatiquement en utilisant excel vba? Comment append le graphique à une cellule spécifique avec une macro VBA excel vba, userforms et events: formulaire d'user modeste qui peut accepter des events Fichier Excel Le code VBA fonctionne sur un, mais pas sur les autres Transposer des données et supprimer des duplicates sur excel ou sql Comment "Imprimer" la feuille Excel sur la taille de la page personnalisée comme Din A1? Obtention de la valeur d'une cellule nombre avec VBA dans Excel impossible d'get le nombre de lignes et de colonnes (en utilisant Microsoft.Office.Interop.Excel) Convertir Xls en Csv pour une gamme de cellules Excel VLOOKUP Intervalle de dates Split

Exporter la feuille de travail Excel en erreur PDF

J'essaie d'écrire un script qui exporte une sélection de gamme de cellules vers PDF. Le code que j'ai écrit est le suivant: 

Sub ExporttoPDF() With Sheets("Results").Range("B10:J100") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\Export.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With End Sub

Chaque fois que je lancer le script, je reçois un message contextuel avec une erreur qui se lit comme suit: "Erreur d'exécution" 1004 ': document non enregistré. Le document peut être ouvert ou une erreur peut-être rencontrée lors de la sauvegarde ".

J'ai étudié en ligne et essayé de find une solution, mais je n'ai pas pu. Avez-vous une idée de ce que je ferais mal? Je vous remercie.

Ce n'est pas le message d'erreur le plus clair. La cause la plus probable est que vous avez des permissions d'écriture sur le dossier C:\Users . Ceci est normalement limité aux counts d'administrateur.

J'ai testé ce qui suit en utilisant un count non administrateur:

  1. C: \ Users \ Test.pdf
  2. C: \ Users \ My-Username \ Test.pdf

Le premier a soulevé la même erreur que celle que vous avez rencontrée. La seconde a fonctionné.

Je crois qu'il a quelque chose à voir avec Excel ne pouvant pas écrire dans cette zone? Je cherche encore, mais j'ai pu le faire fonctionner en changeant le path. 

 Sub ExporttoPDF() With Sheets("Results").Range("B10:J100") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\tjb1\Desktop\Export.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With End Sub