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 :

CSV et caractère spéciaux


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    Mars 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Somme (Picardie)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2019
    Messages : 2
    Par défaut CSV et caractère spéciaux
    Bonjour à tous,

    Je met en place un petit fichier qui alimente plusieurs listes en fonction de fichiers CSV qui sont stockés sur un SharePoint partagé. Chaque utilisateur synchronise l'ensemble des fichiers ce qui leur permet de les avoir sur leur PC, à jour et utilisable hors connexion. Le petit soucis, pour des raisons que j'ignore, le répertoire dans lequel se trouve les fichier est composé du mot "Pôle" et que pour certains il apparait comme tel "P�le" du coup quel je liste les fichiers du répertoire avec la fonction Dir Excel n'aime pas trop.


    J'arrive à lister les fichier avec l'objet FSO
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
        Chemin = ThisWorkbook.Path
        Set fso = CreateObject("Scripting.FileSystemObject")
        With fso.GetFolder(Chemin)
            For Each NomFich In .Files
                Cells(i, 1).Value = NomFich.Name
                i = i + 1
            Next
        End With
    Ensuite je dois alimenter une listbox, mais avec le caractère � la fonction habituellement utilisée ne fonctionne pas. La voici :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Ncsv = FreeFile
        Open Fichiercsv For Input As #Ncsv
        icsv = 0
        Do While Not EOF(1)
            Line Input #Ncsv, Contenucsv
                icsv = icsv + 1
                Tablecsv = Split(Contenucsv, ";")
                Liste_ZEP.AddItem (Replace(Tablecsv(1), ",", "."))
        Loop
        Close #Ncsv
    Ma question est, existe t-il une solution pour faire la même chose avec l'objet FSO avec qui cela à l'air de fonctionner, ou peut-on travailler avec des chemins relatifs ce qui m'éviterai de passer dans les variables le caractère �

    D'avance merci pour les éléments de réponse que vous pourrez m'apporter.

  2. #2
    Membre chevronné
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2015
    Messages
    369
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2015
    Messages : 369
    Par défaut
    Bonjour Guillaume,

    Ne m'y connaissant pas du tout en FSO, j'ai une idée qui me traverse l'esprit.

    Pourquoi ne pas remplacer le 2e caractère (correspondant donc à ton ?) par le "ô" ?

    Ou bien utiliser le joker ? --> P?le

    (avec un vrai "?" cette fois-ci, pas ton losange )

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Technicien réseaux et télécoms
    Inscrit en
    Mars 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Somme (Picardie)

    Informations professionnelles :
    Activité : Technicien réseaux et télécoms
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2019
    Messages : 2
    Par défaut
    Bonjour révèr ,

    Merci pour ta réponse.

    quand le chemin est stockés dans une variable ou dans une cellule, je peux lui dire effectivement de remplacer par ? ou ô, mais ca ne correspond pas au répertoire du SharePoint qui apparait comme P�le.
    Du coup par exemple quand je fait Dir("C:\Pôle\") ou Dir("C:\p?le") ou Dir("P�le") ca ne marche pas. Le � représente un caractère non interprété du coup il trouve pas

  4. #4
    Membre chevronné
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2015
    Messages
    369
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2015
    Messages : 369
    Par défaut
    Dans ce cas, à mon niveau, je ne pourrai que te conseiller de te pencher sur le SharePoint et de corriger ce "?" que je n'arrive pas à écrire

Discussions similaires

  1. Extraction csv et caractères spéciaux
    Par pop_up dans le forum Développement de jobs
    Réponses: 3
    Dernier message: 15/03/2013, 17h23
  2. [Encodage] Exporter un CSV avec caractères spéciaux pour Excel
    Par gwinyam dans le forum Langage
    Réponses: 10
    Dernier message: 22/02/2011, 11h44
  3. Réponses: 2
    Dernier message: 07/05/2009, 15h50
  4. [MySQL] import CSV et caractères spéciaux
    Par loganblack dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 23/04/2008, 22h55
  5. [Shell] CSV import , caractères spéciaux
    Par AngeDéchu dans le forum Shell et commandes GNU
    Réponses: 16
    Dernier message: 10/04/2008, 14h06

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