Insérer un fichier .txt dans un fichier excel

Signaler
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011
-
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
-
Bonjour,

J'aimerai savoir si il était possible de :


Insérer un fichier .txt dans un fichier Excel à partir de la case A10 par exemple et ce en cliquant sur un simple bouton par un systême de macro.

Merci d'avance.

6 réponses

Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
2
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
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011

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
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
2
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
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011

Ce qui est étonnant ici, c'est que quand j'ouvre mon fichier .txt avec Excel, il délimite automatiquement les colonnes et lignes.
Messages postés
16
Date d'inscription
mardi 13 juillet 2010
Statut
Membre
Dernière intervention
10 août 2011

Vous ne voyez pas de solution possible ?
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
2
Bonsoir,

Si vous voulez je peux examiner le fichier et vous donner une solution.

Envoyez moi un message en MP.

Merci

Didier