Bonjour à tous,
Je débute en VBA et je n'arrive pas à terminer une macro.
Je dois extraire certaines données d'un tableau directement vers un fichier csv.
J'ai pu créer un bouton qui m'envoi toutes les données dans ce fichier et celui-ci s'ouvre à la fin avec Notepad++.
Mon problème c'est que je souhaiterais ne pas recopier les lignes, si il y a le mot "ABSENT" dans la colonne C du tableau.
Voici mon code :
Private Sub SAVE_Liste_Click()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String
Set Plage = Worksheets("ONGLET_1").Range("a2:g" & Worksheets("ONGLET_1").Range("C65000").End(3).Row)
Open "Liste.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & ";"
Next
Print #1, Tmp
Next
Close
Shell "C:\Program Files (x86)\Notepad++\notepad++.exe " & "C:\Users\" & Environ("username") & "\Documents\Liste.csv", vbNormalFocus
End Sub
Dans le Forum, je trouve des exemples avec condition "if" mais rien qui s'adapte à mon code.
Si quelqu'un peut m'aider je le remercie par avance !