Dim oNouveauClasseur As Workbook Set oNouveauClasseur = Workbooks.Add(...Captures-tu cette instance, comme ici, ou fais-tu juste un .Add "en l'air" ?
Workbooks.Add Application.DisplayAlerts = False ActiveWorkbook.Worksheets("Feuil2").Delete ActiveWorkbook.Worksheets("Feuil3").Delete Application.DisplayAlerts = True Sheets("Feuil1").Name = "toto" ActiveWorkbook.SaveAs Filename:=Chemin & Year(Date) & MoisDate & JourDate & "." & NumFichier(1) & ".xls" Set Feuiltoto = Workbooks(Year(Date) & MoisDate & JourDate & "." & NumFichier(1) & ".xls").Worksheets("toto")
Dim oNouveauClasseur As Workbook Set oNouveauClasseur = Workbooks.Add With oNouveauClasseur ' Et si le nouveau classeur n'a pas 3 feuilles ? Application.DisplayAlerts = False .Worksheets("Feuil2").Delete .Worksheets("Feuil3").Delete Application.DisplayAlerts = True .Sheets("Feuil1").Name = "toto" ' Que vaut "Chemin" ? ' NumFichier(1), MoisDate et JourDate : c'est quoi, quel type de donnée, que valent ces variables ? .SaveAs Filename:=Chemin & Year(Date) & MoisDate & JourDate & _ "." & NumFichier(1) & ".xls" ' La ligne suivante est bizarre : ' Où "Feuiltoto" est-il dimensionné ? ' Non Set Feuiltoto = Workbooks(Year(Date) & MoisDate & JourDate & "." & NumFichier(1) & ".xls").Worksheets("toto") Set Feuiltoto = .Worksheets("toto") End With
? maVariablepour qu'elle s'inscrive dans la fenêtre.