J'ai repris une macro de JB que j'aimerai adapt=E9e. La voici:
Sub Extrait()
Sheets("edibase").Select
For Each c In Range("a2", [a365].End(xlUp)) ' pour chaque jour
On Error Resume Next
Sheets(c.Value).Select ' la feuille existe t-
elle?
If Err <> 0 Then
Sheets("Mod=E8le").Copy After:=3DSheets(Sheets.Count) ' cr=E9ation
ActiveSheet.Name =3D c.Value
End If
Next c
End Sub
Sur la feuille edibase, j'ai en A2:A200 des dates au format jjj jj/mm/
aa. Je voudrais cr=E9er les 200 onglets avec le avec le nom des dates.
Que faut-il modifier selon vous sur la ligne cr=E9ation?
