Suppression ligne et sauvegarde sans confimationRésolu

Question

bonsoir,
J ai un combo avec des valeurs. je cherche une de ces valeurs dans un tableau excel et je veut supprimer l ensemble de cette ligne et sauver mon fihier sans sauvegarde.
Je cherche depuis un moment sur le forum mais ne pas quelque chose qui fonctionne chez moi 

Merci d avance 

voila mon code 

Private Sub Command3_Click()


Workbooks.Open FileName:="C:\Documents and Settings\YannV\Bureau\vb\base.xls",editable:=true
'BOUCLE
 R = 1
Do While Combo1 <> Cells(R, 3).Value ' compare combo1 et ligne r colonne 3
    R = R + 1j ai trouve la ligne correspondant a mon combo
      Loop
  Rows(R).Select 
Selection.Delete Shift:=xlUp  'supprime la ligne
'Application.DisplayAlerts = False si je met la ligne ca ne demande pas de confirmation mais ca ne sauve pas 
ActiveWorkbook.Save 'sauve
ActiveWorkbook.Close ' quitte
End Sub

varach · Accepted Answer

ca y est ca marche 

Private Sub Command3_Click()


Workbooks.Open FileName:="C:\Documents and Settings\YannV\Bureau\vb\base.xls"
'BOUCLE
 R = 1
Do While Combo1 <> Cells(R, 3).Value ' compare combo1 et ligne r colonne 3
    R = R + 1
      Loop
  Rows(R).Delete Shift:=xlUp
Application.DisplayAlerts = False
ActiveWorkbook.Save 'sauve
ActiveWorkbook.Close ' quitte
Application.DisplayAlerts = True
End Sub

Suppression ligne et sauvegarde sans confimation

1 réponse

Discussions similaires