Ouvrir un fichier texte et le modifier avec une maccro

[tmbangue]

Bonjour, étant débutant dans les maccro Excel je requiert votre aide.

Je souhaite par le biais d'une maccro :
- Ouvrir un fichier texte (obligatoirement) avec un nom différent et un chemin différent.
- L'afficher dans ma feuille de calcul existante 'Fichier à importer' en A1.
- Remplacer les "." par des "," et convertir les données texte en décimales.

J'ai déjà bien cherché et testé pleins de choses (GetOpenFilename par exemple) malheureusement le nom du fichier me bloque toujours et c'est bien le problème.

Je vous remercie d'avance de votre réponse.

 

[Staple1600]

Re,

Job
Suite
Avec cette syntaxe, plus de de problème
fichier = _ Application.GetOpenFilename(FileFilter:="Fichiers Texte (*.txt; *.csv),*.txt;*.csv", _ Title:="Sélectionner le fichier", MultiSelect:=False)

PS: J'ai corrigé la macro dans le message#13

 

[job75]

Qu'est-ce qui fait que tu ne retiens pas la possibilité offerte par ActiveSheet.QueryTables?
rapidité d’exécution?

La rapidité d'exécution est secondaire mais mes macros fonctionnent sur toute version Excel.

 

[Staple1600]

Re

De mémoire, je crois qu'ActiveSheet.QueryTables est disponible depuis Excel 97.
Je voulais juste savoir quel était pour toi le frein à utiliser QueryTables en VBA.

PS: Mes questions ne sont nullement une critique de tes macros.

NB: Ton code ou le mien ne fonctionneront pas sur Excel Mac

 

[job75]

De mémoire, je crois qu'ActiveSheet.QueryTables est disponible depuis Excel 97.

Possible, je ne l'ai que très peu utilisé.

NB: Ton code ou le mien ne fonctionneront pas sur Excel Mac

Ah bon ? Pourtant la seule chose que font mes macros c'est d'ouvrir le fichier texte...

 

[Staple1600]

Re

C'est là que le bât blesse
Application.GetOpenFilename
(Les détails ici)

 

[tmbangue]

Re,

Alors dans mon cas je préfère le code de Job75 car en faite la rapidité d'exécution est effectivement plus rapide. Mais aussi parce qu'avec Query Tables le remplacement par la virgule se fait mais sans convertir les fichiers textes en nombres décimales. (une fois de plus c'est dans mon cas)

 

[job75]

Mais aussi parce qu'avec Query Tables le remplacement par la virgule se fait mais sans convertir les fichiers textes en nombres décimales.

Je ne rencontre aucun problème de conversion avec la macro de Staple1600 du post #13.