Excel vba

Résolu
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   -  
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,


voila je souhaiterais savoir, quel fonction je pourrais utilisé pour recuperer des info dans un fichier csv.

je m'explique

j'ai un fichier CSV avec une colonne (voir fichier joint)

https://www.cjoint.com/?BIfpmSPJUS4


et j'ai un fichier excel, (module1 mon code)

Sub test ()


Dim qq As string

qq = tata

'ici je vais chercher la bonne info dans le CSV et j'affiche la valeur a cote de tata donc ici c'es toto

'fichier CVS sous D:Documents

msgbox qq


End sub



je souhaiterais utilisé une fonction qui me permet de recuperer des info dans le fichier CSV c.a.d quand je met tata dans la procedure je recupere toto


merci de votre aide

Cordialement

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

exemple de code VBA 

Sub test()
  Dim fich, qq
  
  qq = "tata"
  lqq = Len(qq)
  'Chemin a adapter par vous
  fic = "D:\test_divers\TOTO.CSV"
  Close
  Open fic For Input As #1
    Do While Not EOF(1)
      'lecture enregistremnt
      Line Input #1, buffer
      'Recherche chaine test
      If InStr(1, buffer, qq) Then
        'ecriture mot devant chaine test
        y = Left(buffer, Len(buffer) - Len(qq) - 1)
        'sortie
        Exit Sub
      End If
    Loop
  Close
End Sub


bonne suite
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
une petite question SVP, comment je pourrais faire pour afficher un msgbox si la valeur n'existe pas, car pour l'instant ca me met erreur si la valeur n'existe pas.

merci de votre aide

Cordialement
0
Réponse 2 / 2
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
Bonjour et merci de votre aide

super ca marche super, il fallai juste que je change Left par Right dans la formule

merci mille fois

cordialement
0