Macro pour ouvrir un .txt

[Coucou]

Bonjour a tous,

j'aimerais pouvoir ouvrir un fichier txt en délimité point-virgule par une macro

le deroulement serait le suivant:

afficher la boite de dialogue "ouvrir un fichier" d'Excel,

ouvrir le fichier selectionné en délimité ";"

mettre certaines colonnes au format Texte.

Merci d'avance.

 

[Berkane]

Salut.

Voici un petit exemple qui permet d'ouvrir non seulement un fichier TXT mais aussi d'autres formatsas mal, non?Car qui peut le plus peut le moins.
Ce qui détermine les formats acceptés est ainsi exprimé :

CeFichier = Application.GetOpenFilename("Tous fichiers (*.*),*.*")

Si tu ne souhaite que le txt, remplace "Tous fichiers (*.*),*.*" par "Fichiers textes (*.txt),*.txt"

 

[Coucou]

Bonjour Berkane

Merci de ton aide mais je n'arrive pas a lancer ta macro.

il ne trouve pas le fichier "classeur1.xls"
si je créer ce fichier sur le repertoire qu'il m'indique ensuite il ne trouve pas la macro "Fichiertexteaouvrir"

J'aimerais bien pouvoir la lire aussi (pour m'instruire)

 

[Berkane]

Salut

autant pour moi, j'ai mal inséré la macro.

réessaye avec cette version.

@+