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 :

Ouvrir un fichier texte


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier Avatar de Vince7-7
    Homme Profil pro
    Fondateur et dirigeant de la société Oramatica. http://www.oramatica.com
    Inscrit en
    Janvier 2007
    Messages
    125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Fondateur et dirigeant de la société Oramatica. http://www.oramatica.com

    Informations forums :
    Inscription : Janvier 2007
    Messages : 125
    Points : 85
    Points
    85
    Par défaut Ouvrir un fichier texte
    Bonjour;
    J'essaie de développer une macro qui va ouvrir un fichier texte dont je ne connais pas le nom à l'avance. Je passe donc par Application.GetOpenFileName. La boite de dialogue s'ouvre bien, jje sélectionne mon fichier et... rien. Il passe directement dans la gestion d'erreur et me renvoie l'erreur 0. Je ne comprends pas ce qui se passe. Petite précision, il s'agit d'Excel 2007.

    Le code de ma macro:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Private Sub openfile() 
    Dim retour As String
    Dim fichier As String
     
    On Error GoTo err
    fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    retour = FileRead(fichier)'Procédure de lecture du fichier
    err:
     
    MsgBox "Erreur " & err.Number & " " & err.Description
     
    End Sub
    Fondateur et dirigeant de la société Oramatica. Spécialiste du traitement de vos données.
    http://www.oramatica.com

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    bonjour,

    il manque un avant l'étiquette err pour éviter le passage dans ta section gestion d'erreur lorsqu'il n'y as pas d'erreur....

    tu as dans la un code fonctionnel sans gestion d'erreur qui te permet de récupérer le nom d'un fichier :

    http://excel.developpez.com/faq/?pag...etOpenFileName

  3. #3
    Membre régulier Avatar de Vince7-7
    Homme Profil pro
    Fondateur et dirigeant de la société Oramatica. http://www.oramatica.com
    Inscrit en
    Janvier 2007
    Messages
    125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Fondateur et dirigeant de la société Oramatica. http://www.oramatica.com

    Informations forums :
    Inscription : Janvier 2007
    Messages : 125
    Points : 85
    Points
    85
    Par défaut
    Tout d'abord merci de ta réponse rapide.
    Ok pour le "Exit Sub". Bon par contre je ne comprends rien j'ai rebooté ma machine et maintenant ça marche
    Je passe en résolu...
    Fondateur et dirigeant de la société Oramatica. Spécialiste du traitement de vos données.
    http://www.oramatica.com

  4. #4
    Expert éminent sénior
    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
    Points : 11 274
    Points
    11 274
    Par défaut
    Salut, à la vue de ton code, un seul conseil : lire et assimiler ceci et c'est un minimum.

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

Discussions similaires

  1. Ouvrir un fichier texte dans WordPad
    Par Commodore dans le forum Langage
    Réponses: 5
    Dernier message: 15/06/2006, 12h32
  2. [VB6] Ouvrir un fichier text qui ce trouve sur internet!
    Par passicon dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 03/04/2006, 14h41
  3. Ouvrir un fichier texte
    Par Meno14 dans le forum Access
    Réponses: 5
    Dernier message: 28/03/2006, 18h37
  4. [C++] Menu d'aide: ouvrir un fichier texte
    Par debutanteVB.NET dans le forum C++
    Réponses: 11
    Dernier message: 16/12/2005, 00h12
  5. Ouvrir un fichier texte en lecture ET écriture
    Par Steph12 dans le forum C++
    Réponses: 12
    Dernier message: 17/06/2005, 09h08

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