Macro:ouvre un txt dans Excel

[franck70]

Bonjour à tous,

Voici mon problème:

La macro commence par ouvrir un fichier txt dans Excel (et donc elle délimite les largeurs de colonne). Ca fonctionne sans problème. Le hic, c'est qu'ensuite, il ne se passe plus rien. La macro devrait continuer mais ça s'arrête sans qu'il y ait un bug!! Dans le code ci-dessous, ça s'arrête après ...Array(16,1)). Je dois ajouter quelque chose pour que ça continue?

acces_balance = InputBox("Entrez le chemin d'accès au fichier")
Workbooks.OpenText Filename:=acces_balance, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(4, 1), Array(16, 1))
Range("C1").Select
(...)

Je vous remercie par avance pour votre aide toujorus rapide et efficace.

 

[Spitnolan08]

Re : Macro😱uvre un txt dans Excel

Bonjour,

A tout hasard, ne faut il pas que tu indiques le nom du fichier Excel concerné par le range("C1").select car sinon c'est ton fichier Text qui est actif...?

Cordialement

 

[franck70]

Re : Macro😱uvre un txt dans Excel

Bonjour Spitnolan08

C'est le fichier actif qui est concerné par le range("C1"). Je précise d'ailleurs que c'est pas vraiment un fichier txt car il est sans extension. On peut l'ouvrir avec ce qu'on veut. Sauf que pour l'ouvrir avec Excel, il faut délimiter les colonnes, d'où le "Workbooks.Open(....)Array(16, 1)).

En changeant complètement la 1ère ligne, ça fonctionne (j'ai mis acces_balance = Application.GetOpenFilename)

Merci d'avoir essayé.