Création de fichier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'877
Appréciations reçues : 77
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2004, 2011

Message par Dan » 16 juin 2018, 15:09

RE

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

Cordialement
@+ Dan ;)
a
abdernino
Membre fidèle
Membre fidèle
Messages : 186
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 16 juin 2018, 16:38

ci joint fichier
TETSV5.xlsm
(392.96 Kio) Téléchargé 4 fois
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'877
Appréciations reçues : 77
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2004, 2011

Message par Dan » 16 juin 2018, 17:14

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
@+ Dan ;)
a
abdernino
Membre fidèle
Membre fidèle
Messages : 186
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 16 juin 2018, 17:28

merci @Dan
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message