XL 2016 copier les données d'un fichier csv vers une feuille excel

  • Initiateur de la discussion Initiateur de la discussion Slakhdine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Slakhdine

XLDnaute Nouveau
Bonjour a tous . je reviens vers vous pour m'aider à résoudre mon problème si c'est possible . je m'explique :
je voudrai ouvrir un fichier TEXTE avec une extension CSV délimité par des virgules et de copier certains champs vers des cellules spécifiques selon une structure donnée d'une feuille d'excel active. j'ai fait une simple macro elle s’exécute sans aucun problème mais rien ne passe 😕😕
ci dessous mon code :
VB:
Option Explicit

Sub IMPORT_FICHE_CLIENT()
Dim csv As Variant
Dim ligne As String
    
  csv = ThisWorkbook.path & "\CSV TAILLE CHAMPS.csv"
    Open csv For Output As #1

        ligne = "#CLIENT;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B24") & ";" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B3") & ";" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B4") & ";" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B2") & ";4119696;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B5") & "; ;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B7") & ";" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B8") & ";;;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B11") & ";" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B12") & ";;;;;;;;;;;;;301;1;;;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B21") & ";MARIE(E);SEPA récurent;"
    Print #1, ligne
        ligne = "#CLIENTSTAT;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B10") & ";(21);;;;;;;;"
    Print #1, ligne
        ligne = "#ABO;001;(35);EN;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B28") & ";2;1;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B27") & ";1;2;5"
    Print #1, ligne
        ligne = "#ABOENTETE;(17);(13);301;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B31") & ";16;;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B26") & ";05042019;(15);(17);05042019;38.17;" & ThisWorkbook.Worksheets("FICHE_CLIENT").Range("B25") & ";10.89;0;PANGEE-07650;;;"
    Print #1, ligne
       ligne = "#ABOLIGNE;LOYM;0;;;0;1;12.42;0"
    Print #1, ligne
        ligne = "#ABOLIGNE;FRAIS_PLATEFORME;0;;;0;1;0.15;0"
    Print #1, ligne

Close #1
MsgBox ("Terminé !")
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour