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?