Importer fichier text en Excel

[frenchyboy2015]

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]

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.

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

 

[frenchyboy2015]

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.

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]

Re,

(...) 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.

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