Discussion :

[manue22]

Bonjour, je souhaite modifier le séparateur d'un fichier excel que j'ouvre via un prog en VB5, mais quand j'essai 'accéder aux argument de Open (filename..) as workbooks, j'ai le message d'erreur suivant:

"Erreur de compilation, argument nommé introuvable."

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
Dim fichiersave As String
 
fichiersave = App.Path + "\" + adresse_expl + ".AH" + "\" + fichier_VIDAGE
 
Set appExcel = CreateObject("Excel.Application")
 
appExcel.Workbooks.Open filename:=fichiersave, Origin:=xlWindows, Semicolon:=True, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Si quelqu'un pouvait éclairer ma lanterne.
Merci

[LeForestier]

bonjour,
pour délimiter le problème j'essayerrai d'abord d'ouvrir le fichier sans les options..

Code :

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

appExcel.Workbooks.Open filename:=fichiersave

Et dans l'entrée du nom de fichier évite d'employé les + (plus) en les remplacant par &(et)
Tu dit...
A+

[manue22]

j'ai essayé avec cette ligne et je n'ai pas l'erreur.
C'est à partir du moment où je rajoute les arguments que j'ai l'erreur qui survient..
Ce que je souhaite faire c'est pouvoir choisir le séparateur du fichier .csv que j'ouvre..

[Singular]

Bonjour Manue22!

Je n'ai rien testé mais, à première vue, tu devrais peut-être éliminer la répétition de l'argument "Semicolon:=True" dans ton énoncé Open.

[ouskel'n'or]

Bonjour,
Dans cette ligne "fichiersave = App.Path + ... " qu'y a-t-il dans app.path ? Je ne vois pas d'instance App.
Sinon, pour l'essentiel, tu ne dois pas utiliser "Open" mais

Code :

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

appExcel.Workbooks.OpenText Filename:=... etc

et supprimer la répétition signalée par Singular
Bonne journée
A+

[manue22]

Merci de vos réponses..Je n'avais pas vu pour mon doublon..
j'ai fait ce que vous m'avez conseillé et je n'ai plus l'erreur..
A l'ouverture du fichier EXcel, je dois pouvoir choisir le séparateur..Mais je n'y arrive pas. Quand je mets Comma:=true et Semicolon:=false, cela ne change rien, le séparateur est toujours point virgule..
Est-ce que vous savez comment choisir le séparateur à l'ouverture du fichier? Est-ce possible?

[ouskel'n'or]

Je ne comprends pas bien ta question. Le séparateur est celui qui se trouve dans le fichier texte. Si ton séparateur est un point-virgule (ton exemple) la ligne suivante devrait coller, par contre, ConsecutiveDelimiter devrait être vrai.
Teste ça

Code :

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

1
2
3
4
5
appExcel.Workbooks.Open filename:=fichiersave, Origin:=xlWindows, _
Semicolon:=True, StartRow:=2, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, 
ConsecutiveDelimiter:=True, Tab:=False, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Si ce n'est toujours pas ça, précise la structure de ton fichier.
A+

[manue22]

Désolée, je ne suis pas toujours très claire dans mes questions, tu n'es pas le seul à me le dire...
Je vais essayer d'être plus clair..
Je souhaite ouvrir un fichier .csv que j'ai réalisé au préalable. Ce fichier .csv a été créée soit avec une virgule comme séparateur, soit avec un point virgule.
Quand je créée le fichier .csv avec un point virgule comme séparateur et que je l'ouvre avec mon programme, il n'y a pas de soucis..
Quand je créée le fichier .csv avec une virgule comme séparateur et que je l'ouvre avec mon programme, la virgule n'est pas reconnue comme séparateur même quand j'écris ces lignes:

Code :

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

1
2
3
4
5
6
 
appExcel.Workbooks.Open filename:=fichiersave, Origin:=xlWindows, _
Semicolon:=false, StartRow:=2, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, 
ConsecutiveDelimiter:=True, Tab:=False, Comma:=true, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Par contre quand je double clique pour l'ouvrir, comme n'importe quel fichier, il me l'ouvre avec le séparateur de colonne "," comme je le souhaite.

[ouskel'n'or]

Comment identifies-tu le csv avec séparateur virgule de celui avec séparateur point-virgule ?
as-tu essayé de l'ouvrir comme un txt ?

Code :

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

1
2
3
4
5
appExcel.Workbooks.OpenText filename:=fichiersave, Origin:=xlWindows, _
Semicolon:=false, StartRow:=2, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, 
ConsecutiveDelimiter:=True, Tab:=False, Comma:=true, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

A+