Discussion :

[dubdub87000]

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.

Classeur2.xlsm

Code :

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

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

[MarcelG]

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

[Menhir]

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 ?

Code :

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

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.

[dubdub87000]

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 :

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

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

[Menhir]

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.

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

Code :

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

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.