petite aideRésolu

Question

Bonjour,
Je suis novice en vba et j'ai un petit problème
Je dois importer le contenu de fichiers .txt dans excel.
Mais les noms de ces fichiers varient tout le temps
C'est pour ça que j'ai fais une macro qui ouvre un fichier.
Mais avec la macro j'ouvre tout le temps le même fichier
Donc j'ai fais :
Dim nomfichier as variant
nomfichier = application.getopenfilename(mutiselect:=false)
je récupére le nom du chemin que je veux utiliser.

Ensuite dans la macro que j'ai créer j'ai :
With ActiveSheet.QueryTables.Add(Connection:=_
    "Text;C:\documentsandsettings\jonathan\Bureau\lc\ROI NCROSE\LC_08_NECROSE.txt" _
    Destination:=Range("A5"))
   .Name = "LCF_08_NECROSE_1"

e veux remplacer le c:\doc..........txt par ma variavle nomfichier
mais j'ai des erreurs a chaque fois. Voila mon problème.
Quelqu'un sait  aussi comment je pourrais juste récupérer LCF_08_NECROSE_1
(le nom du fichier quoi lol).

Merci

cs_vpoyo · Accepted Answer

si tu remplaces

"Text;C:\documentsandsettings\jonathan\Bureau\lc\ROI NCROSE\LC_08_NECROSE.txt" _

par 
"Text;" & monfichier _

ca ne passe pas ?


(au passage vérifie que monFichier est bien le nom complet avec les répertoire et pas juste LC_08_NECROSE.txt

njo80 · Answer

Merci ça marche j'avais bien le nom complet du chemin,
comment je peux juste récupérer  LC_08_NECROSE sans l'extension


et ajouter _1 à la fin pour obtenir

LC_08_NECROSE_1
 (mon fichier s'appelle LC_08_NECROSE .txt il n'y a pas _1 dedans)

cs_vpoyo · Answer

le mieux reste encore de lire la doc sur les diverses fonctions de manipulation de string

le plus simple dans ton cas, c'est directement de virer les 4 dernier caractères puisque tu auras toujours .txt. tu as une fonction Left qui extrait la partie gauche, tu as aussi une fonction Len qui renvoie le nombre de caractère d'une chaine une fois la nouvelle chaine récupérer (sans le ".txt") il suffit juste de concaténer (rajouter à la fin) la chaine "_1" avec l'opérateur & (comme dans l'exemple de la réponse précédente)

Petite aide

3 réponses

Votre réponse

Discussions similaires