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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager