Discussion :

[Daniel MOREAU]

Bonjour à tous,

Je souhaiterai créé un petit module qui me permette de définir un critère qui me permettra par la suite de créer une table.

Je m'explique, dans un formulaire je récupère le chemin et le nom de mon fichier soit par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

\\Pdc\transferts equalis\CIOQ_01.txt

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

\\Pdc\transferts equalis\BCH.txt

Le critère qui me servira ensuite pour créér ma table est dans le premier cas "CIOQ_01" et dans le second "BCH".

Je pense qu'il existe un moyen pour extraire cela et ensuite je pourrais nommer ma table "tbl_BCH" ou "tbl_CIOQ_01".

Pour info l'emplacement est tjrs le même.

Pouvez-vous m'aider :

Merci d'avance.

Daniel

[Tofalu]

Il suffit d'utiliser les fonctions d'extraction de chaines

Instrrev pour retrouver le dernier \

Mid pour extraire

[Daniel MOREAU]

Merci pour le tuyau,

Je viens de faire un petit test qui fonctionne sauf que je ne veux pas extraire la fin de ma chaine.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Extrac_NomFichier()
 
Dim Emplacement, NomFichier
Emplacement = "\\Pdc\transferts equalis\BCH.txt"
NomFichier = Mid(Emplacement, 26)
MsgBox (NomFichier)
 
End Sub

ce qui me donne comme résultat "BCH.txt"

Je pourrais bien sûr limiter en ajoutant "3" dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFichier = Mid(Emplacement, 26, 3)

Mais voilà les noms des fichiers ne sont pas de même longueur.

Comment faire :

Daniel

[Heureux-oli]

Len devrait te donner la longueur de la chaîne de caractères.

[Kloun]

Si ton répertoire ne change pas, tu peux simplement faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

left(mid(Emplacement, 26), len(mid(Emplacement, 26))-4)

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Extrac_NomFichier() 
 
Dim Emplacement, NomFichier 
Emplacement = "\\Pdc\transferts equalis\BCH.txt" 
NomFichier = Mid(Mid(Emplacement, InStrRev(Emplacement, "\") + 1), 1, InStr(Mid(Emplacement, InStrRev(Emplacement, "\") + 1), ".") - 1)
MsgBox (NomFichier) 
End Sub

[Daniel MOREAU]

Bonjour à tous et merci beaucoup pour vos réponses.

La solution de pc75 correspond exactement à ce que je souhaitais.

Merci encore à vous tous.

Daniel