Rechercher une valeur dans un fichier externe (csv)

nak

XLDnaute Occasionnel
Bonjour

J'essai actuellement de modifier une macro, malheureusement je galère complet.
J'explique se que j'aimerais.
J'ai un fichier xls et un fichier csv
La cellule B2 du xls représente ma valeur à rechercher et à reporter dans le csv si celle-ci n'est pas déjà présente.

Voila comment je décompose:
-je clique dans le bouton de mon xls
-ouverture cachée du csv
-ma valeur B2 est rechercher dans le csv
-Si la valeur B2 est présente dans le csv msgBox et fin
-Si la valeur B2 n'est pas présente ajout de cette valeur sur une nouvelle ligne du csv
-enregistrement et sorti du csv.
-copie de la cellule B2
-Fin


Bon j'ai essayer d'écrire un bout de code... Marche pas !

Private Sub CommandButton1_Click()
Dim cellule As Range, trouve As Range, suite As Range
Set cellule = Range("B2") 'valeur à chercher
Open ActiveWorkbook.Path & "\codes.csv" For Input As #1
Do While Not EOF(1)
Cells.Find(What:="B2", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If trouve Is Nothing Then 'si pas trouvé
suite.Value = cellule.Value
Else: MsgBox "Code existant", vbInformation, "Attention"
Exit Sub
End If
Range("B2").Copy
End Sub
Exit Sub


Voila j'ai besoin de votre aide

Merci
 

Pièces jointes

  • codes.zip
    11.7 KB · Affichages: 28
  • codes.zip
    11.7 KB · Affichages: 27
  • codes.zip
    11.7 KB · Affichages: 26
Dernière édition:

Discussions similaires

Réponses
2
Affichages
140
Réponses
7
Affichages
312

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi