Suppression lignes excel via formulaire sous vba
Bonjour,
j'utilise un formulaire développé sur excel avec langage vba. J'ai ajouter un bouton permettant de supprimer les lignes d'un fichier excel auquel l'outil est connecté. Je pense que la logique est bonne mais je n'arrive pas à établir la bonne connexion avec le fichier pour supprimer les lignes souhaitées. Voila à quoi ressemble mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Feuille = "listing_BP"
Dim i As String
Set Cn = New ADODB.Connection
With Cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & fichier & "; ReadOnly=False;"
.Open
End With
Set rst = New ADODB.Recordset
Set rst = Cn.Execute(texteSQL)
i = 1
While Not rst.EOF
If (txt_sge.Value <> "") Then
If (rst.Fields(2) = txt_sge) Then
Cn.Row(i).EntireRow.Delete
End If
ElseIf ((rst.Fields(1) = txt_ref) And (rst.Fields(0) = Cb_centre)) Then
Cn.Row(i).EntireRow.Delete
End If
rst.MoveNext
i = i + 1
Wend
Cn.Close
Set Cn = Nothing |
