Discussion :

[Nico820]

Bonjour à tous,

je cherche à extraire directement la partie gauche d'un string, qui s'arrête à un point.
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim nomEntier as String
 
nomEntier = "nouveaufichier.xls" 'ou nouveaufichier.xlsx, aaa.tttt, etc.
 
Dim nomPartiel as String
 
(méthode)
résultat:
nomPartiel = "nouveaufichier"

L'idée est simple, mais difficile à résumer sur le net pour la chercher efficacement sur le net

Merci beaucoup,

Nicolas

[OhMonBato]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Dim nomEntier As String
 
nomEntier = "nouveaufichier.xls" 'ou nouveaufichier.xlsx, aaa.tttt, etc.
 
Dim nomPartiel As String
 
nomPartiel = Left(nomEntier, InStr(nomEntier, ".") - 1)
MsgBox nomPartiel

Voir aussi Comment manipuler les chaines de caractères

[vb]

Bonjour
Une petite question toute bête à OhMonBato, dans la ligne de code numéro 1, le - 1 , correspond à ???
Ici je comprend bien , extraire à partir de la gauche dans la chaine de caractère et lorsque la première occurrence arrive ici le point, le résultat est obtenu.

Merci à vous
vb

Code :

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

1
2
nomPartiel = Left(nomEntier, InStr(nomEntier, ".") - 1)
MsgBox nomPartiel

[OhMonBato]

Si tu as regardé le lien que je donnais (je n'ose pas douter que tu l'ais fait), il est bien expliqué que Instr donne la position de la première occurence cherchée dans une chaine.
Ici, on cherche le premier "." dans la chaine (avec Instr) et on prend donc les n-1 premiers caractères en partant dela gauche avec l'instruction Left.

En code "pas à pas", ça revient à écrire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim nomEntier As String
 
nomEntier = "nouveaufichier.xls" 'ou nouveaufichier.xlsx, aaa.tttt, etc.
 
Dim nomPartiel As String
Dim PositionDuPoint As Byte
Dim NombreDeCaracteresAPrendre As Byte
PositionDuPoint = InStr(nomEntier, ".")
NombreDeCaracteresAPrendre = PositionDuPoint - 1
 
nomPartiel = Left(nomEntier, NombreDeCaracteresAPrendre)
MsgBox nomPartiel

[vb]

Bonjour,
Merci beaucoup pour votre explication précise, maintenant cela est plus clair dans ma petite tête
Bien à vous
vb