Bonjour,
j'ai un fichier text.txt et j'aimerai bien copier la troisième ligne de ce fichier vers une cellule de mon classeur, quelles commandes dois-je utiliser?????
Bonjour,
j'ai un fichier text.txt et j'aimerai bien copier la troisième ligne de ce fichier vers une cellule de mon classeur, quelles commandes dois-je utiliser?????
Salut
Voici un exemple de code permettant de lire le contenu d'un fichier.
J'ai modifié un code que j'avais écris pour quelqu'un, je pense qu'il doit fonctionner et faire ce que tu demandes mais je ne l'ai pas testé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Option Explicit Sub NMEA_Convert() Dim PathSource As String Dim FileNumS As Integer Dim TmpStr As String 'Recupere le chemin du fichier au format 1 (NMEA) PathSource = Application.GetOpenFilename(FileFilter:="(*.txt),*.txt", Title:="Sélectionnez le fichier Txt a ouvrir") If PathSource = "Faux" Then Exit Sub 'si pas de sélection faite on quite 'Ouvrir le fichier Source FileNumS = FreeFile Open PathSource For Input As #FileNumS 'On ignore les 2 1eres lignes Line Input #FileNumS, TmpStr Line Input #FileNumS, TmpStr Line Input #FileNumS, TmpStr range("A1").value = TmpStr 'On ferme le fichier Close #FileNumS
A++
Qwaz
MagicQwaz := Harry Potter la baguette en moins
Le monde dans lequel on vit
Ma page perso DVP
Dernier et Seul Tutoriel : VBA & Internet Explorer
Dernière contribution : Lien Tableau Structuré et UserForm
L'utilisation de l’éditeur de message
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager