Création de fichier

RE

Oui si vous avez des formules dans votre feuille c'est normal. Il faudra ajoute du code

Montrez moi le fichier

Cordialement

ci joint fichier

4tetsv5.xlsm (392.96 Ko)

Re

Essayez comme ceci

Sub Macro3()
Dim feuille As Worksheet
Dim Chemin As String
Dim dlg As Integer

Chemin = "C:\Users\" & VBA.Environ("UserName") & "\Desktop\ARCM 2015 "

For Each feuille In ThisWorkbook.Sheets
dlg = feuille.Range("B" & feuille.Rows.Count).End(xlUp).Row
With feuille
    Select Case .Name
        Case Is = "CAAR", "AXA", "GAM", "CAAT", "SAA", "2A", "CASH", "ALLIANCE", "TRUST", "CNMA"
        .Copy
        .Range("B10:J" & dlg).Copy
        With ActiveWorkbook
            .ActiveSheet.Range("B10").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
             'ActiveSheet.Name = Replace(ActiveSheet.Name, ".", "")
            .SaveAs Filename:=Chemin & feuille.Name & ".xlsX"
            .Close
        End With
    End Select
End With

Next
End Sub

Cordialement

merci @Dan

Rechercher des sujets similaires à "creation fichier"