Bonjour
Je suis novice en VBA et en bidouillant un peu des codes que j'ai trouvé sur internet j'ai construit ce code mais in ne marche pas.
Mon erreur est apparemment à la denière ligne pour renommer le classeur. Il y a le message d'erreur "Erreur de compilation:Impossible d'affecter à une propriété en lecture seule" avec ".Name" sélectionné.
Je suis sûr que ça doit être une petite erreur du genre oublier de cocher une case ou alors il me manque quelque chose dans le code.
Merci d'avance pour votre réponse.
Je suis novice en VBA et en bidouillant un peu des codes que j'ai trouvé sur internet j'ai construit ce code mais in ne marche pas.
Code:
Sub copier()
ThisWorkbook.SaveAs "H:\sauvegardes\test1.2.xls"
Workbooks("test1.2.xls").Activate
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Formulaire").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete
With Workbooks("test1.2.xls")
.Name = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "h" & Minute(Time) & "min"
End Sub
Mon erreur est apparemment à la denière ligne pour renommer le classeur. Il y a le message d'erreur "Erreur de compilation:Impossible d'affecter à une propriété en lecture seule" avec ".Name" sélectionné.
Je suis sûr que ça doit être une petite erreur du genre oublier de cocher une case ou alors il me manque quelque chose dans le code.
Merci d'avance pour votre réponse.