VBA Excel: Ajout de données dans un fichier .csv

Aurélia -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 22 mars 2014 à 17:26

Bonjour,

Je dispose de fichiers au format .csv que j'ouvre avec Excel 2010 et qui s'affichent correctement, sans que les séparateurs n'apparaissent.
Tels qu'ils s'affichent dans Excel, j'aimerais, par une macro, pouvoir:
- insérer une colonne en D,
- l'intituler "Traitement" en D5,
- de D6 à la dernière ligne du tableau (nombre de lignes variable), coller la valeur contenue en B1.
Et ce, sans modifier l'extension du fichier (je parviens à le faire sur un fichier .xlsx mais pas sur un .csv); est-ce réalisable?

Je vous en remercie par avance!

A voir également:

Vba csv
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

un exemple:

    'votre code ouverture
    '
    Fichier = ActiveWorkbook.Name
    Windows(Fichier).Activate
    'derniere cellule non vide colonne A
    derlig = Range("A" & Rows.Count).End(xlUp).Row
    'insere colonne D
    Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D5").FormulaLocal = "Traitement"
    'copie B1
    Range("B1").Copy Range("D6:D" & derlig)
    'sauvegarde csv
    ActiveWorkbook.SaveAs Filename:="c:\DATA.csv", Local:=True
    ActiveWorkbook.Close

Aurélia

Bonjour,

Merci pour le code. En l'exécutant, la partie "Fichier = " sur la ligne 3 ressort en erreur avec le message "variable non définie".
De plus, en le lisant, je m'aperçois que j'ai manqué de précision dans ma demande: j'aimerais en effet pouvoir lancer la macro sans avoir à ouvrir les fichiers .csv qui se situent dans le même répertoire. Le code s'exécutera donc sur un fichier "texte" qui, me semble-t-il, ne devrait pas reconnaître les références de cellules: "B1", Columns("D:D"); mais je peux me tromper...

Merci d'avance!

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

comme indique, "variable non définie" c'est que la variable fichier est non declaree

je m'aperçois que j'ai manqué de précision dans ma demande Oui

code s'exécutera donc sur un fichier "texte" Pas forcement, parce que la ce sera un peu capilotracte

Aurélia

Re,

Merci pour les réponses.
Comment dois-je déclarer la variable fichier?

Merci

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Dim Fichier tout simplement !!!!!

Aurélia

Re,

Merci bcp!
Autre petite question: quelle modification apporter au code pour que le fichier reprenne son nom et son emplacement d'origine à l'enregistrement sans avoir à les préciser à chaque fois, et non "Data.csv"?

Merci encore

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires