Excel vba

Résolu
amine69500 Messages postés 471 Statut Membre -  
amine69500 Messages postés 471 Statut Membre -
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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    1. amine69500 Messages postés 471 Statut Membre 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
  2. amine69500 Messages postés 471 Statut Membre 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