Re : copie d'information sur feuille excel automatique
Bonjour,
Je te propose la solution suivante :
1) Tu dois être capable de déterminer si l'onglet du mois en court est créé, ou encore mieux, quel onglet correspond à quel mois.
Par exemple, par rapport au nom de l'onglet.
2) La fonction qui remplit l'onglet du mois à partir de ton userform doit connaître le mois en court et savoir reconnaitre si l'onglet du mois est créé, sinon, le créer et ensuite y accéder.
Ex : Nom Onglet = %racine%_mmaa, où %racine% est un nom fixe de ton choix, mm est le numéro du mois (01, 02 ...) et aa le numéro de l'année (01, 02 ...)
Tu récupères la date système sous le même format que ton nom d'onglet :
Dim sCeMois As String
sCeMois = Format(Date$, "mmyy")
Tu cherches l'onglet correspondant au mois en court et s'il n'existe pas tu le crées (par exemple en copiant celui du mois d'avant que je présume exister).
Dim shCeMois As Worksheet
Dim sMoisDernier As String
On Error Resume Next
Set shCeMois = Sheets(%racine% & "_" & sCeMois)
If Err.Number Then
sMoisDernier = Format(DateAdd("m", -1, Date$), "mmyy")
Sheets(%racine% & "_" & sMoisDernier).Copy After:=Sheets(Sheets.Count)
Set shCeMois = Sheets(Sheets.Count)
shCeMois.Name = %racine% & "_" & sCeMois
EndIf
Err.Clear
On Error GoTo 0
Le code est, bien sur, à adapter un peu.
@+