Enregistrer en PDF

Bonjour,

Je viens vers vous car j'ai un petit problème dans le classeur que je vous partage il y a une feuille dont je voudrais pouvoir enregistrer en pdf, il y a deux boutons le premier et pour enregistrer en PDF et le second pour imprimer mon problème vient du premier je nage je n'arrive pas à comprendre d'où vient le problème pouvez vous m'aider s'il vous plaît je vous en remercie d'avance.

Citation:

---

Pièce jointe 447986

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub save_PDF() Dim fichier As String   With Worksheets("EtiquettesTableau") 'adapter le nom sous lequel le fichier sera enregistré fichier = "/Volumes/Boulot/logiciel/Etiquettes Tableaux" & Range("F22") & ".pdf" 'adapter le chemin du dossier Dossier = "/Volumes/Boulot/logiciel/Etiquettes Tableaux." Chemin = Dossier & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub

---

Bonjour dubdub,

- Dans les procédures de ce type, j'utilise "\" plutôt que "/". A tester.
- Tu utilises, judicieusement, un bloc With mais l'objet Range n'est pas attaché. Le problème en a peut-être la cause.
- Prends l'habitude de déclarer toutes les variables. Tu peux rendre cette déclaration obligatoire par le menu Options.
tous les modules auront dès lors "Option Explicit" comme en-tête.
- Indente le code. Ce qui revient à mettre en retrait le code inclus dans les blocs (With, For, Do...)
- Tu peux purger la méthode ExportAsFixedFormat des paramètres par défaut

Citation:

---

Envoyé par dubdub87000

je n'arrive pas à comprendre d'où vient le problème

---

Pourrais-tu être un peu plus explicite sur les symptômes de ce problème ?
Est-ce un bug à l'exécution ? Dans ce cas, quel est le message d'erreur et quelle ligne de code est désignée par le débugage ?
Est-ce que le résultat obtenu est insatisfaisant ? Dans ce cas, quelle est la différence entre le résultat attendu et le résultat obtenu ?

Citation:

---

Code:

---

1 2 3

fichier = "/Volumes/Boulot/logiciel/Etiquettes Tableaux" & Range("F22") & ".pdf" Dossier = "/Volumes/Boulot/logiciel/Etiquettes Tableaux." Chemin = Dossier & fichier

---

---

Il est étrange qu'il y ait la même chaine dans les variables "fichier" et "Dossier" et qu'ils soient ensuite concaténés.
Regarde ce que contient la variable "Chemin" après sa ligne d'assignation.

Bonjour,

En fait quand je lui demande l'action de faire un enregistrement en version PDF il me fait l'impression sur mon imprimante directement voilà tout simplement l'erreur ou sinon il ne l'est en jaune ceci;

Code:

---

1 2	.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

---

comme je suis débutant je n'arrive pas à comprendre pourquoi ça en jaune ce que cela veut dire je vous remercie de votre aide cordialement

Citation:

---

Envoyé par dubdub87000

En fait quand je lui demande l'action de faire un enregistrement en version PDF il me fait l'impression sur mon imprimante directement

---

J'ai du mal à imaginer qu'un .ExportAsFixedFormat puisse provoquer une sortie sur imprimante.

Citation:

---

voilà tout simplement l'erreur ou sinon il ne l'est en jaune ceci;

Code:

---

1 2	.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

---

---

Quand le debugage met une ligne en jaune, c'est généralement suite à un message d'erreur.

Je t'ai indiqué dans mon précédent message ce qui est, selon moi, la source de ton problème.