IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Ouverture/Ecriture fichier .txt sur VBA [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Distribution

    Informations forums :
    Inscription : Juillet 2016
    Messages : 7
    Par défaut Ouverture/Ecriture fichier .txt sur VBA
    Bonjour à tous,

    J'ai comme objectif de crée un programme en VBA permettant la comparaison de differentes valeurs contenu dans 2 fichier distinct, l'un est un ".xlsx" et l'autre un fichier ".txt" .
    Aucun probleme avec le ".xlsx", cepandant, c'est pas aussi fluide avec le ".txt" .

    Je n'arrive pas à l'ouvrir sans changer l'extension ".txt" -> ".xls" et je sais encore moins manipuler les valeurs du fichier ".txt" avec VBA.

    J'ai trouvé une méthode sur le net mais, une fois executé, celle-ci me renvoie une erreur : "Erreur de compilation : Type défini par l'utilisateur non défini"

    Voici le début de mon code...


    ps : Ne me lapidez pas svp si mon code et moche et pas ergonomique, JE DEBUTE.


    Je suis pret a prendre toute les infos que vous avez concerant l'ouverture et l'ecriture sur fichier texte car je n'est plus beaucoup de temps

    Bonne analyse !




    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Option Explicit
     
    Sub main()
    Tableaux
    End Sub
     
     
    Sub Tableaux()   'Ceci est surligné jaune quand le msgbox d'erreur apparait
     
     
    Dim tabBANK(3)
    Dim tabSAP(3)
    Dim A As Integer
    Dim B As String
     
     
    Dim oFSO As Scripting.FileSystemObject   'Ceci est aussi surligné (en bleu) quand le msgbox erreur apparait
    Dim oTxt As Scripting.TextStream
    'Instanciation du FSO (file system object)
    Set oFSO = New Scripting.FileSystemObject
     
    Set oTxt = oFSO.OpenTextFile("C:\Users\rugeth\Documents\Convertisseur\" & "Propo" & ".txt", ForWriting)
     
     
     
     
    Workbooks.Open Filename:="C:\Users\rugeth\Documents\Convertisseur\" & "LISTE_OPERATIONSnew" & ".xlsx"
     
    tabBANK(0) = Range("A3")
    tabBANK(1) = Range("A4")
    tabBANK(2) = Range("B8")
    tabBANK(3) = Range("B9")

    N'hésitez pas a me demander plus d'infos sur mon code !

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    Salut,

    une petite lecture qui devrait te permettre de recuperer toutes les infos dont tu as besoin
    http://warin.developpez.com/access/fichiers/
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Distribution

    Informations forums :
    Inscription : Juillet 2016
    Messages : 7
    Par défaut
    Je me suis largement inspiré de ce tuto pour en arriver la, malheureusement je ne comprend pas le message d'erreur noté dans mon premier poste :s

    Rappel : "Erreur de compilation : Type defini par l'utilisateur non defini"

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, c'est de l'Early Binding donc références sous VBE à cocher : Microsoft Scripting Runtime sinon passer en Late Binding, mais pas les 2.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim oFSO As Object
    Dim oTxt As Object
     
        Set oFSO = CreateObject("Scripting.FileSystemObject")
    Images attachées Images attachées  

  5. #5
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Distribution

    Informations forums :
    Inscription : Juillet 2016
    Messages : 7
    Par défaut VICTOIRE !
    UN GRAND MERCI A VOUS DEUX !









    ps : la version pdf des tutos est vraiment top !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 16/10/2013, 17h49
  2. Ecriture ds Fichier .txt en VBA
    Par jeanlouisn dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/12/2008, 11h21
  3. Réponses: 9
    Dernier message: 09/06/2008, 15h59
  4. PL/SQL lecture/ecriture fichier txt
    Par stos dans le forum PL/SQL
    Réponses: 2
    Dernier message: 19/05/2006, 12h19
  5. ouverture de fichier txt
    Par juguul dans le forum MFC
    Réponses: 11
    Dernier message: 18/12/2003, 09h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo