Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1566 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  couleur depuis macro

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

couleur depuis macro

n°1332130
poolito
Posté le 25-03-2006 à 15:30:08  profilanswer
 

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é

mood
Publicité
Posté le 25-03-2006 à 15:30:08  profilanswer
 

n°1332141
olivthill
Posté le 25-03-2006 à 15:51:14  profilanswer
 

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.

n°1332144
poolito
Posté le 25-03-2006 à 15:56:13  profilanswer
 

ok merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  couleur depuis macro

 

Sujets relatifs
Word - Macro - Protection du documentWord - 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 EXCELPROBLÈME AVEC MACRO SUR EXCEL
Changement couleur sommaireMacro sans bouton
Macro pour convertir en masseCouleur différente : 1 ligne sur 2
Plus de sujets relatifs à : couleur depuis macro


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR