Ouvrir un fichier txt

Ouvrir un fichier txt - VB/VBA/VBS - Programmation

Marsh Posté le 18-10-2004 à 12:09:53    

slt à tous klkun pourrait-il me dire comment je peux faire pour ouvrir un fichier txt dans une feuille d'un classeur déjà ouvert en utilisant la virugule comme séparateur.
Merci d'avance car g vraiment besoin de cette fonction car ce ke g fait n'est pas paratik puiske le nobre de virgules par ligne n'est pas tout le temps le même donc si j'utilise un Input #1, Prenom, Nom, Age c pas l'idéal kan on a un coup 3 un coup 2 et coup 5 virugules.
Merci bcp à celui ki m'aidera  :jap:  

Reply

Marsh Posté le 18-10-2004 à 12:09:53   

Reply

Marsh Posté le 20-10-2004 à 10:22:49    

bon bein g réussi à bidouiller kelke chose ki revient à ça donc si y en a ke ça interesse je laisse le code ici:
 
Dim wb As Workbook
     
'retient le nom du classeur sur lequel je travaille
nom_active = ActiveWorkbook.Name
     
'ouvre la boite de dialogue du choix du .bjt à importer et enregistre l'arborescence dans chemin
Chemin = Application.GetOpenFilename(Title:="Choix du fichier B-JAC (.BJT) à importer" )
     
'ouverture du fichier de type txt avec virgule comme séparateur
Workbooks.OpenText Filename:=Chemin, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
     
'enregistre les noms de tous les classeur excel ouvert
'nom=nom du dernier classeur ouvert donc celui ouvert précédement
For Each wb In Workbooks
nom = wb.Name
Next wb
     
'se place sur le classeur ouvert et copie les colonne de A à F
Windows(nom).Activate
Sheets(1).Select
Columns("A:F" ).Copy
     
'se place sur le classeur d'où la macro est lancé et colle
Windows(nom_active).Activate
Sheets("feuille_destination_collage" ).Select
Range("A1" ).Select
ActiveSheet.Paste
     
'permets d'éviter la question sur le presse-papier lors de la fermeture du classeur crée
Application.DisplayAlerts = False
'fermeture du classeur crée
Windows(nom).Close
Application.DisplayAlerts = True
 
 
Y oré t-il klkun ki pourrait me dire comment j'oré pu faire pour récupérer le nombre de feuille d'un classeur???

Reply

Marsh Posté le 21-10-2004 à 22:15:38    

ThisWorkbook.Sheets.Count
 
:)

Reply

Marsh Posté le 22-10-2004 à 09:37:10    

thx mangeur de schtroumph :-p

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed