ho rivisto un po' il codice:
Dim my_file As Integer
Dim text_line As String
Dim file_name As String
Dim i As Integer
Dim aFile As String
aFile = "C:\Interventi macina CQ\Ultima ricetta.txt"
If Len(Dir$(aFile)) > 0 Then
file_name = "C:\Interventi macina CQ\Ultima ricetta.txt"
my_file = FreeFile()
Open file_name For Input As my_file
i = 1
While Not EOF(my_file)
Line Input #my_file, text_line
Cells(i, "H").Value = text_line
i = i + 1
Wend
ActiveSheet.Range("C2").Value = ActiveSheet.Range("H1").Value
ActiveSheet.Range("D2").Value = ActiveSheet.Range("H2").Value
ActiveSheet.Range("E2").Value = ActiveSheet.Range("H3").Value
ActiveSheet.Range("H1:H3").Select
ActiveSheet.Range("H1:H3").ClearContents
ActiveSheet.Range("C2").Select
End If
riesco a leggere il file e mi mette le 3 righe del file nella colonna H (da H1 a H3)
io però le voglio in riga quindi vado a popolarmi le celle poi cancello i dati della colonna H
non è bellissimo ma funziona, resto in attesa di suggerimenti per mettere i 3 dati in C2, D2 ed E2
grazie
Marco