je travaille sous excel 2007
je trouve que tu est un peu brack dans ta reponse, car il n'est pas toujours facile pr des dedebutants de si retrouver.
je souhaiterais faire 65 copies de cette feuille dans ce classeur
avec des noms differents.
ou s'il faut les créer (et sous quels noms)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim nb_a_copier As Integer, feuille_a_copier As String feuille_a_copier = "7101" nb = 65 For i = 1 To nb Dim toto As Worksheet Set toto = ActiveWorkbook.Sheets.Add toto.Name = CStr(i) toto.Name = CStr(i + Val(feuille_a_copier)) Worksheets(feuille_a_copier).Cells.Copy Destination:=Worksheets(toto.Name).Range("A1") Next
Dim nb_a_copier As Integer, feuille_a_copier As String feuille_a_copier = "7101" nb = 65 For i = 1 To nb Dim toto As Worksheet Set toto = ActiveWorkbook.Sheets.Add toto.Name = CStr(i + Val(feuille_a_copier)) Worksheets(feuille_a_copier).Cells.Copy Destination:=Worksheets(toto.Name).Range("A1") Next