Bonjour le forum,

J'aurais besoin de quelques informations sur la methode open et opentext.

Dans mes macros, j'ai l'habitude d'ouvrir mes fichiers comme suit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
FileSelection = Application.GetOpenFilename("", , "File Selection", , True)
a = 1    
For a = 1 To UBound(FileSelection)
Set Treatedfile = Application.Workbooks.Open(FileSelection(a)) '(OpenFile, xlMSDOS)
avec TreatedFile déclaré comme Workbook et FileSelection comme variant, et je déroule ensuite le code.

Cette fois, je souhaite ouvrir un fichier texte en mettant des points virgule comme délimitant pour les colonnes.
J'ai bien trouvé la méthode suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
FileSelection = Application.GetOpenFilename("", , "File Selection", , True)
    a = 1
    For a = 1 To UBound(FileSelection)
       Workbooks.OpenText Filename:=CStr(FileSelection(a)), DataType:=xlDelimited, Semicolon:=True
le problème, c'est que je n'arrive plus à affecter le fichier ouvert à une variable, en gors à Treated file. Si j'écris:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Treatedfile = Application.Workbooks.OpenText(FileSelection(a), semicolon:=true)
Une erreur de compilation apparait (fonction ou variable attendue) avec openText en surbrillance!!

Pouvez vous m'expliquer et/ou m'aider SVP?

Vous remerciant par avance,

Johann