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 !
Voila j'ai besoin de votre aide
Merci
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
Dernière édition: