Nouvelle Année !

[WDAndCo]

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

 

[excalibur]

Re : Nouvelle Année !

bonjour WDAndCo le forum as tu essaye seulement comme cela !!
ActiveWorkbook.SaveAs
a la place de
ActiveWorkbook.SaveAs Filename:=

salutations
ActiveWorkbook.SaveAs

 

[WDAndCo]

Re : Nouvelle Année !

Mais oui bien sur pourquoi compliquer ? ! ? !

Merci

 

[WDAndCo]

Re : Nouvelle Année !

Re Bonsoir

En faite ActiveWorkbook.SaveAs ne marche pas car il écrase le fichier que j'ai sauvé 11 lignes plus haut dans la Macro !
Le but est faire taper un nouveau nom pour ce fichier qui viens d'être modifier (un enregistrer sous)

 

[Luki]

Re : Nouvelle Année !

Bonsoir WD&Co

tu peux essayer ceci

Sub WdCo()
[COLOR=Blue]Dim réponse[/COLOR]
    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
    
[COLOR=Blue]   réponse = Application.GetSaveAsFilename
   If réponse = False Then Exit Sub
   ActiveWorkbook.SaveAs Filename:=réponse[/COLOR]
   
    Else
    End If
End Sub

 

[WDAndCo]

Re : Nouvelle Année !

Merci sa marche, mais pour aller encore plus loin si cela est possible comment éviter les "devant et derrière le nom du fichier" lors de la saisie ? (Excel reprends le nom du fichier en cours d'utilisation)

 

[Luki]

Re : Nouvelle Année !

re,

Pour afficher un nom vide par défaut

 réponse = Application.GetSaveAsFilename("")

Pour afficher un nom par défaut :

réponse = Application.GetSaveAsFilename("toto")

et pour enregistrer sous xl directement:

   réponse = Application.GetSaveAsFilename("", fileFilter:="Excel_Workbook (*.xls), *.xls")

bonne soirée