Discussion :

[cvivi60]

bonjour !

Nous voulons dans notre base acces a l'aide de visual basic un script qui détecte nos imprimantes réseau et supprime celles qui ne sont pas présente. Nous avons déjà fait un script qui ne fonctionne pas a chaque changement de fenetre de notre BL cela nous met un code erreur :

Erreur d'exécution '6013' : Impossible de supprimer cet élément :'OKI C9300(PCL)' introuvable dans la liste.

quand on fait un débogage cette ligne est surligner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lstimprimantes.RemoveItem prt.DeviceNamevoici

notre script :

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
 'Listes des imprimantes
    Dim prt As Printer
    While Me.lstimprimantes.ListCount <> 0
        For Each prt In Application.Printers
        Me.lstimprimantes.RemoveItem prt.DeviceName
 
        Next
    Wend
    If Me.lstimprimantes.ListCount Then
        Me.lstimprimantes.Selected(0) = True
    End If
 
    For Each prt In Application.Printers
        Me.lstimprimantes.AddItem prt.DeviceName
    Next

Pouvez vous nous aider s'il vous plait !

Merci d'avance

virginie

[EddiGordo]

Bonjour

RemoveItem s'utilise avec l'indice de l'élément à supprimer, pas son étiquette...

Peut-être comme ceci plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 'Listes des imprimantes
    Dim prt As Printer
    While Me.lstimprimantes.ListCount <> 0
        Me.lstimprimantes.RemoveItem 0
    Wend
 
    For Each prt In Application.Printers
        Me.lstimprimantes.AddItem prt.DeviceName
    Next

[cvivi60]

merci bcp ca a résolu mon erreur