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 :

Boîte de dialogue Open File et options d'importation


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Formatrice bureautique
    Inscrit en
    Septembre 2007
    Messages
    202
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 48
    Localisation : Suisse

    Informations professionnelles :
    Activité : Formatrice bureautique

    Informations forums :
    Inscription : Septembre 2007
    Messages : 202
    Par défaut Boîte de dialogue Open File et options d'importation
    Hello la compagnie,

    Ce matin, on m'a posé une question que je n'arrive pas à trouver toute seule...

    Objectif du code vba Excel :

    En lançant la macro depuis n'importe quel fichier Excel, la boîte de dialgue Ouverture de fichier doit s'ouvrir, on doit pouvoir sélectionner un fichier et les options d'importation du fichier doivent être définies automatiquement.

    L'ouverture du fichier est un fichier texte et a toujours les mêmes paramètres d'importation...

    Si quelqu'un peut me donner un coup de main, c'est vraiment trop cool car je nage depuis un moment.

    A+

    Caro

  2. #2
    Membre émérite

    Profil pro
    Inscrit en
    Mai 2007
    Messages
    514
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 514
    Par défaut
    Bonjour,

    Ci-dessous la boite de dialogue affiche uniquement les fichiers texte.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Sub OuvrirFichier()
        Dim F
        F = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
        If VarType(F) = vbBoolean Then
            MsgBox "Opération annulée"
        Else
            Workbooks.OpenText F 'Préciser ici les parametres de l'importation
        End If
    End Sub
    Cordialement,

    Tirex28/

  3. #3
    Membre confirmé
    Femme Profil pro
    Formatrice bureautique
    Inscrit en
    Septembre 2007
    Messages
    202
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 48
    Localisation : Suisse

    Informations professionnelles :
    Activité : Formatrice bureautique

    Informations forums :
    Inscription : Septembre 2007
    Messages : 202
    Par défaut UN GRAND MERCI
    1000 merci, c'est génial.

Discussions similaires

  1. Dialogue Open/Save File
    Par sisiniya dans le forum jQuery
    Réponses: 0
    Dernier message: 07/09/2013, 00h22
  2. [Kylix] Imprimer le contenu d'une boîte de dialogue
    Par cmp-france dans le forum EDI
    Réponses: 13
    Dernier message: 18/10/2003, 20h31
  3. Réponses: 3
    Dernier message: 29/08/2003, 10h57
  4. [MFC] Boîte de dialogue chronométrée
    Par mdriesbach dans le forum MFC
    Réponses: 5
    Dernier message: 18/02/2003, 12h40
  5. Dll et boîte de dialogue MFC
    Par paulj dans le forum MFC
    Réponses: 3
    Dernier message: 19/12/2002, 09h59

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