Fonction split

Le
Formateur 2 CEPAS
Bonjour
J'essaie d'exploiter la fonction split
mais j'ai une erreur d'execution incompatibilite de type
voila le bout de code
Sub test()
Dim tableau()
Open "tblclients.txt" For Input As #1
Line Input #1, maligne
tableau() = Split(maligne, ",")

End Sub
Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel__D
Le #17261431
Bonjour,

Formateur 2 CEPAS a écrit :
Bonjour
J'essaie d'exploiter la fonction split
mais j'ai une erreur d'execution incompatibilite de type
voila le bout de code
Sub test()
Dim tableau()
Open "tblclients.txt" For Input As #1
Line Input #1, maligne
tableau() = Split(maligne, ",")

End Sub
Merci de votre aide



Essaye comme ceci :

Sub test()
Dim tableau
Open "tblclients.txt" For Input As #1
Line Input #1, maligne
tableau = Split(maligne, ",")

End Sub
michel chambrillon
Le #17262141
Ok c'est nickel
Merci
"Michel__D" news:OQu1$$
Bonjour,

Formateur 2 CEPAS a écrit :
Bonjour
J'essaie d'exploiter la fonction split
mais j'ai une erreur d'execution incompatibilite de type
voila le bout de code
Sub test()
Dim tableau()
Open "tblclients.txt" For Input As #1
Line Input #1, maligne
tableau() = Split(maligne, ",")

End Sub
Merci de votre aide



Essaye comme ceci :

Sub test()
Dim tableau
Open "tblclients.txt" For Input As #1
Line Input #1, maligne
tableau = Split(maligne, ",")

End Sub


Publicité
Poster une réponse
Anonyme