bonjour,

voilà j'ai un fichier .txt qui ressemble à çà!!

Nom : bubulle
Prenom : lucius
adresse : ........

voilà à peu près!

ce que je souhaite c l'importer ds une seule et unique cellule ("A1"), mais ac la même disposition... (en prenant en compte les sauts de ligne)

alors g essayé mainte solution  en vain!

soit il me copie qu'une ligne du txt, soit il passe à ligne suivante sur excel!!

Qlq'un aurait-il une solution à m'apporter??

Merci, Achi!! 

Salut,

Ajoute la référence Microsoft Scripting Runtime à ton classeur (depuis le Menu Outils => Références)

et colle le code suivant

Dim fs As New FileSystemObject
Dim ts As TextStream
Dim contenu As String
Set ts = fs.OpenTextFile("C:\Test.txt", ForReading)
contenu = ts.ReadAll

ActiveWorkbook.ActiveSheet.Range("A1").Value = contenu

ts.Close
Set ts = Nothing
Set fs = Nothing



@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

salu Jrivet,


en fait j'ai utilisé le code suivant qui à le même effet que le tiens!!

Private Sub CommandButton3_Click()
Open "C:\fichier.txt" For Input As #1
While Not EOF(1)
Text1 = Input(LOF(1), #1)
Range("M2") = Text1
Wend
Close #1

le soucis de l'un comme de l'autre, c'est qu'il me mets des carrés à la place des espaces... sais-tu d'où ca vient??

Achi!

petite révision,

c pa sur les espaces mais sur les sauts de ligne (touche entrer quoi!!)!

puis encore un petit problème à soumettre, bubulle, lucius , l'adresse st des variables!

et là flou total, comment les faires inscrire ds ce txt??
 
Nom : bubulle
Prenom : lucius
adresse : ........

ne me dites pa "cherche sur le forum" car ma migraine d'hier peut témoigner de longues heures passées deçu!! lol!


Achi! petit programmeur deviendra grd! ouf!