Bonjour
J'ai créé (avec votre grande aide) la macro suivante pour générer plusieurs fichiers à partir d'un fichier source :
Actuellement seule la mise en forme est récupérée dans les fichiers générés et j'ai besoin de récupérer aussi la mise en forme conditionnelle du fichier source. Est ce possible en modifiant ce code ?
Sinon peut-on la rajouter dans la macro ? Il faudrait que les cellules soient rouges avec police blanche, les conditions correspondent à
Merci beaucoup !
J'ai créé (avec votre grande aide) la macro suivante pour générer plusieurs fichiers à partir d'un fichier source :
Code:
Sub CreeClasseurs()
Application.DisplayAlerts = False
[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[g1], Unique:=True
For Each c In Range("G2", Range("G65000").End(xlUp))
Range("G2") = c
Sheets.Add
Sheets("BD2").[A1:D10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("BD2").[G1:G2], CopyToRange:=[A1], Unique:=False
ActiveSheet.Copy
nf=Replace(c,"/","_") ' remplace / par _
ActiveSheet.Name = nf '
ActiveWorkbook.SaveAs Filename:=nf '
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets("BD2").Select
Next c
End Sub
Actuellement seule la mise en forme est récupérée dans les fichiers générés et j'ai besoin de récupérer aussi la mise en forme conditionnelle du fichier source. Est ce possible en modifiant ce code ?
Sinon peut-on la rajouter dans la macro ? Il faudrait que les cellules soient rouges avec police blanche, les conditions correspondent à
Code:
=SI($O5<>"";$X5>=$O5;$X5>=$M5)
Merci beaucoup !