Sujet Précédent Sujet Suivant

Excel vba

Résolu/Fermé
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 5 sept. 2012 à 15:18
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 6 sept. 2012 à 10:17
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
5 sept. 2012 à 17:29
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 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
6 sept. 2012 à 10:17
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 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
6 sept. 2012 à 09:28
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