XL 2013 Imprimer PDF avec date et nom autmatique

[mix770]

Bonjour le forum,

j'ai une macro pour imprimer en PDF en prenant en compte le Nb de pages automatiquement qui fonctionne très bien.

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

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

ActiveSheet.PrintOut
End Sub


j'ai essayé d'y intégrer un nom et date d'édition et la je cagouille !!

en fait je souhaiterai qu'il intègre le nom qui se trouve sur "c:9" et la date d'impression.


avez vous une piste ?
merci à vous

 

[Phil69970]

Bonjour Mix77, le forum

Ceci devrait faire ton bonheur

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

@Phil69970

 

[mix770]

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

 

[Phil69970]

Mix77, le forum

Un fichier anonyme serait le bienvenu

@Phil69970

 

[mix770]

Phil69970,
merci à toi
en post

 

[Phil69970]

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

 

[mix770]

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

 

[mix770]

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

 

[mix770]

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

 

[mix770]

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

 

[Phil69970]

Bonjour Mix77, le forum

Remplace dans le code :

Set Sh1 = Nothing
ActiveSheet.PrintOut            'Imprime

Par :

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

Et tout devrait rentrer dans l'ordre.

@Phil69970