Insérer un fichier .txt dans un fichier excel
tonioux
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011
-
8 févr. 2011 à 15:23
marion8316 Messages postés 75 Date d'inscription mercredi 17 août 2011 Statut Membre Dernière intervention 27 septembre 2011 - 14 févr. 2011 à 18:54
marion8316 Messages postés 75 Date d'inscription mercredi 17 août 2011 Statut Membre Dernière intervention 27 septembre 2011 - 14 févr. 2011 à 18:54
A voir également:
- Insérer un fichier .txt dans un fichier excel
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Appeler un fichier javascript dans une page html - Conseils pratiques -Javascript
- Vba ouvrir un fichier csv ✓ - Forum VB.NET
- Vba ouvrir un fichier pdf ✓ - Forum VBA Office (Excel, Word ...)
6 réponses
marion8316
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
1
8 févr. 2011 à 18:40
8 févr. 2011 à 18:40
Bonsoir,
Ci-dessous exemple de code, lecture d'un fichier et alimentation de la ligne 1 et colonne 1 de la feuille 'Feuil1'.
La demande est précisée pour VB 2005 et dans le message vous parlez d'Excel !
Le code ci-dessous c'est du code VBA pour Excel 2003.
Didier
Public Sub Lecture_fichier_pour_feuille()
Dim Ilecture As String
Dim rwindex As Integer, colindex As Integer
'ouverture fichier
Open "C:\excel\Fichier_Fini.txt" For Input As #1
rwindex = 1
colindex = 1
'Remise à blanc de la feuille
'
With Application.Worksheets("Feuil1").Cells
.Value = ""
End With
Do While Not EOF(1)
Line Input #1, Ilecture
Application.Worksheets("Feuil1").Cells(rwindex, colindex).Value = Ilecture
rwindex = rwindex + 1
Loop
MsgBox "Terminé .. "
End Sub
Ci-dessous exemple de code, lecture d'un fichier et alimentation de la ligne 1 et colonne 1 de la feuille 'Feuil1'.
La demande est précisée pour VB 2005 et dans le message vous parlez d'Excel !
Le code ci-dessous c'est du code VBA pour Excel 2003.
Didier
Public Sub Lecture_fichier_pour_feuille()
Dim Ilecture As String
Dim rwindex As Integer, colindex As Integer
'ouverture fichier
Open "C:\excel\Fichier_Fini.txt" For Input As #1
rwindex = 1
colindex = 1
'Remise à blanc de la feuille
'
With Application.Worksheets("Feuil1").Cells
.Value = ""
End With
Do While Not EOF(1)
Line Input #1, Ilecture
Application.Worksheets("Feuil1").Cells(rwindex, colindex).Value = Ilecture
rwindex = rwindex + 1
Loop
MsgBox "Terminé .. "
End Sub
tonioux
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011
10 févr. 2011 à 09:38
10 févr. 2011 à 09:38
Bonjour,
Merci pour votre réponse tout dabord, néanmoins, à l'ouverture de mon fichier, tout se met dans une seule case or j'aurai voulu qu'il rentre automatiquement sans aucune action de ma part toutes les lignes et colonnes à savoir 12 colonnes et environ 1000 lignes.
Merci
Merci pour votre réponse tout dabord, néanmoins, à l'ouverture de mon fichier, tout se met dans une seule case or j'aurai voulu qu'il rentre automatiquement sans aucune action de ma part toutes les lignes et colonnes à savoir 12 colonnes et environ 1000 lignes.
Merci
marion8316
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
1
10 févr. 2011 à 18:32
10 févr. 2011 à 18:32
Bonsoir,
Pour réaliser ce genre d'opération il faut que le fichier soit délimité par un séparateur de champ. Exemple ci-dessous c'est le ';' qui délimite les champs.
Exemple : 120;DURAND;JACKY;19/11/1958
En colonne 1 : 120
En colonne 2 : DURAND
Et ainsi de suite.
D'autre opération peuvent être faite mais il faut connaitre la structure du fichier.
Didier
Pour réaliser ce genre d'opération il faut que le fichier soit délimité par un séparateur de champ. Exemple ci-dessous c'est le ';' qui délimite les champs.
Exemple : 120;DURAND;JACKY;19/11/1958
En colonne 1 : 120
En colonne 2 : DURAND
Et ainsi de suite.
D'autre opération peuvent être faite mais il faut connaitre la structure du fichier.
Didier
tonioux
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011
11 févr. 2011 à 11:36
11 févr. 2011 à 11:36
Ce qui est étonnant ici, c'est que quand j'ouvre mon fichier .txt avec Excel, il délimite automatiquement les colonnes et lignes.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tonioux
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011
14 févr. 2011 à 13:48
14 févr. 2011 à 13:48
Vous ne voyez pas de solution possible ?
marion8316
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
1
14 févr. 2011 à 18:54
14 févr. 2011 à 18:54
Bonsoir,
Si vous voulez je peux examiner le fichier et vous donner une solution.
Envoyez moi un message en MP.
Merci
Didier
Si vous voulez je peux examiner le fichier et vous donner une solution.
Envoyez moi un message en MP.
Merci
Didier
