nom d une feuille sauvegardee

[ninanani]

Bonjour a tous, forum.

J ai la matrice suivante pour enregistrer seulement une feuille d un fichier excel, elle fonctionne bien:

Sub Save_Sheet()

Dim strNom As Variant

strNom = Application.GetSaveAsFilename(ActiveSheet.Name, "Invoices (*.xls),*.xls")

If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If

End Sub

J aimerais savoir s il etait possible que lors de la sauvegarde, le nom (cellule B16) et la date (cellule G16) apparaissent automatiquement pour le nom de la page a sauvegarder?

De plus j aimerais sauvegarder cette page dans un format pdf.

Voili voilo
Merci par avance
😱

 

[PascalXLD]

Re : nom d une feuille sauvegardee

Bonjour

pour le début

strNom = Application.GetSaveAsFilename(ActiveSheet.Name & range("B16") & Format(Range("G16"), "yyyymmdd"), "Invoices (*.xls),*.xls")

Pour la partie pdf il faut avoir une "imprimante" pdf et faire comme une impression

 

[ninanani]

Re : nom d une feuille sauvegardee

Merci bcp pour ton aide, tout fonctionne bien!