Si tu as une version Excel 2002, regarde dans l'aide de la méthode "Open" , tu peux définir le paramètre "Local" de la méthode pour obtenir ce que tu veux .
Pour les versions plus anciennes ... il y a ceci
Je crois que cette macro est sur le site de Frédéric Sigonneau. '---------------------------- Sub CSVOpener() 'd'après P. Penet, mpfe Dim wb As Workbook, NomFich
With Application NomFich = Application.GetOpenFilename("Fichiers texte,*.csv;*.txt") If NomFich = False Then Exit Sub Set wb = .Workbooks.Open(NomFich) wb.Sheets(1).Columns(1).TextToColumns Range("A1"), , , False, , True End With
End Sub '----------------------------
Salutations!
<titi> a écrit dans le message de news: Bonjour
j'essaie d'ouvrir un csv par macro mas je n'obtiens pas le resultat obtenu
en fait ma macro s'obstine à ne pas voir les ; elle me met tous les champs dans la première colonne
et le plus curieux c'est qu'en passant par l'enregistreur de macros le code donne ca
Si tu as une version Excel 2002, regarde dans l'aide de la méthode "Open" , tu peux définir le paramètre "Local" de la
méthode pour obtenir ce que tu veux .
Pour les versions plus anciennes ... il y a ceci
Je crois que cette macro est sur le site de Frédéric Sigonneau.
'----------------------------
Sub CSVOpener()
'd'après P. Penet, mpfe
Dim wb As Workbook, NomFich
With Application
NomFich = Application.GetOpenFilename("Fichiers texte,*.csv;*.txt")
If NomFich = False Then Exit Sub
Set wb = .Workbooks.Open(NomFich)
wb.Sheets(1).Columns(1).TextToColumns Range("A1"), , , False, , True
End With
End Sub
'----------------------------
Salutations!
<titi> a écrit dans le message de news:1i3mc0tb1po6qs6m8op93igf937ihevh89@4ax.com...
Bonjour
j'essaie d'ouvrir un csv par macro
mas je n'obtiens pas le resultat obtenu
en fait ma macro s'obstine à ne pas voir les ;
elle me met tous les champs dans la première colonne
et le plus curieux c'est qu'en passant par l'enregistreur de macros
le code donne ca
Si tu as une version Excel 2002, regarde dans l'aide de la méthode "Open" , tu peux définir le paramètre "Local" de la méthode pour obtenir ce que tu veux .
Pour les versions plus anciennes ... il y a ceci
Je crois que cette macro est sur le site de Frédéric Sigonneau. '---------------------------- Sub CSVOpener() 'd'après P. Penet, mpfe Dim wb As Workbook, NomFich
With Application NomFich = Application.GetOpenFilename("Fichiers texte,*.csv;*.txt") If NomFich = False Then Exit Sub Set wb = .Workbooks.Open(NomFich) wb.Sheets(1).Columns(1).TextToColumns Range("A1"), , , False, , True End With
End Sub '----------------------------
Salutations!
<titi> a écrit dans le message de news: Bonjour
j'essaie d'ouvrir un csv par macro mas je n'obtiens pas le resultat obtenu
en fait ma macro s'obstine à ne pas voir les ; elle me met tous les champs dans la première colonne
et le plus curieux c'est qu'en passant par l'enregistreur de macros le code donne ca