Discussion :

[astrolane]

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 !

[Alqualonde]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[astrolane]

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

Je vais essayer ce que tu m'écris


Merci

[astrolane]

avec une macro quelle est la commande pour effectuer l'ajustement auto de toutes les colonnes d'un tableau ?
Merci par avance !

[Alqualonde]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !