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