PB avec macro sous Excel 2000 (sp3)

Bonjour,

Je construit une macro (en mode "enregistrement"). Cette macro consiste à ouvrir un fichier de type .csv. Nickel tout se passe bien à l'enregistrement et mon fichier .csv s'affiche très bien avec le séparateur ";" qui est bien pris en compte.

Je sauvegarde cette macro, et je l'exécute et bien là l'affichage est mauvais, le séparateur ";" n'est pas pris en compte. Pourquoi ???????????

Merci pour votre aide

version: excel 2000 sp3.

salut,

je ne suis pas un pro du VBA comme certains ici mais peux-tu inserer ton code ici ?

A te lire,

Souri84

souri84 a écrit :

salut,

je ne suis pas un pro du VBA comme certains ici mais peux-tu inserer ton code ici ?

A te lire,

Souri84

Sub Macro1()

'

' Macro1 Macro

' Macro enregistrée le 31/03/2008 par Michel DUPONT

'

' Touche de raccourci du clavier: Ctrl+o

'

Range("A1").Select

Workbooks.Open Filename:= _

"D:\Documents and Settings\jeanmian\Desktop\fichier.csv"

Windows("fileorigine.xls").Activate

Range("A1").Select

End Sub

Je précise que le dossier "documents and settings" est sur le disque d:

cett petite macro ouvre (a partir d'un fichier excel) un fichier (fichier.csv) qui est sur le bureau.

En mode création le fichier s'ouvre nickel, et des qu je veux exécuter la macro les ";" ne sont pas pris en compte.

Merci pour ton aide -

et une macro par l'import de données externes, de ce style :

Sub Macro1()

    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\NOM DU FICHIER", Destination:=Range( _
        "A1"))
        .Name = "test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

J'ai essayé avec plusieurs fichiers csv et ça marche nickel...

A te lire,

Souri84

Je viens peut être de trouver la cause de ton problème:

Va voir dans panneau de configuration/paramètres régionaux et linguistiques.

Là tu as une fenêtre qui s'ouvre.

Dans l'onglet options régionales, cliques sur personnaliser.

Ici, vérifies que le séparateur de liste est bien le ; et non la , ou le .

A te lire,

Souri84

souri84 a écrit :

Je viens peut être de trouver la cause de ton problème:

Va voir dans panneau de configuration/paramètres régionaux et linguistiques.

Là tu as une fenêtre qui s'ouvre.

Dans l'onglet options régionales, cliques sur personnaliser.

Ici, vérifies que le séparateur de liste est bien le ; et non la , ou le .

A te lire,

Souri84

Tou d'abord, merci pour tous ces conseils.

J'ai vérifié dans les options linguistiques et c'est bien le séparateur de liste ";" qui était activé. J'y ai pourtant cru lorsque tu m'as transmis cette suggestion.

En revanche ta deuxième idée qui consiste à passer par un import de données externes est TIP TOP, ça marche nickel. Je me suis inspiré de ta macro proposée ci-dessus en la complètant (car j'importe 2 fichiers) et ensuite je fais diverses opérations:

(le résultat final est SUPER) et la macro est rapide.

Je suis RAVI, et encore merci de m'avoir aidé à solutionner mon problème.

Bien cordialement -

Un petit [résolu] dans le titre pour marquer la résolution du problème

Merci,

Souri84