Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour ouvrir un .txt

C

Coucou

Guest
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.
 
B

Berkane

Guest
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"
 

Pièces jointes

  • OuvrirFichierTexte.zip
    4.7 KB · Affichages: 40
  • OuvrirFichierTexte.zip
    4.7 KB · Affichages: 38
  • OuvrirFichierTexte.zip
    4.7 KB · Affichages: 33
C

Coucou

Guest
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)
 
B

Berkane

Guest
Salut

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

réessaye avec cette version.

@+
 

Pièces jointes

  • OuvrirFichierTexte.zip
    9 KB · Affichages: 48
  • OuvrirFichierTexte.zip
    9 KB · Affichages: 50
  • OuvrirFichierTexte.zip
    9 KB · Affichages: 46

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…