bonjour a vous tous
depuis la discussion
http://www.developpez.net/forums/d12...leurs-valeurs/
je n'ai fait que remplacer des lignes de codes c'est un peu mieux mais reste une erreur 1004 de plusieures solutions
donc voici ce code
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub nouvellefeuille_Click()
Dim shFact As Worksheet, shNew As Worksheet, wbNew As Workbook
Set shFact = Sheets("Facturation")
Set shNew = Sheets.Add
 Dim Mot As String
 Dim nom, chemin As Variant
 
shFact.Cells.Copy
shNew.Range("A1").PasteSpecial xlPasteValues
shNew.Range("A1").PasteSpecial xlPasteFormats
 
shNew.Move
nom = Sheets("facturation").Range("D17").Value & "-" & Sheets("facturation").Range("J5").Value & ".xls"
chemin = "C:\Save_Devis_ExcelGStock\Devis"
 
ActiveWorkbook.SaveAs Filename:=chemin & nom, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
 
If [MTTC].Row - 9 > 19 Then
    shFact.Range("C19:C" & [MTTC].Row - 9).EntireRow.Delete
ElseIf [MTTC].Row - 9 = 19 Then
    shFact.Range("C19").EntireRow.Clear
End If
shFact.Range("J5:J8").ClearContents
shFact.Range("C16").ClearContents
Select Case UCase(shFact.Range("D1"))
    Case Is = "FACTURE"
        Range("S7") = Range("S7") + 1
    Case Is = "DEVIS"
        Range("S8") = Range("S8") + 1
End Select
 
End Sub
sachant que "C:\Save_Devis_ExcelGStock\est le dossiers d'archivage et dans lequel il y a des sous dossiers "devis et facture"
si vous avez une réponse a me donner car je planche dessus depuis un moment

cordialement

Pascal