Discussion :

[johannj]

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

[tototiti2008]

Bonjour johannj,

en effet, j'avais observé la même chose

la solution que j'avais trouvé est la suivante :

Code :

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

1
2
3
4
5
FileSelection = Application.GetOpenFilename("", , "File Selection", , True)
    a = 1
    For a = 1 To UBound(FileSelection)
       Workbooks.OpenText Filename:=CStr(FileSelection(a)), DataType:=xlDelimited, Semicolon:=True
Set Treatedfile = Activeworkbook

[johannj]

Bonjour le forum,

Merci tototiti2008 pour ta réponse.
Du coup, suite à ta réponse, j'ai une nouvelle question ou remarque. Depuis le début, j'ai toujours remarqué que les personnes "confirmées" préconisaient de ne pas utiliser le genre d'instruction "Activeworkbook" ou "selection"!!

Ce qui parait vraiment bizarre, c'est qu'il y ai tant de "différence" entre les méthodes "open" et "opentext"

En tout cas, merci de ta réponse,
A bientot,
Johann

[tototiti2008]

Bonjour johannj,

en effet, si on peut éviter, c'est mieux
mais là je n'ai pas trouvé de moyens d'éviter...
Ceci dit, il y a assez peu de risques, puisque tu viens d'ouvrir le "classeur", il doit être actif
si avec ça tu gère les éventuelles erreurs d'ouverture, je ne vois pas trop le problème