Copier coller un fichier .txt dans une cellule excell en vbRésolu

Question

Bonjour je suis en train de programmer une petite macro 
qui se lance automatiquement et qui demande par inputbox 
de rentre des donees. celles ci sont stocker dans un fichier .txt mais je ne sais pas comment faire pour que ceci soit copier coller dans une cellulle excell.
Ceci est surement tres facil pour vous les pro enfin je vous donne tjr le code que j ai deja pondu tout seul.

Sub workbook_open()
'
' workbook_open Macro
' Macro recorded 8/9/2004 by axel
'
Dim serial As Variant
Dim work As String
Dim sales As String
Dim texte As Variant

Open "x:\Administration/quotations/2004/variant.txt" For Output As #1
   Range("d4").Select
        serial = InputBox("Numero de série", "Numero de série?", "S/No.(   )")
     Write #1, serial
Close #1

Open "x:\Administration/quotations/2004/variant.txt" For Input As #2

voila jusque la ca fonctionne, c'est apres que je ne trouve pas.
je vous remercie d avance.

cs_ITALIA · Accepted Answer

pour mettre quelque chose dans une case Excel :
d'abord cocher dans Projet Références :

Microsoft excel xx Object Library

---------------------------------------------------------------------------------
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True ' Rend Excel visible...
MonXl.UserControl = True
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls" ' Ouvre MonFichier
MonXl.Range("B4").Value = "It@li@"
-------------------------------------------------------------------------------

It@li@

SamaiwaX · Answer

Merci bien IT@LI@ mais cela ne répond tjrs pas a mon probleme,
je vais toujours essayer quelquechose. si je reussi je poste sinon j'attendrai tranquillement une aide

SamaiwaX · Answer

c'est ok merci bcp pour ton aide IT@LI@

cs_ITALIA · Answer

Coche reponse acceptée soit la mienne soit la tienne ca eviteras que d'autres personnes viennent pour rien

It@li@