Importer fichier text en Excel

frenchyboy2015 · 19 Décembre 2016

Bonsoir,

J'aimerais savoir si je peux changer les lignes séparatrices par défaut sans l'Assistant d'Importation. Je dois souvent convertir un fichier texte (qui a toujours la même forme) et à chaque fois je dois changer manuellement les lignes séparatrices.

Puis-je changer les paramètres par défaut de l'Assistant d'Importation?

Merci pour votre aide,

Frenchyboy2015

mapomme · 19 Décembre 2016

Bonsoir Frenchyboy2015 et bienvenue sur XLD 🙂,

Un essai par VBA dans le fichier joint. Il est dommage que vous n'ayez joint aucun fichier 🙁
Le code est dans le module de la feuille Feuil1 (feuille d'importation).

Le fichier texte comporte 3 champs de largeur fixe:

un champ nombre entier sur 3 caractères
suivi d'un champ nombre décimal sur 7 caractères (avec le point comme séparateur décimal)
suivi d'un champ heure sur 8 caractères

Dans le code, il faut modifier la constante FichierTXT avec le chemin complet et le nom de votre fichier à importer.

VB:

Const FichierTXT = "D:\EXCEL\@EXCEL-DOWNLOADS\@@@@ xxx\A_importer.txt"

frenchyboy2015 · 19 Décembre 2016

mapomme à dit:
Bonsoir Frenchyboy2015 et bienvenue sur XLD 🙂,

Un essai par VBA dans le fichier joint. Il est dommage que vous n'ayez joint aucun fichier 🙁
Le code est dans le module de la feuille Feuil1 (feuille d'importation).

Le fichier texte comporte 3 champs de largeur fixe:

un champ nombre entier sur 3 caractères

suivi d'un champ nombre décimal sur 7 caractères (avec le point comme séparateur décimal)

suivi d'un champ heure sur 8 caractères

Dans le code, il faut modifier la constante FichierTXT avec le chemin complet et le nom de votre fichier à importer.

VB:

Const FichierTXT = "D:\EXCEL\@EXCEL-DOWNLOADS\@@@@ xxx\A_importer.txt"

Je vais tenter ta solution sous peu.

Merci pour cette réponse rapide, c'est très apprécié!!!

Es-tu expert VBA? Si oui, peut-être que tu peux répondre à ceci;

J'ai créé une macro enregistrée dans laquelle je dois Copier\Coller plusieurs fois la même série de données l'une à la suite de l'autre.

Comment puis-je écrire une fonction VBA pour exercer ceci selon un certain nombre de fois (nombre de fois inscrit dans une cellule qui peut être différent selon les besoins).

Je te joins un fichier qui résume sommairement ce que je recherche.

Merci à l'avance

mapomme · 19 Décembre 2016

Re,

frenchyboy2015 à dit:
(...) J'ai créé une macro enregistrée dans laquelle je dois Copier\Coller plusieurs fois la même série de données l'une à la suite de l'autre.
Comment puis-je écrire une fonction VBA pour exercer ceci selon un certain nombre de fois (nombre de fois inscrit dans une cellule qui peut être différent selon les besoins).(...)

Voir fichier joint. Le code est dans module1.

VB:

Sub dupliquer()
Dim source As Range
   Application.ScreenUpdating = False
   Sheets("Final").Columns("a:b").ClearContents
   With Sheets("Début")
      Set source = .Range("a1:b" & .Cells(.Rows.Count, "a").End(xlUp).Row)
      source.Copy Sheets("Final").Range("a1").Resize(source.Rows.Count * .Range("e1"))
      Application.CutCopyMode = False
    End With
    Application.Goto Sheets("Final").Range("a1"), True
End Sub

Importer fichier text en Excel

frenchyboy2015

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

frenchyboy2015

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Importer fichier text en Excel

frenchyboy2015

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

frenchyboy2015

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency