Aide sur macro

[gildas lechat]

Bonjour le forum, 🙂


Ca fait un moment que je n'ai pas fait appel à vous..

Voila, j'ai une macro permettant de récupérer le contenue d'une celulle pour la copier dans un autre fichier. (mise à jour de dossier)
Cela fonctionne parfaitement.


Dans le cas ou ce n'est pas une valeur à récuper mais la couleur de la cellule, je ne sais pas comment modifier la macro..
Merci de votre aide

For I = 1 To .FoundFiles.Count

If .FoundFiles(I) <> FichierACopierPath Then
Workbooks.Open .FoundFiles(I)
FichierAEcraser = ActiveWorkbook.Name
Workbooks.Open FichierACopierPath
Workbooks(FichierACopier).Worksheets(1).Range("Y17)".Value = Workbooks(FichierAEcraser).Worksheets(1).Range("Y17)".Value
Workbooks(FichierACopier).Worksheets(1).Range("Q18:R18)".Value = Workbooks(FichierAEcraser).Worksheets(1).Range("Q18:R18").Value
Workbooks(FichierAEcraser).Close
Workbooks(FichierACopier).Activate
ActiveWorkbook.SaveAs .FoundFiles(I) 'enregistrement du fichier actuel sur tous les fichiers "a-...." du repertoire et de ses sous dossiers
ActiveWorkbook.Close
End If
Next

 

[Guest]

Re : Aide sur macro

Bonjour,

Exemple:

Pour la couleur de fond d'une cellule

Workbooks(FichierACopier).Worksheets(1).Range("Y17").[COLOR=blue]Interior.ColorIndex[/COLOR] = Workbooks(FichierAEcraser).Worksheets(1).Range("Y17").[COLOR=blue]Interior.ColorIndex[/COLOR]

Pour la couleur d'écriture: .Font.ColorIndex

A+

 

[gildas lechat]

Re : Aide sur macro

Bonjour Hasco,

Merci beaucoup
gildas