Bonjour,
J'ai besoin d'aide.
A partir d'un classeur existant, je souhaite copier plusieurs feuilles vers un nouveau classeur et le classeur.
Cela fonctionne pas.
Merci,
Sub Macro7()
Dim objWorkbookCible As Workbook
Dim objworkbooksource As Workbook
Set objworkbooksource = ActiveWorkbook
Worksheets(4).Copy
Set objWorkbookCible = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:="D:\titi du " & Format(Now, "dd.mm.yyyy") & ".xls"
Worksheets(9).Copy
Set objWorkbookCible = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:="D:\titi1 du " & Format(Now, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\ Classeur du " & Format(Now, "dd.mm.yyyy") & ".xls"
End Sub
J'ai besoin d'aide.
A partir d'un classeur existant, je souhaite copier plusieurs feuilles vers un nouveau classeur et le classeur.
Cela fonctionne pas.
Merci,
Sub Macro7()
Dim objWorkbookCible As Workbook
Dim objworkbooksource As Workbook
Set objworkbooksource = ActiveWorkbook
Worksheets(4).Copy
Set objWorkbookCible = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:="D:\titi du " & Format(Now, "dd.mm.yyyy") & ".xls"
Worksheets(9).Copy
Set objWorkbookCible = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:="D:\titi1 du " & Format(Now, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\ Classeur du " & Format(Now, "dd.mm.yyyy") & ".xls"
End Sub