couleur depuis macro
couleur depuis macro - VB/VBA/VBS - Programmation
Marsh Posté le 25-03-2006 à 15:51:14
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 |
Ce code doit être adapté un peu pour déterminer la position du début de chaque couleur et sa longueur.
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
Marsh Posté le 25-03-2006 à 15:30:08
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é