|
Bonsoir,
Je cherche à lire les données que j'ai écrite dans une zone de texte de ma boite de dialogue, mais je coince encore....
Le problème se trouve au niveau des variables.
Je ne trouve pas la solutions dans les livres de référence
Une solution.........
Merci
Dominique
Sub LireFichierTexteV2()
Dim f1 As Integer
Dim unTexte As String, unNombre As Long
dim dlg as object
Dim Tf1 as object
Dim tt as string
DialogLibraries.LoadLibrary("Library1")
Dlg = CreateUnoDialog( DialogLibraries.Library1.Dialog3 )
dlg.Execute()
f1 = FreeFile ' obtenir un numéro de fichier ouvert
Open nomFichier For Input As #f1
Input #f1, unTexte
tt = unTexte
'Le problème est là, affichage variable d'objet non paramétré
Tf1.Text = tt
Tf1 = dlg.GetControl("RecupText")
'Test de récupération des données
print tt
Input #f1, unTexte
print unTexte
Input #f1, unTexte
print unTexte
Close #f1
End Sub | 