Récupérer la couleur d une cellule dans un autre fichier

[massol]

Bonjour,

Je résume mon cas :

Dans un fichier À onglet feuil1 cellule C4 j ai une cellule de couleur rouge sombre (couleur personnalisée). Celle ci provient d une mise en forme conditionnelle.

Je voudrais récupérer cette même couleur dans un fichier B onglet feuil2 cellule D5.
Comment écrire cela en code vba ?
Merci

 

[job75]

Bonsoir massol,

Sur Excel 2003 il faut connaître les conditions de la MFC.

Sur Excel 2007 et versions suivantes on peut utiliser la propriété .DisplayFormat.

Bien entendu les 2 fichiers doivent être ouverts.

A+

 

[massol]

Bonjour,

Etant débutant pouvez-vous préciser ?
A titre d'exemple ci-joint deux fichiers (A et B). Je souhaiterais Récupérer la couleur située dans A (onglet Feuil1) cellule C4 et la retrouver dans le fichier B onglet Feuil 2 cellule B5 (par exemple)..Une tentative de macro dans A mais qui ne fonctionne pas....
Merci...

 

[job75]

Bonjour massol,

Donc avec des fichiers .xlsm vous êtes sur une version postérieure à Excel 2003 ?

Mais la couleur dans votre fichier A ne provient pas d'une MFC... Alors j'y ai mis une MFC !

Sub CopierCouleur()
On Error Resume Next
If IsError(Workbooks("B.xlsm")) Then MsgBox "Ouvrez 'B.xlsm'": Exit Sub
Application.Goto Workbooks("B.xlsm").Sheets("Feuil2").[B5]
ActiveCell.Interior.Color = ThisWorkbook.Sheets("Feuil1").[C4].DisplayFormat.Interior.Color
End Sub

DisplayFormat récupère le format affiché quelle que soit son origine.

A+

 

[massol]

Ca fonctionne parfaitement. Un grand merci !!

Cdlt.
Jérôme.

 

[mo_kt]

Bonjour,

Je remets ce sujet à jour.
Comment faire l'inverse ? Mettre la macro dans le fichier B pour quelle récupère la couleur dans le fichier A ?

Bonne journée !
M.