M
mmoidany
Guest
Bonjour à tous et à toutes !!!!!
Je désire depuis excel en vba lire dans un fichier csv ou txt avec séparateur ;
J'ai écrit ce code mais il ne fonctionne pas
""""""""""""""""
' Ouvre le fichier en lecture
Open "C:\bd\etiquetage.txt" For Input As #1
' Effectue la boucle jusqu'à la fin du fichier
Do While Not EOF(1) And Not lexit
' Lit les données dans trois variables
Input #1, chrono_bd, negoce_bd, designation_bd
' Je compare la ref négoce avec la bd
If negoce & "A" = negoce_bd Then
lexit = True
End If
Loop
' Ferme le fichier
Close #1
"""""""""""""""""""""""""""
En effet, ce code ne fonctionne qu'avec un séparateur ","
(limitation dûe à Input #1
Auriez-vous une autre méthode pour lire un fichier csv
ligne par ligne pour rechercher une valeur dans l'un des
champs ???????????????
merci par avance
Je désire depuis excel en vba lire dans un fichier csv ou txt avec séparateur ;
J'ai écrit ce code mais il ne fonctionne pas
""""""""""""""""
' Ouvre le fichier en lecture
Open "C:\bd\etiquetage.txt" For Input As #1
' Effectue la boucle jusqu'à la fin du fichier
Do While Not EOF(1) And Not lexit
' Lit les données dans trois variables
Input #1, chrono_bd, negoce_bd, designation_bd
' Je compare la ref négoce avec la bd
If negoce & "A" = negoce_bd Then
lexit = True
End If
Loop
' Ferme le fichier
Close #1
"""""""""""""""""""""""""""
En effet, ce code ne fonctionne qu'avec un séparateur ","
(limitation dûe à Input #1
Auriez-vous une autre méthode pour lire un fichier csv
ligne par ligne pour rechercher une valeur dans l'un des
champs ???????????????
merci par avance