Ouvrir un fichier texte et le modifier avec une maccro

tmbangue

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Staple1600

XLDnaute Barbatruc
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 :)
 

tmbangue

XLDnaute Nouveau
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) :)
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088