Merci Effectivement c'est une solution à laquelle j'avais pensé, mais comme ce n'est pas pour moi je voulais automatiser le tout. Encore merci pour ton aide Michel
----- Mail Original ----- De: "Jean-Louis Cadeillan" <[email protected]> À: [email protected] Envoyé: Mercredi 27 Octobre 2010 00:22:21 Objet: [users-fr] Re: Macro : calc Bini Michel <m.bini <at> ville-pantin.fr> writes: > > Bonjour > J'aimerai pouvoir traiter un fichier type csv pour qu'il puisse avoir le bon format dans calc lorsque je > l'ouvre ou l'incorpore. > Le fichier original a cette forme et comporte une centaine de données : > > "212"|"04118"|"6142023"|"09001172"|"040281856"|"02012009"|"26122008"|+ > "00000000"|"E"|"0000145"|"00000003767"|+ > "LA COMMUNE CENTRE DE LOISIRS LE14 R SCANDICCI " > > Je voudrais qu'il devienne : > > EauDateFacture EauDateRelevé EauDateRelevéprécédent volume montant facture lieu > compteur > 02/01/2009 26/12/2008 0 145 37,67€ LA COMMUNE CENTRE DE LOISIRS LE14 R SCANDICCI > Je ne suis pas très fort en macro. Quelle piste je peux suivre ? > > Merci > > Michel > Dans ton cas de figure, tu n'es pas obligé de faire une macro : - dans Calc, fichier > ouvrir - dans la boîte de dialogue "Import de texte" : * choisir "séparé par" "point virgule" * pour les colonnes 6 et 7, choisir "type de colonne" "date(jma)" puis OK - dans Feuille2, si la feuille 1 se nomme "Source" : * saisir (ou copier) la ligne de titres en ligne 1 * en A2 : =SI(Source.F1="";"";Source.F1) puis étirer la formule jusqu'en C2 * en D2 : =SI(Source.J1="";"";Source.J1) puis étirer la formule jusqu'en F2 * en E2, modifier en : =SI(Source.K1="";"";Source.K1/100) et formater en monétaire * étirer les six formules vers le bas aussi loin que nécessaire (par exemple jusqu'à la ligne 101) Ça y est les données sont telles qu'elles devraient être ! Cordialement Jean-Louis --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
