WDAndCo
XLDnaute Impliqué
Bonjour le Forum
Avec le code qui suit je demande confirmation si non sortie, si oui sauvegarde du fichier avant modification, traitement et c'est la que mes compétence ma lâche je voudrais un enregistrer sous j'ai mis ActiveWorkbook.SaveAs Filename:= mais cela ne marche pas !
Sub NouvelleAnnee()
'
' NouvelleAnnee Macro
' Macro enregistrée le 28/10/2007 par WD And Co.
'
'
Call Retour
If MsgBox("Confirmez vous la suppression de toutes les commandes SOLDEES (OUI) pour une Nouvelle Année ?", vbYesNo, "Message de BUDGET UP (WD And Co.)") = vbYes Then
ActiveWorkbook.Save
Call Deprotege
Dim li As Long
Dim x As Long
li = Range("K65536").End(xlUp).Row
For x = li To 2 Step -1
If Cells(x, 11).Value = "Oui" Then
Rows(x).Delete
End If
Next x
Call Protege
ActiveWorkbook.SaveAs Filename:=
Else
End If
End Sub
Quelqu'un a une idée ? D'avance merci
Dominique
Avec le code qui suit je demande confirmation si non sortie, si oui sauvegarde du fichier avant modification, traitement et c'est la que mes compétence ma lâche je voudrais un enregistrer sous j'ai mis ActiveWorkbook.SaveAs Filename:= mais cela ne marche pas !
Sub NouvelleAnnee()
'
' NouvelleAnnee Macro
' Macro enregistrée le 28/10/2007 par WD And Co.
'
'
Call Retour
If MsgBox("Confirmez vous la suppression de toutes les commandes SOLDEES (OUI) pour une Nouvelle Année ?", vbYesNo, "Message de BUDGET UP (WD And Co.)") = vbYes Then
ActiveWorkbook.Save
Call Deprotege
Dim li As Long
Dim x As Long
li = Range("K65536").End(xlUp).Row
For x = li To 2 Step -1
If Cells(x, 11).Value = "Oui" Then
Rows(x).Delete
End If
Next x
Call Protege
ActiveWorkbook.SaveAs Filename:=
Else
End If
End Sub
Quelqu'un a une idée ? D'avance merci
Dominique