[VBA]macro excel ouverture et transformation de fichier

Version imprimable

27/04/2007, 15h22
astrolane

[VBA]macro excel ouverture et transformation de fichier

Bonjour,

Je voudrais savoir si il est possible de faire une macro excel permettant :
1. D'ouvrir un fichier csv
2. D' effectuer un ajustement auto des cellules.
3. puis d'enregistrer le fichier en db4

Est-ce que quelqu'un connait les commandes permettant d'effectuer
ce type d'opérations ?

Merci de m'éclairer sur ce sujet !!

encore merci d'avance !:)

Un truc de ce genre ça irait pas ? Je suis pas très sûr que l'extension db4 marche bien en faisant comme ça car je n'utilise jamais celle-ci (à vrai dire je ne sais même pas à quoi elle est associée)

Code:

1
2
3
4
5
6
7
8
9
10
Workbooks.Open Filename:= _
        "Z:\Chemin\Nom_fichier.csv"
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1)
    ActiveWorkbook.SaveAs Filename:="Y:\Chemin_sortie\Nom_fichier_sortie.db4", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

27/04/2007, 16h25
astrolane

enregistrement en dbf version 4

Pardon, j'ai fait une coquille, il s'ait d'enregistrer en .dbf (version 4) et non en
db4 :oops:
Désolé :?

Je vais essayer ce que tu m'écris

Merci
27/04/2007, 17h35
astrolane

ajustement automatique

avec une macro quelle est la commande pour effectuer l'ajustement auto de toutes les colonnes d'un tableau ?
Merci par avance ! ;)
02/05/2007, 11h19
Alqualonde
Bonjour,
Code:

1 2 Cells.Select Cells.EntireColumn.AutoFit
Ces quelques lignes devraient suffire ;)

NB : Pour retrouver facilement cela, il suffit d'enregistrer une macro en faisant la manip à la main puis d'aller voir le code, ça aide bien !