XL 2021 Impression d'un tableau en pdf

[clausen]

Bonjour

J'essaie de mettre au point un petit tableau pour faire des factures. L'or de l'impression avec la macro "Imprimer un PDF" la sortie du PDF pose énormément de problème d'impression.

Si quelqu'un a le temps de me regarder ce tableau, je le remercie d'avance

 

[sylvanu]

Bonjour Clausen,

L'or de l'impression avec la macro "Imprimer un PDF" la sortie du PDF pose énormément de problème d'impression.

Je ne comprends pas.
Cette macro enregistre un fichier pdf de la facture, il n'y a aucune impression, juste un enregistrement.
Pouvez vous préciser le problème ?

 

[Phil69970]

Bonjour @clausen
Edit bonjour Sylvain

la sortie du PDF pose énormément de problème d'impression.

Et c'est quoi le problème car je viens d'essayer et le pdf se fait bien dans le dossier prévu et hors mis les #ref qu'il y a partout qui ne sont pas du au pdf mais au formule avec des références invalides

De mémoire on dirait un de mes codes avec mes commentaires .....

Merci de ton retour

 

[clausen]

Bonjour Clausen,

Je ne comprends pas.
Cette macro enregistre un fichier pdf de la facture, il n'y a aucune impression, juste un enregistrement.
Pouvez vous préciser le problème ?

Bonjour @clausen
Edit bonjour Sylvain




Et c'est quoi le problème car je viens d'essayer et le pdf se fait bien dans le dossier prévu et hors mis les #ref qu'il y a partout qui ne sont pas du au pdf mais au formule avec des références invalides

Regarde la pièce jointe 1219310

De mémoire on dirait un de mes codes avec mes commentaires .....

Merci de ton retour

C'est justement ça le problème il y a plus d'erreur dans le pdf. Je ne sais plus qui c'est qui m'a aidé pour ce tableau

 

[clausen]

Bonjour Clausen,

Je ne comprends pas.
Cette macro enregistre un fichier pdf de la facture, il n'y a aucune impression, juste un enregistrement.
Pouvez vous préciser le problème ?

Oui ca produit ça produit un pdf mais avec des quantités d'erreurs. J'ai essayé que le fichier pour le moment je pense que l'impression sera identique

 

[Phil69970]

@clausen
Les erreurs ne sont pas dans le pdf mais dans les formules !
Cela n' rien à voir avec le pdf .

C'est justement ça le problème il y a plus d'erreur dans le pdf.

Et l'unité c'est quoi et qu'elle est la différence avec le prix unit.

 

[sylvanu]

Re,
Votre Feuille 2 est plein de #Ref!, donc le pdf en a autant.
En PJ j'ai rectifié pour ne plus avoir ces erreurs et le pdf est correct.
( Mais où trouve t-on l'unité ? J'ai mis par défaut Euros )

 

[Phil69970]

@clausen

Je te propose ce fichier

Tu as le choix de la devise du paiement cellule B15 entre €uros et Franc Suisse

ou

Merci de ton retour

 

[clausen]

@clausen

Je te propose ce fichier

Tu as le choix de la devise du paiement cellule B15 entre €uros et Franc Suisse

Regarde la pièce jointe 1219317
Regarde la pièce jointe 1219320

ou

Regarde la pièce jointe 1219322

Regarde la pièce jointe 1219319

Merci de ton retour

Si je garde cette version (Fichier joint)

La colonne devise me sert a rien. C'est toujours en francs Suisse

J'aimerai supprimer cette colonne Unité et laisser la place plus grande a description dans le PDF comme je les fait dans le tableur

Par dans le PDF le total est faux car il n'y a pas affichage des totaux des 5 premières ligne

 

[cathodique]

salut les gars, finalement le problème ne se trouve pas dans la création du pdf mais dans sa feuille.
Notre ami @clausen s'est mêlé les pinceaux.
ci-dessous ma contribution: macro suppression, ajout création du dossier s'il n'existe pas.

Sub Enregistrer_FeuilleEnPDF()
   Dim Ch$, Chemin$, Dossier$, NomDuFichier$
   Dim MaDate
   Dim CheminComplet As String

   Ch = ThisWorkbook.Path                                  ' Chemin de base
   Dossier = "Factures en cours"                           ' Dossier cible à adapter si besoin
   Chemin = Ch & "\" & Dossier                             ' Chemin complet
   CheminComplet = Ch & "\" & Dossier                     ' Chemin complet du dossier

   ' Vérifier si le dossier existe
   If Dir(CheminComplet, vbDirectory) = "" Then
      ' Si le dossier n'existe pas, le créer
      MkDir CheminComplet
   End If

   With Sheets("Feuil2")                                       ' Nom de la feulle à adapter si besoin

      MaDate = Format(Range("B9"), "yyyy-mm-dd")              ' Date facture formatée correctement pour export PDF
      NomDuFichier = .Range("E11").Value & "-" & MaDate       ' Cellule ou se trouve le nom du client et la date de la facture

      If Dir(Chemin, vbDirectory) = "" Then                   ' Vérifiez si le dossier existe
         MkDir Chemin                                        ' Si le dossier n'existe pas, créez-le
      End If

      .PageSetup.PrintArea = ("$A$1:$F$46")                   ' Zone à exporter dans le PDF
      .ExportAsFixedFormat xlTypePDF, Chemin & "\" & NomDuFichier
   End With

   MsgBox "Le fichier PDF a été enregistré avec succès dans le dossier : " & Chemin
End Sub

Sub Suppression()
'les Select/Selection ralentissent pour rien le code
   Range("B3:B7").ClearContents
   Range("B22:B33").ClearContents
   Range("D4:G15").ClearContents
   'ou
   'Range("B3:B7, B22:B33, D4:G15").ClearContents
End Sub

Bonne fin de dimanche.

 

[cathodique]

ton fichier en retour.

 

[clausen]

ton fichier en retour.

Merci ça a l'air de fonctionner correctement. Je vais faire des test et je donnerai un retour

Super sympa bonne soirée

 

[clausen]

ton fichier en retour.

Juste une chose comment agrandir la Zone "Description" dans les PDF

ton fichier en retour.

Comment agrandir sérieusement la zone "Des

ton fichier en retour.

Une chose encore. Comment agrandir sérieusement dans le PDF la zone "Description"

 

[Phil69970]

@clausen

Je te propose ce fichier

Merci de ton retour

 

[cathodique]

Juste une chose comment agrandir la Zone "Description" dans les PDF

Comment agrandir sérieusement la zone "Des

Une chose encore. Comment agrandir sérieusement dans le PDF la zone "Description"

le pdf n'a rien à voir avec la largeur de la zone Description.
le fichier pdf est juste la feuille excel enregistrée au format pdf.
Démo ci-dessous comment y arriver