XL 2013 Imprimer PDF avec date et nom autmatique

Phil69970

XLDnaute Barbatruc

• 7 Décembre 2020

• #2

Bonjour Mix77, le forum

Ceci devrait faire ton bonheur

VB:

NomFichier = Range("C9").Value & " - " & Format(Date, "yyyy-mm-dd")

@Phil69970

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 7 Décembre 2020

• #3

Bonjour Phil69970,

merci à toi, j'ai testé ça ne le nomme pas, je regarde pourquoi


Sub Imprim_PDF_CRH() ' Impression PDF liste
'Dim DerLig As Long
Dim Chemin As String, NomFichier As String
NomFichier = Range("C9").Value & " - " & Format(Date, "yyyy-mm-dd")
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row

ActiveSheet.PageSetup.PrintArea = "A1:h" & DerLig

ActiveSheet.PrintOut
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Décembre 2020

• #4

Mix77, le forum

Un fichier anonyme serait le bienvenu

@Phil69970

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 7 Décembre 2020

• #5

Phil69970,
merci à toi
en post

 

Pièces jointes

• TEST impression PDF.xlsm

  27.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Décembre 2020

• #6

Voici ton fichier :
Attention :
Le fichier va s'enregistrer en pdf dans le dossier ou se trouve ton fichier excel (TEST impression PDF V1)

Si tu veux l'enregistrer dans un dossier particulier exemple :
==>La ou se trouve ton fichier excel\PDF\Absence\
2)il te faudra créer 2 repertoires sur ton PC :
un PDF et un autre Absence
et modifier la ligne :
Chemin = ActiveWorkbook.Path & "\
par la ligne :
Chemin = ActiveWorkbook.Path & "\PDF\Absence\"

Libre à toi de mettre autre chose.

Et bien sur après il lance l'impression du fichier

@Phil69970

 

Pièces jointes

• TEST impression PDF V1.xlsm

  32.6 KB · Affichages: 13

Dernière édition: 7 Décembre 2020

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 7 Décembre 2020

• #7

Phil69970,
c'est super, merci beaucoup à toi, c'est sympa d'aider sur le forum comme ça
belle journée à toi

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 7 Décembre 2020

• #8

Phil69970,

c'est super cela marche très bien, juste un petit problème, sur ma macro elle prenait en compte la taille du tableau (qui peut être sur plusieurs pages en fonction des éléments) et donc imprimait jusqu'à la dernière ligne.
est possible de rajouter cela, j'ai vu qu'il prenait en compte la largeur.

je pense que cela se passe là
With Sh1.PageSetup
DerLig = Range("C" & Rows.Count).End(xlUp).Row
.PrintArea = "$A$1:$H$" & DerLig '+ 2
.FitToPagesWide = 1 'Contrôle la largeur de la page

merci à toi

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 7 Décembre 2020

• #9

Phil69970,
autant pour moi, il y a eu un bug, cela prend bien tout, je sais ce qui s'est passé.
c'est parfait
merci encore

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 7 Décembre 2020

• #10

Phil69970,
en fait il y bien un problème il n'imprime pas à chaque fois l'ensemble du tableau s'il y a beaucoup de ligne
je comprends pas

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 8 Décembre 2020

• #11

Bonjour Mix77, le forum

Remplace dans le code :

VB:

Set Sh1 = Nothing
ActiveSheet.PrintOut            'Imprime

Par :

Code:

Sheets(Array(Sh1.Name)).PrintOut            'Selectionne les feuille à imprimer
Set Sh1 = Nothing

Et tout devrait rentrer dans l'ordre.

@Phil69970

 

Vote positif 0 Vote négatif