grisan29
XLDnaute Accro
bonjour a vous tous
dans ce code qui fonctionne bien, j'ai un souci de direction, je m'explique
quand c'est un devis la sauvegarde se fait bien dans "c:\Facture" & "\Devis\"
et quand c'est une facture ,facture sav où facture acompte elles vont aussi dans "c:\Facture" & "\Devis\"
et c'est que le code ne fait pas son boulot où que je l'ai mal modifier pour rajouter sav et acompte
j'espère être suffisamment explicit
Pascal
dans ce code qui fonctionne bien, j'ai un souci de direction, je m'explique
quand c'est un devis la sauvegarde se fait bien dans "c:\Facture" & "\Devis\"
et quand c'est une facture ,facture sav où facture acompte elles vont aussi dans "c:\Facture" & "\Devis\"
et c'est que le code ne fait pas son boulot où que je l'ai mal modifier pour rajouter sav et acompte
Code:
Private Sub newfeuille_Click()
Dim nom, chemin As Variant
Dim plage As Range
Dim DLig As Long
With Sheets("facture")
DLig = .Range("c65536").End(xlUp).Row
Sheets("facture").Copy
nom = Sheets("facture").Range("D17").Value & " - " & Sheets("facture").Range("J5").Value & ".xls"
Select Case (Range("D1"))
Case Is = "FACTURE": chemin = "c:\Facture" & "\Facture\"
Case Is = "FACTURE SAV": chemin = "c:\Facture" & "\Facturesav\"
Case Is = "FACTURE D'ACOMPTE": chemin = "c:\Facture" & "\Factureacompte\"
Case Else: chemin = "c:\Facture" & "\Devis\"
End Select
ActiveWorkbook.SaveAs Filename:=chemin & nom, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Votre sauvegarde porte la référence : " & " " & nom
DLig = .Range("C19").End(xlDown)(1).Row
If DLig > 19 Then
Set plage = .Range("C19:B" & .Range("C19").End(xlDown)(1).Row - 3)
plage.EntireRow.Delete
End If
.Range("J5:J10").Value = ""
End With
'Sauvegarde les modifications
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
j'espère être suffisamment explicit
Pascal