Bonjour à tous,
J'ai crée un bouton réalisant l'import d'un fichier csv sous une feuille de calcul excel.
Cependant je souhaite que les colonnes des intitulés soient mises en gras sous fond bleu ciel.
J'ai donc pensé à faire un truc comme ça :
Si la première case de la ligne contient en premier caractère le ' : ' alors toutes les cellules
de la lignes seront mises en gras (Courrier new en gras taille 8) sous fond bleu ciel.
Pour réaliser l'import j'ai utilisé un enregistrement macro de la commande d'excel :
Données < Données externes < Importer des données dont voici le code :
Je précise que j'ai ajouté une petite boite de dialogue pour que l'user aille chercher le fichier à ouvrir.
Ma question est donc :
Ou mettre le code de ce que je veux faire ? Je dois faire une fonction ? Le mettre direct dans le code d'import ?
Merci d'avance,
Bonne journée
PS : J'ai joint la tête de mon fichier csv pour que vous puissiez voir comment il est construit!
J'ai crée un bouton réalisant l'import d'un fichier csv sous une feuille de calcul excel.
Cependant je souhaite que les colonnes des intitulés soient mises en gras sous fond bleu ciel.
J'ai donc pensé à faire un truc comme ça :
Si la première case de la ligne contient en premier caractère le ' : ' alors toutes les cellules
de la lignes seront mises en gras (Courrier new en gras taille 8) sous fond bleu ciel.
Pour réaliser l'import j'ai utilisé un enregistrement macro de la commande d'excel :
Données < Données externes < Importer des données dont voici le code :
Code:
Dim QuelFichier
QuelFichier = Application.GetOpenFileName("Fichier csv, *.csv", , "Importer un fichier csv")
Sheets("ImportCSV").Cells.Clear
With Sheets("ImportCSV").QueryTables.Add(Connection:= _
"TEXT;" & QuelFichier _
, Destination:=Sheets("ImportCSV").Range("A1"))
.Name = "ImportCSV"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
wkbProject.Activate
wkbProject.Worksheets("ImportCSV").Select
Je précise que j'ai ajouté une petite boite de dialogue pour que l'user aille chercher le fichier à ouvrir.
Ma question est donc :
Ou mettre le code de ce que je veux faire ? Je dois faire une fonction ? Le mettre direct dans le code d'import ?
Merci d'avance,
Bonne journée
PS : J'ai joint la tête de mon fichier csv pour que vous puissiez voir comment il est construit!
Pièces jointes
Dernière édition: