Bonjour,
La macro ci-dessous permet de créer un PDF en incluant les deux dates d'une période dans le nom du fichier généré, le jour et le mois sont bien présents mais l'année est supprimée, j'obtiens pour nom de fichier :
Ventes par article du 09/08 au 10/08
Les deux cellules D12 et F12 contenant chacune des dates sont au format date 01/01/01 et contiennent bien des dates complètes.
Je voudrais obtenir les dates complètes dans le nom des fichiers PDF créés.
[code]Sub Ventes_Image2_QuandClic()
Dim Nom As String
Dim Derligne As Long
Derligne = Sheets("Ventes").Cells(Rows.Count, "A").End(xlUp).Row
Nom = "Ventes par article du " & Sheets("Ventes").Range("D12") & " au " & Sheets("Ventes").Range("F12") & ".pdf"
ActiveSheet.PageSetup.PrintArea = "$A$2:$B$" & Derligne ' ajout pour forcer la zone ˆ chaque fois
Worksheets("Ventes").ExportAsFixedFormat xlTypePDF, _
"Disque dur:Users:admin:Ventes:Facturier:" & Nom
MsgBox "Récapitulatif PDF sauvegardé"
End Sub
/code]
Je vous remercie pour votre aide.
Dul