Discussion :

[drissk]

Bonjour,
j'ai un peu du mal à débuter !
Si quelqu'un peut m'aider

J'ai un fichier de type : First Solar_ 1002142258_Apres 1000h.xls
et je souhaite récupérer les 3 parties du nom du fichier c'est à dire "First Solar", "1002142258", "Apres 1000h" dans des variables en sachant que les fichiers peuvent être de taille différentes.
On pourrait peut être utiliser les "_" comme repère.

Quelqu'un a t'il une idée ?
Merci

[jfontaine]

Bonjour,

Dans ton cas, l'instruction split

Code :

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

1
2
3
Dim str() As String
 
str = Split("First Solar_ 1002142258_Apres 1000h.xls", "_")

str (0) contiendra "First Solar"
str (1) contiendra "1002142258"
str (2)contiendra "Apres 1000h.xls"

EDIT : Ajout d'une boucle pour lire le tableau str

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim str() As String
Dim i As Integer
 
str = Split("First Solar_ 1002142258_Apres 1000h.xls", "_")
 
For i = 0 To UBound(str)
 
    MsgBox Replace(str(i), ".xls", "")
 
Next i

[drissk]

Merci Jérome !
ça marche impeccablement