Discussion :

[Trarc]

Bonjour,
Je cherche désespérément à initialiser l'argument FieldInfo de la méthode OpenText à partir d'informations transmise par un opérateur.
Tout ce que je trouve se fait directement dans le code par exemple FieldInfo:=Array(Array(0, 1), etc.

Je voudrai juste à définir les colonnes devant avoir un format texte (pour conserver les zéros de donnée texte contenant que des chiffres). Par exemple l'opérateur transmet une variable "3;5" pour indiquer que la colonne 3 et 5 doivent être au format texte.

J'ai dans un premier temps créer une variable string FormCol="Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1),Array(5, 2))" mais FieldInfo:=FormCol
génère une erreur.

Puis j'ai cherché à créer un tableau du genre :

Code :

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

1
2
3
4
5
6
7
8
Dim FormCol(5)
FormCol(1)=Array(1, 1)
FormCol(2)=Array(2, 2)
FormCol(3)=Array(3, 1)
FormCol(4)=Array(4, 1)
FormCol(5)=Array(5, 2)
....
Workbooks.OpenText Filename:=ChemFich, ....FieldInfo:=FormCol()

Mais cela ne marche pas non plus ....

Par avance, merci

[AlainTech]

Bonjour,

Sans avoir testé, je dirais

Code :

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

1
2
3
4
5
6
Dim FormCol(5)
FormCol(1)="Array(1, 1)"
FormCol(2)="Array(2, 2)"
FormCol(3)="Array(3, 1)"
FormCol(4)="Array(4, 1)"
FormCol(5)="Array(5, 2)"

[Trarc]

Merci pour l'idée mais je viens de faire l'essai et cela ne marche pas.
Peut être de la façon dont je transmet le tableau FieldInfo:=FormCol() ?
En tout cas j'ai du mal à comprendre l'initialisation de cet argument.

[BenjGe]

pou moi c:
FieldInfo:=Array(Array(1,4),Array(2,6),etc..)
le premier élément des tableaux etant le numéro de colonne et commençant donc à 1 et non à 0. Mais par contre ce ne doit pas être une variable de type string, c'est bien un tableau qui est attendu.

[Trarc]

pou moi c:
FieldInfo:=Array(Array(1,4),Array(2,6),etc..)
le premier élément des tableaux etant le numéro de colonne et commençant donc à 1 et non à 0. Mais par contre ce ne doit pas être une variable de type string, c'est bien un tableau qui est attendu.

OK pour le tableau mais comment tu l'initialise de façon dynamique ?

[BenjGe]

avec redim preserve

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim obj()
obj = Array(Array(1, 1))
ReDim Preserve obj(1)
obj(1) = Array(2, 1)
ReDim Preserve obj(2)
obj(2) = Array(3, 1)
obj2 = obj(1)
Debug.Print obj2(1)
 
 
Workbooks.OpenText Filename:="C:\Documents and Settings\Benjîle\Bureau\myfile.log", fieldinfo:=obj

[Trarc]

Cela ne vient de la façon de transmettre la variable car j'ai fait un essai qui marche :

Code :

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

1
2
FormCol()=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1),Array(5, 2)))
Workbooks.OpenText Filename:=ChemFich, ....FieldInfo:=FormCol()

J'avoue que l'argument tableau contenant un tableau vide cela me dépasse un peu...