SELECTION MULTIPLES DANS UNE COMMONDIALOGBOX

Signaler
Messages postés
72
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
20 juin 2003
-
gilardh
Messages postés
70
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
22 février 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5927-selection-multiples-dans-une-commondialogbox

gilardh
Messages postés
70
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
22 février 2008

Bonjour SibosisITS,

Pourrais n'utile tu pas la fonction split ?

Regards

gilardh
SibosisITS
Messages postés
72
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
20 juin 2003

C'est utile en effet pour ceux qui ne le savent pas. Mais je crois que ce qui intérresse tout le monde, c'est comment séparer les différents noms (découpage de la chaîne) :

Sub RecupeListe(Chaine as String, ByRef Chemin as String, ByRef Fichiers() as String)
Dim ResteChaine as String
Dim Pos as Long
Pos=InStr(Chaine, chr$(0))
Chemin = Left(Chaine, Pos-1)
ResteChaine = Mid$(Chaine, Pos+1)
Redim Fichiers(0)
While ResteChaine<>""
Pos = InStr(ResteChaine, chr$(0))
Fichiers(Ubound(Fichiers)) = Left(ResteChaine, Pos-1)
ResteChaine = Mid$(ResteChaine, Pos+1)
Redim Preserve Fichiers(Ubound(Fichiers)+1)
Wend
On Error Resume Next
Redim Preserve Fichiers(Ubound(Fichiers)-1)
End Sub

L'argument Chemin est une référence à la chaine qui contiendra le dossier
L'argument Fichiers() est un tableau (déclaration de la forme 'Dim Nom_Tabl()', avec rien dans les parenthèses) qui contiendra la liste des fichiers...

@++ et bonne prog...

(: Sibo ;)