Bonjour le forum
Encore moi. je sollicite votre aide pour une modif de code. Je l' ai récuprér sur le forum pour faire une sauvegarde et il fonctionne tres bien.
Moi j' aurais voulu qu' il récuprer le nom en céllule B3 et creée le fichier de sauvegarde avec ce nom
Le code
Sub Archives()
Dim a As Workbook
' Macro par Dan pour Laurent45 le 05/08/06
Workbooks.Add
Set a = ActiveWorkbook
ThisWorkbook.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy Before:=a.Sheets(1)
ActiveWorkbook.SaveAs Filename:="fin de mois_" & Format(Now(), "ddmmyy")
End Sub
Merci d' avance pour toute aide
Aladin
Encore moi. je sollicite votre aide pour une modif de code. Je l' ai récuprér sur le forum pour faire une sauvegarde et il fonctionne tres bien.
Moi j' aurais voulu qu' il récuprer le nom en céllule B3 et creée le fichier de sauvegarde avec ce nom
Le code
Sub Archives()
Dim a As Workbook
' Macro par Dan pour Laurent45 le 05/08/06
Workbooks.Add
Set a = ActiveWorkbook
ThisWorkbook.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy Before:=a.Sheets(1)
ActiveWorkbook.SaveAs Filename:="fin de mois_" & Format(Now(), "ddmmyy")
End Sub
Merci d' avance pour toute aide
Aladin