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, ",")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel__D
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
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, ",")
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
Ok c'est nickel Merci "Michel__D" a écrit dans le message de 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
Ok c'est nickel
Merci
"Michel__D" <Michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news:OQu1$$WGJHA.3736@TK2MSFTNGP06.phx.gbl...
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, ",")
Ok c'est nickel Merci "Michel__D" a écrit dans le message de 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, ",")