[XL-2010] Mettre en forme automatiquement : csv->excel

[nestea57]

Bonjour,
Avec un logiciel de mesure physique, j'obtiens un fichier csv avec des données séparées par des virgules.
Le nombre de colonnes est toujours le même mais à chaque mesure, le nombre de lignes peut varier ( on ne laisse pas l'enregistrement des données pendant la même durée )

Je voudrais savoir comment mettre en forme automatiquement chaque nouveau fichier csv.
Pour avoir une couleur pour chaque colonne etc... sans devoir tout resélectionner.
Donc que je le fasse une fois et ensuite que j'importe le fichier csv et voilà.

Merci bien

[Daniel.C]

Bonjour,

Fais l'opération après avoir activé l'enregistreur de macros. Arrête l'enregistreur une fois que tu as fini. Poste ensuite ici la macro obtenue. Si tu ne sais pas te servir de l'enregistreur de macros, dis-le.

[nestea57]

D'accord, je ne savais pas mais j'ai trouvé sur le net.
J'enregistre tout ça mais je doute que ça va me supprimer et me remplacer le titre de chaque colonne.

En fait c'est avoir un classeur bien présenté et seulement changer les données qui sont dedans avec un autre fichier csv.

Bref je vais enregistrer la macro de toute la présentation entière.

Merci bien

[bbil]

Tiens en supposant que ton format comprend une ligne d'entête, et qu'ensuite toutes les lignes ont le même format que la ligne 2 ..

créé une feuille "modele" comprenant ces 2 lignes (entêtes et 1° ligne de données ) formatées.

puis étudie ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LAnce()
 Dim wk As Workbook
 Dim shModele As Worksheet
 Dim iNbLigne As Integer
 Dim rDest As Range 'lignes de données du tableau destinatire
 Set shModele = ThisWorkbook.Sheets("modele") 'définit la feuille modéle
 Set wk = Workbooks.Open("C:\Documents and Settings\Administrateur\Mes documents\Classeur1.csv")
 shModele.Cells.Copy
 wk.Sheets(1).Cells.PasteSpecial xlPasteFormats 'Colle format sur nouveau classeur
 wk.Sheets(1).Rows(2).Copy 'Copie format 2° ligne ..
 iNbLigne = wk.Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count 'Compte nombre de lignes de données
 Set rDest = wk.Sheets(1).Rows("2:" & iNbLigne)
 rDest.PasteSpecial xlPasteFormats 'Formate les lignes de données
End Sub