Alguiche
XLDnaute Junior
Bonsoir le forum,
En partant d'un total de TDC je lance une macro pour créer un ou plusieurs rapports journaliers. Pour l'instant cela marche une fois car elle créée la Sheet1 mais à la suivante ça plante évidemment. J'ai cherché une syntaxe du style ActiveSheet.Move pour répéter l'opération plusieurs fois de suite mais sans succès. Si quelqu'un a une idée ou connait la bonne syntaxe je suis preneur.
Sub SaveDR()
Dim ChemR As Variant
Dim Name As String
Selection.ShowDetail = True
Sheets("Sheet1").Move
ChemR = ActiveWorkbook.Path
Name = Format(Range("B2"), "dd.mm.yy")
ActiveWorkbook.SaveAs Filename:=ChemR & "\" & "FVAP_daily_report " & Name & ".xls"
ActiveWorkbook.Close
End Sub
Merci d'avance
Al
En partant d'un total de TDC je lance une macro pour créer un ou plusieurs rapports journaliers. Pour l'instant cela marche une fois car elle créée la Sheet1 mais à la suivante ça plante évidemment. J'ai cherché une syntaxe du style ActiveSheet.Move pour répéter l'opération plusieurs fois de suite mais sans succès. Si quelqu'un a une idée ou connait la bonne syntaxe je suis preneur.
Sub SaveDR()
Dim ChemR As Variant
Dim Name As String
Selection.ShowDetail = True
Sheets("Sheet1").Move
ChemR = ActiveWorkbook.Path
Name = Format(Range("B2"), "dd.mm.yy")
ActiveWorkbook.SaveAs Filename:=ChemR & "\" & "FVAP_daily_report " & Name & ".xls"
ActiveWorkbook.Close
End Sub
Merci d'avance
Al