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 fichier CSV boite de dialogue [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    74
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Mars 2007
    Messages : 74
    Par défaut Ouverture fichier CSV boite de dialogue
    Bonjour,

    Je tourne en rond avec l'ouverture de fichier CSV, j'ai lu quelques liens sur Developpez, mais sans succès!
    Le fichier s'ouvre bien, mais en mode, je ne fais pas les séparation ";" , donc j'ai tout sur une ligne!

    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
     
    ''************OUVERTURE
        dialogTitle = "Navigate to and select required file."
        Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
        With fileDialog
            .InitialFileName = "P:\Macro_IS_Formalix"
            '.InitialFileName = ThisWorkbook.Path & "\" 'Alternative to previous line
            .AllowMultiSelect = False
            .Filters.Clear
            .Title = dialogTitle
            strPathFile = .SelectedItems(1)
     
            If .Show = False Then
                MsgBox "File not selected to import. Process Terminated"
                Exit Sub
            End If
     
         End With
    '************FIN OUVERTURE
     
        captureNomSAPE = Left(Dir(strPathFile), 3)
     
        Set wbSource = Workbooks.Open(Filename:=strPathFile)
    '     End With
    Le fichier CSV commence à la 5ème ligne avec: 1234.1234;POPOAUL;Olivia;01.01.1980;2;1;0;9;;;;0;0;;;;;;Clos des Clos 24;;;F-12345;FRA;0;Saint-Ginsgins;1;04;21;01.01.2017;31.07.2017;210;0;16.40;0; 53787;; 0; 0; 8817; 0; 8817;4;A0N

    Là je commence à faire n'importe quoi, je commence à mélanger des trucs, bref, c'est la galère :-(
    Merci à jour par avance.

  2. #2
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    Juillet 2014
    Messages
    2 680
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : Juillet 2014
    Messages : 2 680
    Par défaut
    Citation Envoyé par letal Voir le message
    Je tourne en rond avec l'ouverture de fichier CSV
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
        Set wbSource = Workbooks.Open(Filename:=strPathFile)
    Bonjour,

    Pour ouvrir un fichier texte il vaut mieux utiliser OpenText: https://docs.microsoft.com/fr-fr/off...books.opentext

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    74
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Mars 2007
    Messages : 74
    Par défaut
    Citation Envoyé par halaster08 Voir le message
    Bonjour,

    Pour ouvrir un fichier texte il vaut mieux utiliser OpenText: https://docs.microsoft.com/fr-fr/off...books.opentext
    Hello, merci halaster08, mais je n'ai jamais pu faire fonctionner avec ces arguments!
    En plus, des fois je pige pas mes/les erreurs, parenthèse, pas de parenthèse etc...

    Et là, je viens de trouver cela et ça marche :-)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set wbSource = Workbooks.Open(Filename:=strPathFile, Local:=True)

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

Discussions similaires

  1. [XL-2013] Ouverture de fichier avec boite de dialogue
    Par pepesese dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 17/09/2014, 18h33
  2. Probleme ouverture fichier avec boite de dialogue
    Par tomaix dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/01/2013, 09h03
  3. Pas de fichiers à l'ouverture d'une boite de dialogue
    Par mathrix77 dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 02/02/2008, 00h21
  4. Ouverture d'une boite de dialogue
    Par ju972 dans le forum Débuter
    Réponses: 13
    Dernier message: 21/05/2004, 15h22

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