argument nommé introuvable

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:

---

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

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

Code:

---

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+

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..

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.

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:

---

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

---

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

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?

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:

---

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+

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:

---

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.

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:

---

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+