Problème affichage texte dans pdf VBA

Bonjour

j'ai créé un bon de commande automatisé avec un bouton permettant d'éditer mon bon de commande via un onglet et un autre permettant l'enregistrement d'un Pdf sur mon bureau.

Mon problème est que lorsque j'enregistre mon pdf il sort un bon de commande vide sans les éléments.

Pouvez-vous m'aider svp. Merci d'avance

Bonsoir, sans voir le code de l'export pdf on ne peut pas faire grand chose.

- Je commencerai par vérifier la mise en page du bon de commande ( Insérer une Zone d'impression si nécessaire ; cocher le paramètre ajustement automatique de la page ).

- Faire un aperçu avant impression pour vérifier le rendu.

Bonsoir,

Voilà mon code:

Sub pdf()
If Sheets("Bon de Commande").Range("F9").Value <> "" Then
nomdossier = Application.InputBox("Dossier d'enregistrement", "Enregistrer en PDF....!", "BondeCommande")
dossier = ThisWorkbook.Path & "/" & nomdossier & "/"
Application.ScreenUpdating = False
Sheets("Bon de commande").Range("C20:C50,D20:D50,G20:G50,F20:F50,F9").Select
Selection.ClearContents
Range("D20").Select
Application.ScreenUpdating = True
On Error Resume Next
If dossier = True Then
GetAttr (dossier) And vbDirectory
Else
MkDir (dossier)
End If
ActiveSheet.ExportAsFixedFormat Type:=xltypdf, _
Filename:=dossier & Range("F9").Value & "_" & "Bon de Commande N°" & "" & Range("C6").Value & ".pdf", _
Quality:=xlQualityStandard, _
ignoreprintareas:=False, _
includedocproperties:=True, _
openafterpublish:=False
Else
MsgBox "Veuillez selectionner un destinataire SVP!"
Sheets("Bon de Commande").Range("C6").Value = Sheets("Bon de Commande").Range("C6").Value + 1
End If
End Sub

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Bonsoir Sym972 et

Une petite présentation ICI serait la bienvenue

Vous voudrez bien commencer par lire la charte du forum et notamment

• Pour plus de lisibilité, utilisez la fonctionnalité </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).
  

Ensuite Quelques fonctionnalités du forum à connaître qui vous aideront dans vos demandes et réponses sur ce forum.

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Merci d'y faire attention la prochaine fois, bonne participation

Cordialement

Bonjour,

Pourquoi un effacement de cellule avant l'export pdf ?

Sheets("Bon de commande").Range("C20:C50,D20:D50,G20:G50,F20:F50,F9").Select
Selection.ClearContents

Bonjour,

Je voulais effacer après. Je me suis trompée.

Merci pour la remarque.