Couleur de ma cellule ne suit pas après exécution de ma macro

[Fermé]
Signaler
-
Messages postés
24184
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
-
Bonjour,

J'ai un problème avec une macro que je n'arrive pas à résoudre. Ma macro ci-dessous :
Workbooks.Open Filename:="Z:\5- Equipe_ECS\Gestion_Temps\Bilan_affaires.xls", local:=True
Application.DisplayAlerts = False
Range("A5:G228").Select
Selection.Copy
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.DisplayAlerts = True
Windows("Service_Direction_Septembre.xls").Activate
Sheets("Bruno").Activate
Range("A5").Select
ActiveSheet.Paste
Sheets("Daniel").Activate
Range("A5").Select
ActiveSheet.Paste

s'exécute très bien et réalise exactement ce que je souhaite. Le seul hic, c'est qu'elle ne recopie pas le format exact de ma cellule (format de police, couleur de cellule....)
Il faut que je rajoute certainement quelque chose dans ma macro mais je ne sais pas quelle formule ??
Quelqu'un peut-il me renseigner ?
Merci d'avance,
Claire


1 réponse

Messages postés
24184
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
6 897
Bonjour,

formats :
Range("A5").PasteSpecial Paste:=xlPasteFormats
largeur de colonne :
Range("A5").PasteSpecial Paste:=xlPasteColumnWidths

pas de fichier : pas testé.

eric