couleur depuis macro

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : couleur depuis macro

poolito

voilà j'aimerais savoir s'il est possible de mettre de la couleur dans les noms de fichiers excel?
Je m'explique une macro enregistre le nom de fichhier en fonction de cellule met la date du jour
Lidée pour plus de clarté est de colorier le texte du nom de fichier de différente couleur suivant l'info
Voici le code actuel qui fonctionnne au poil

Dim Repertoire As String
Dim Fichier As String
Dim Extension As String
Repertoire = "C:\Documents and Settings\Admin\Mes documents\FCS Global\SUIVI CLIENTS\DEVIS\DEVIS 2006\"
Extension = ".xls"
Fichier = "Devis N° " & Cells(16, 4) & " " & Format(Now, "dd-mm-yy" ) & " " & Cells(2, 9).Value & " OBJET = " & Cells(17, 3).Value
ActiveWorkbook.SaveAs Filename:= _
Repertoire & Fichier & Extension _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Le fichier s'enregistre donc en donnant
Devis n°1 24-03-2006 client OBJET = Fourniture.xls
grâce à cette ligne du code

Fichier = "Devis N° " & Cells(16, 4) & " " & Format(Now, "dd-mm-yy" ) & " " & Cells(2, 9).Value & " OBJET = " & Cells(17, 3).Value

et je souhaiterais par expemple
Devis n°1 24-03-2006 client OBJET = Fourniture

en faisant une macro couleur j'obtiens cela

Selection.Font.ColorIndex = 3

mais je ne sais pas comment faire pour obtenir le résultat souhaité

Publicité

olivthill

A quel endroit faudrait-il que les couleurs seraient visibles ?

Dans le répertoire/dossier de Windows, les couleurs ne seront pas visibles, c'est impossible.

Par contre, elles peuvent être visibles si ce nom de fichier est contenu dans une cellule, et que l'on regarde la cellule. Dans ce cas, la question concerne la colorisation du contenu quelconque d'une cellule, et pas seulement la colorisation d'un nom de fichier.

J'ai colorié une partie du texte d'une cellule. La macro qui a été enregistrée donne :

Range("B5" ).Select
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With

Ce code doit être adapté un peu pour déterminer la position du début de chaque couleur et sa longueur.

poolito

ok merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

couleur depuis macro

Sujets relatifs
Word - Macro - Protection du document	Word - Macro - Enregistrement auto pied de page
Ouverture d'un fichier Excel avec un XML et lancement d'une macro	[VBA] [Resolu] [Thx to Epena o/ ] Probleme de couleur de cellule [...]
PROBLÈME MACRO EXCEL	PROBLÈME AVEC MACRO SUR EXCEL
Changement couleur sommaire	Macro sans bouton
Macro pour convertir en masse	Couleur différente : 1 ligne sur 2
Plus de sujets relatifs à : couleur depuis macro

Page générée en 0.037 secondes