Bonjour a tous, le forum, et bon debut de journee.
J'ai une macro qui me permet de sauvegarde une feuille de mon fichier excel. Cette macro va faire un sorte que lors de la sauvegarde le titre vienne automatiquement avec un nom ecrit en "B10" et une date ecrite en "G5".
J'aimerais rajouter un element dans cette macro, que en plus du nom et de la date, j'ai un numero present en "G6" dans le titre de cette sauvegarde.
J'ai essayer plein de chose, mais cela ne fonctionne pas.
Voila la macro :
En vous remerciant grandement par avance de votre aide..
J'ai une macro qui me permet de sauvegarde une feuille de mon fichier excel. Cette macro va faire un sorte que lors de la sauvegarde le titre vienne automatiquement avec un nom ecrit en "B10" et une date ecrite en "G5".
J'aimerais rajouter un element dans cette macro, que en plus du nom et de la date, j'ai un numero present en "G6" dans le titre de cette sauvegarde.
J'ai essayer plein de chose, mais cela ne fonctionne pas.
Voila la macro :
Code:
Sub Save_Sheet()
Dim strNom As Variant
ChDir "C:\Documents and Settings\Administrator\Desktop\nina\Paid invoices"
toto = Name & Range("B10") & Format(Range("G5"), " yyyy-mm-dd")
strNom = Application.GetSaveAsFilename(toto, "Simple Invoice (*.xls),*.xls")
If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If
End Sub
En vous remerciant grandement par avance de votre aide..