Cliquez sur l'onglet "Developer", cliquez sur "Visual Basic" et cliquez sur le menu "Insertion". Sélectionnez "Module" pour insérer un nouveau module de code.
Commencez par créer une sous-procédure en utilisant le code suivant:
Private Sub ReadTextFile ()
Créez trois variables que vous allez utiliser pour lire le fichier texte:
Dim fileText As String
Dim myTextFile As String
Dim fichier mémoire As Integer
Définir le chemin et le nom du fichier texte que vous voulez lire:
myTextFile = "F: temp.txt"
fichier mémoire = FreeFile
Ouvrez le fichier, lire son contenu et fermez le fichier:
Ouvrir myTextFile Pour l'entrée Comme #memFile
fileText = Entrée $ (LOF (1), 1)
Fermer
Afficher les résultats de fichiers texte à travers la fenêtre immédiate.
Debug.Print (fileText)
Fin de la sous-procédure en tapant "End Sub" (sans les guillemets). Appuyez sur F5 pour exécuter la procédure et de lire le fichier.