Cela ne servira à rien car l'userform est déchargé à chaque fois qu'on valide ....
Bonjour fanch ,
merci pour ces précisions. En effet, je conserve donc ta solution qui fonctionne très bien.
En restant dans le même thème, voici la macro qui fonctionne très bien, cependant avec ta solution, cette macro fonctionne uniquement de l'année en cours avec le mois en cours et j'aurai souhaité qu'elle puisse fonctionner sur un mois défini grossièrement pour le mois de janvier
Sub Impression()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " &
Janvier(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If
End Sub
au lieu de :
Sub Impression()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Month(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If
End Sub
si tu as une solution, j'en serai très ravi.
Par avance, merci